Rajkumar_h
New Member
- Joined
- Oct 4, 2013
- Messages
- 20
Hello
I am using this code to copy data and paste it into another workbook but this works very slow
Please help
Thanks in advance,
Raj
I am using this code to copy data and paste it into another workbook but this works very slow
Please help
Code:
With Range("A8:AJ" & NewLr)
.Parent.AutoFilterMode = False
.AutoFilter 1, "COPY ME"
.Range("B9:G" & NewLr).SpecialCells(xlCellTypeVisible).Copy Workbooks(EBMFile).Sheets("Page").Range("C" & PageLRow + 1)
Union(.Range("H9:H" & NewLr), .Range("J9:J" & NewLr)).SpecialCells(xlCellTypeVisible).Copy Workbooks(EBMFile).Sheets("Page").Range("M" & PageLRow + 1)
.Parent.AutoFilterMode = False
End With
Thanks in advance,
Raj
Last edited: