Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code is dragging selection when should copy
The people on this forum have been most helpful by providing me wit
copying 1500 files into one with the code below. However, I have foun one problem. Since it is copying a formula I'm not sure if that ha anything to do with it. But after the 1st row it will copy the correc file but the information is not correct. It's almost like you'v dragged the selection down. Do you think a copy/paste special would b the best route? Sub MergeFiles() Application.ScreenUpdating = False Dim FName As String Dim WB As Workbook Dim Dest As Range Const FOLDERNAME = "C:\Survey\Test" ChDrive FOLDERNAME ChDir FOLDERNAME Set Dest = Range("A2") FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Windows(FName).Activate Sheets("Data").Visible = True WB.Worksheets("Data").Rows(2).Copy Destination:=Dest WB.Close savechanges:=False Set Dest = Dest(2, 1) FName = Dir() Loop End Sub Thank you -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code is dragging selection when should copy
Look at this example
http://www.rondebruin.nl/copy3.htm I add code in this subs that show you how to copy only the values -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "rglasunow " wrote in message ... The people on this forum have been most helpful by providing me with copying 1500 files into one with the code below. However, I have found one problem. Since it is copying a formula I'm not sure if that has anything to do with it. But after the 1st row it will copy the correct file but the information is not correct. It's almost like you've dragged the selection down. Do you think a copy/paste special would be the best route? Sub MergeFiles() Application.ScreenUpdating = False Dim FName As String Dim WB As Workbook Dim Dest As Range Const FOLDERNAME = "C:\Survey\Test" ChDrive FOLDERNAME ChDir FOLDERNAME Set Dest = Range("A2") FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Windows(FName).Activate Sheets("Data").Visible = True WB.Worksheets("Data").Rows(2).Copy Destination:=Dest WB.Close savechanges:=False Set Dest = Dest(2, 1) FName = Dir() Loop End Sub Thank you! --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
dragging formula to make selection | Excel Discussion (Misc queries) | |||
Code for dragging the last column | Excel Worksheet Functions | |||
Copy Selection - Transpose Selection - Delete Selection | Excel Discussion (Misc queries) | |||
Excel range selection as if dragging, keyboard not responding | New Users to Excel | |||
Copy and dragging cells | Excel Worksheet Functions |