If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Macro - Copy/Paste Special to Next Blank Line
I have a macro that I'm using to copy and paste special into another spreadsheet...the problem I am having is that it will not select the next blank line in the spreadsheet, it overlays what I already have. I need to have it keep adding to the existing data and I'm not sure how to do it. I'm sure it is something simple but I'm new to all of this! Here is my existing code: Sub Load_Data() ' ' Keyboard Shortcut: Ctrl+z ' Workbooks.Open Filename:="F:\SSCW\Load File.xls", UpdateLinks:=0 Windows("TEST- XXXXXX.xls").Activate Sheets("Sheet1").Select Range("A2:H2").Select Selection.Copy Windows("Load File.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWorkbook.Save ActiveWorkbook.Close End Sub -- lajohn63 |
#2
|
|||
|
|||
Macro - Copy/Paste Special to Next Blank Line
Hi lajohn63
See the example on this page http://www.rondebruin.nl/copy1.htm Try this example What if the Database sheet is in another workbook -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "lajohn63" wrote in message ... I have a macro that I'm using to copy and paste special into another spreadsheet...the problem I am having is that it will not select the next blank line in the spreadsheet, it overlays what I already have. I need to have it keep adding to the existing data and I'm not sure how to do it. I'm sure it is something simple but I'm new to all of this! Here is my existing code: Sub Load_Data() ' ' Keyboard Shortcut: Ctrl+z ' Workbooks.Open Filename:="F:\SSCW\Load File.xls", UpdateLinks:=0 Windows("TEST- XXXXXX.xls").Activate Sheets("Sheet1").Select Range("A2:H2").Select Selection.Copy Windows("Load File.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWorkbook.Save ActiveWorkbook.Close End Sub -- lajohn63 |
Thread Tools | |
Display Modes | |
|
|