Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy & paste special
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy & paste special
Sorry, should have gone back to your original code. Try this.
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).PasteSpecial Paste:=xlPasteValuesAndNumberFormats _ , Operation:=xlNone, SkipBlanks:=False, Transpose:=False "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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't Copy and Paste or Paste Special between Excel Workbooks | Excel Discussion (Misc queries) | |||
Special Copy, Paste Special macro | Excel Programming | |||
Automating copy/paste/paste special when row references change | Excel Programming | |||
help w/ generic copy & paste/paste special routine | Excel Programming | |||
Dynamic Copy/Paste Special Formulas/Paste Special Values | Excel Programming |