Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi Everyone,
Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
What line is this code breaking on?
-- http://HelpExcel.com "cru" wrote: Hi Everyone, Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
The code is breaking on the
Range("Y29:BG29").Select thanks for your help! "galimi" wrote: What line is this code breaking on? -- http://HelpExcel.com "cru" wrote: Hi Everyone, Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
#5
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Perhaps you meant to select the Input Form sheet?. However, selections aren't necessary or desirable Sub checkspelling()'Notice the DOTS on the indented lines With Sheets("Input Form") .Unprotect "password" .Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D3 1,D32,G32,A55,A57,A59").checkspelling .Range("Y29:BG29").Copy Sheets("REFUND SPREADSHEET").Range("A4").PasteSpecial Paste:=xlPasteValues .protect "password" End With End Sub Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "cru" wrote in message ... Hi Everyone, Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
#6
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Don,
Thank you for information. Can I just insert the first three lines into the Comp_Button? (I'm sorry for the stupid question). I wanted to run the spell checking upon pressing_comp button and then copy/paste the information on Y29:BG29 into Refund Spreadsheet. thanks. "Don Guillett" wrote: Perhaps you meant to select the Input Form sheet?. However, selections aren't necessary or desirable Sub checkspelling()'Notice the DOTS on the indented lines With Sheets("Input Form") .Unprotect "password" .Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D3 1,D32,G32,A55,A57,A59").checkspelling .Range("Y29:BG29").Copy Sheets("REFUND SPREADSHEET").Range("A4").PasteSpecial Paste:=xlPasteValues .protect "password" End With End Sub Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "cru" wrote in message ... Hi Everyone, Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
#7
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() That's exactly what my macro does, AS WRITTEN. Try it. -- Don Guillett Microsoft MVP Excel SalesAid Software "cru" wrote in message ... Don, Thank you for information. Can I just insert the first three lines into the Comp_Button? (I'm sorry for the stupid question). I wanted to run the spell checking upon pressing_comp button and then copy/paste the information on Y29:BG29 into Refund Spreadsheet. thanks. "Don Guillett" wrote: Perhaps you meant to select the Input Form sheet?. However, selections aren't necessary or desirable Sub checkspelling()'Notice the DOTS on the indented lines With Sheets("Input Form") .Unprotect "password" .Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D3 1,D32,G32,A55,A57,A59").checkspelling .Range("Y29:BG29").Copy Sheets("REFUND SPREADSHEET").Range("A4").PasteSpecial Paste:=xlPasteValues .protect "password" End With End Sub Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "cru" wrote in message ... Hi Everyone, Does anyone know why I would get this error message? Here's the code: Sub Comp_Button() Sheets("Input Form").Unprotect "password" Range("D12,D13,D14,D15,D17,D22,D24,D26,D29,D30,D31 ,D32,G32,A55,A57,A59").Select Selection.CheckSpelling Range("Y29:BG29").Select Selection.Copy Sheets("REFUND SPREADSHEET").Activate 'Range("A4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Any ideas "can't enter break mode at this time" error gone amok | Excel Programming | |||
"can't enter break mode at this time" message when adding a projectreference | Excel Programming | |||
What does this mean? "Can't execute code in design mode" | Excel Discussion (Misc queries) | |||
OnTime code error "can't execute code in break mode" | Excel Programming | |||
"CAN'T EXECUTE CODE IN BREAK MODE" | Excel Programming |