ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Error Message: "Can't Execute Code in Break Mode" (https://www.excelbanter.com/excel-programming/420388-error-message-cant-execute-code-break-mode.html)

cru
Error Message: "Can't Execute Code in Break Mode"
 
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

galimi
Error Message: "Can't Execute Code in Break Mode"
 
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

cru
Error Message: "Can't Execute Code in Break Mode"
 
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

Don Guillett
Error Message: "Can't Execute Code in Break Mode"
 

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


cru
Error Message: "Can't Execute Code in Break Mode"
 
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



Don Guillett
Error Message: "Can't Execute Code in Break Mode"
 

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

JLGWhiz
Error Message: "Can't Execute Code in Break Mode"
 
I was thinking the spell check might be the culprit, but I could not get it
to duplicate the error so maybe Don's code will clear it up.

"cru" wrote:

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


All times are GMT +1. The time now is 05:29 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com