hi
i have a macro that take some files and copy them into one sheet.
but i want to use pastespecial instead simple copy .
ie : in book2 , i can't see c3 .
HOW CAN I DO THIS THING ?
THIS IS MY CODE :
Sub filecopy()
Application.ScreenUpdating = False
aw = ActiveWorkbook.Name
directory = "c:\test"
ChDir directory
myfile = Dir(directory & "/*.xls")
Do Until myfile = ""
Workbooks.Open myfile
Sheets(1).Select
Windows(myfile).Activate
Range("a1:d100").Select
Selection.Copy
Workbooks(aw).Activate
Sheets(1).Select
[a65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(myfile).Close False
myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub
i have a macro that take some files and copy them into one sheet.
but i want to use pastespecial instead simple copy .
ie : in book2 , i can't see c3 .
HOW CAN I DO THIS THING ?
THIS IS MY CODE :
Sub filecopy()
Application.ScreenUpdating = False
aw = ActiveWorkbook.Name
directory = "c:\test"
ChDir directory
myfile = Dir(directory & "/*.xls")
Do Until myfile = ""
Workbooks.Open myfile
Sheets(1).Select
Windows(myfile).Activate
Range("a1:d100").Select
Selection.Copy
Workbooks(aw).Activate
Sheets(1).Select
[a65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks(myfile).Close False
myfile = Dir
Loop
Application.ScreenUpdating = True
End Sub