Prev: finding data across multiple ws to populate a userform (Need H
Next: How to? Date Function
From: mzjamez on 17 Jul 2008 16:20
I have the following code and everytime I run it I get a debugger message
that says the code is interrupted. I'm not sure how to correct this. Can
anyone help?

Sub COPY()
'
' COPY macro
'

'select area and clear
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'select area and copy
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.COPY
'select area and paste special values
Range("C6").Select
ActiveWindow.SmallScroll Down:=-12
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'select area and copy
Range("A1").Select
Application.CutCopyMode = False
Selection.COPY
'select area and paste special values multiply
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub

From: Paul B. on 17 Jul 2008 16:33
Look a few posts previous to yours, titled "Alien Abduction of VB: Code
execution has been interrupted". It's about the same problem.

Paul

"mzjamez" wrote:

> I have the following code and everytime I run it I get a debugger message
> that says the code is interrupted. I'm not sure how to correct this. Can
> anyone help?
>
> Sub COPY()
> '
> ' COPY macro
> '
>
> 'select area and clear
> Range("C6").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.ClearContents
> 'select area and copy
> Range("A6").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.COPY
> 'select area and paste special values
> Range("C6").Select
> ActiveWindow.SmallScroll Down:=-12
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> 'select area and copy
> Range("A1").Select
> Application.CutCopyMode = False
> Selection.COPY
> 'select area and paste special values multiply
> Range("C6").Select
> Range(Selection, Selection.End(xlDown)).Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
> SkipBlanks:=False, Transpose:=False
> End Sub
>
From: jeninOk on 31 Jul 2008 15:50
I'm having the same problem and there was never anything installed to cause
this to start happening.

What is really happening and what can fix this bug?



"Paul B." wrote:

> Look a few posts previous to yours, titled "Alien Abduction of VB: Code
> execution has been interrupted". It's about the same problem.
>
> Paul
>
> "mzjamez" wrote:
>
> > I have the following code and everytime I run it I get a debugger message
> > that says the code is interrupted. I'm not sure how to correct this. Can
> > anyone help?
> >
> > Sub COPY()
> > '
> > ' COPY macro
> > '
> >
> > 'select area and clear
> > Range("C6").Select
> > Range(Selection, Selection.End(xlDown)).Select
> > Selection.ClearContents
> > 'select area and copy
> > Range("A6").Select
> > Range(Selection, Selection.End(xlDown)).Select
> > Selection.COPY
> > 'select area and paste special values
> > Range("C6").Select
> > ActiveWindow.SmallScroll Down:=-12
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > 'select area and copy
> > Range("A1").Select
> > Application.CutCopyMode = False
> > Selection.COPY
> > 'select area and paste special values multiply
> > Range("C6").Select
> > Range(Selection, Selection.End(xlDown)).Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
> > SkipBlanks:=False, Transpose:=False
> > End Sub
> >
 | 
Pages: 1
Prev: finding data across multiple ws to populate a userform (Need H
Next: How to? Date Function