Copy & paste special
Not sure what the problem was, but this minor modification cured it.
Sub fdk()
Range("A1:d1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B3").Select
Do Until ActiveCell = Range("B2").Value
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 76).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats _
, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
I suggest you learn to write your code without using the Select method. It
is much more effficient.
"pkeegs" wrote in message
...
I have the following section of code copied from another macro. The only
difference to the macro I have copied is the
"ActiveCell.Offset(0,76).Select"
code. The Macro finds the correct cell but then stops at the PasteSpecial.
"CopyEvaluate" is a 4 cell range being copied into a location in another
sheet "Database". Has anyone got any thoughts as to why the Macro will not
paste when it works perfectly in the original macro?
Range("CopyEvaluate").Select
Selection.Copy
Sheets("Database").Select
Range("FormNumber").Select
Do Until ActiveCell = Range("B2").Value
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 76).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
|