Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy ActiveWorksheet Columns B,C,F to Another Worksheet in Workboo
I would like to copy from the ActiveWorksheet Columns B2,C2,F2 starting at row 3 until B column row is null to the TEST worksheet. The TEST worksheet will start at row 2 because of headers the column mappings will correspond to the list below. ActiveWorksheet.Column Test.Column B D C F F H Please help me with this script. Thanks so much for your help. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy ActiveWorksheet Columns B,C,F to Another Worksheet in Workboo
I think I understand what you want to do. See if the sub below takes care
of it. _________________________________ Sub TransferColumns() Dim rngOriginB As Range Dim rngOriginC As Range Dim rngOriginF As Range Dim rowTop As Integer Application.ScreenUpdating = False rowTop = Range("B65536").End(xlUp).Row Set rngOriginB = Range("B3:B" & rowTop) Set rngOriginC = Range("C3:C" & rowTop) Set rngOriginF = Range("F3:F" & rowTop) rngOriginB.Copy Sheets("Test").Activate ActiveSheet.Paste (Sheets("Test").Range("D2")) rngOriginC.Worksheet.Activate rngOriginC.Copy Sheets("Test").Activate ActiveSheet.Paste (Sheets("Test").Range("F2")) rngOriginF.Worksheet.Activate rngOriginF.Copy Sheets("Test").Activate ActiveSheet.Paste (Sheets("Test").Range("H2")) Application.ScreenUpdating = True End Sub ___________________________________ Steve "Joe K." <Joe wrote in message ... I would like to copy from the ActiveWorksheet Columns B2,C2,F2 starting at row 3 until B column row is null to the TEST worksheet. The TEST worksheet will start at row 2 because of headers the column mappings will correspond to the list below. ActiveWorksheet.Column Test.Column B D C F F H Please help me with this script. Thanks so much for your help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Keyboard Shortcut to toggle b/w Find and Replace and ActiveWorksheet? | Excel Discussion (Misc queries) | |||
How can I copy the header and footers onto every page on a workboo | Excel Worksheet Functions | |||
Can columns be hidden accross multiple sheets in an Excel workboo | Excel Worksheet Functions | |||
Macro question - Need to copy data & formatting to another workboo | Excel Programming | |||
How do I copy a worksheet without the link to the original workboo | Excel Discussion (Misc queries) |