Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro lagging when copying columns to other sheet
This segment of codes lags terribly, and I'm not sure why. When I
Break then Continue the code, it speeds up again. Is there any way I can tidy up the following code to make it more efficient? '* Create destination Workbook and move data to it DestRptCols = Array("Trans Type", "Trans ID", "Event ID", "Location ID", "Constit ID", _ "Constit Type", "First Name", "Last Name", "Eng/Fr", "Address Line1", _ "City", "Prov", "Postal Code", "Country", "Home Email", "Email Y/N", _ "Registration Fee", "Registration Fee Amount", "Donation Date", _ "Donation Amount", "Tax Receipt Number", "Tax Receipt Amount", _ "Payment Method", "CC Transaction ID", "CC Type", "CC Holder Name") Set DestBk = Workbooks.Add DestCols = 0 SrcLast = LastRow(SrcWS) For Each Thing In DestRptCols SourceBk.Activate Set MyCell = Cells.Find(Thing, After:=ActiveCell, LookIn:=xlFormulas, _ Lookat:=xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False).Columns Range(MyCell.Address & ":" & MyCell.Offset(SrcLast, 0).Address).Copy DestCols = DestCols + 1 With DestBk.Sheets(1).Columns(DestCols) .PasteSpecial Paste:=8 .PasteSpecial xlPasteValues .PasteSpecial xlPasteFormats End With Next |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Issue removing leading and lagging spaces | Excel Programming | |||
Copying sheet with hidden columns | Excel Programming | |||
2 questions, copying data from sheet to sheet and assigning macro | Excel Worksheet Functions | |||
Copying the entire sheet if columns H & G are equal to row. | Excel Programming | |||
Copying rows with spesified data on one or more columns from sheet/file to another? | Excel Programming |