Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Active Range from one workbook to another
i need a few lines of code to determine the active rows in columns A and B
and copy from one work book to another. i kind of understand the loop, but not a lot. i need to select/copy the active cells in workbook one (always Columns A and B) and paste them in the next blank row in Column A/B of workbook two. i know that to find the next blank cell where to paste is the following: Range("A1").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True help would be appreciated, jatman |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Active Range from one workbook to another
Hi Jatman
This uses the Autofilter to copy the cells with data in Column A over to another workbook and places them at the bottom of the used range in this workbook. Change to suit. Take care Marcus Option Explicit Sub test() Dim wb1 As Workbook Dim wb2 As Workbook Dim lw As Integer Dim lr As Integer Set wb1 = ActiveWorkbook Set wb2 = Workbooks("BOOK3")'Change to your workbook name lr = Range("A" & Rows.Count).End(xlUp).Row lw = wb2.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Columns(1).AutoFilter Field:=1, Criteria1:="<" Range(Cells(2, 1), Cells(lr, 2)).Copy wb2.Sheets("Sheet1").Range("A" & lw) End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy Range from Open Workbook to Active Workbook | Excel Programming | |||
copy value from active sheet to another workbook | New Users to Excel | |||
VB to copy a sheet to active workbook | Excel Programming | |||
copy worksheet from closed workbook to active workbook using vba | Excel Worksheet Functions | |||
Copy Modules from One workbook to Active Workbook | Excel Programming |