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" <(E-Mail Removed)> wrote in message
news:F4366D87-BD8F-40FE-BCCA-(E-Mail Removed)...
>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
|
Similar Threads
