PDA

View Full Version : get data macro



keilah
08-22-2007, 01:13 AM
Hi

Need help with a macro that will copy and paste all data from one workbook "Monthly Income Report"

data range: row 1 col A (start) to col N for all row down say to 500.

and paste this into a second workbook "RevalComparisonModel"

data range: row 5 col A (start) to col N (all the way down in rows to match data from first workbook). - macro button to be placed in second workbook.

the number of columns remains fixed cannot change always A to N......and the start of each row has to be:

row 1 - firstworkbook and row 5 second workbook.

thanks.......for all your help/feedback developers.....

Bob Phillips
08-22-2007, 01:21 AM
Const TARGET_WB As String = "Book3"
Dim iLastRow As Long

With ActiveSheet
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").Resize(iLastRow, 14).Copy Workbooks(TARGET_WB).Worksheets(1).Range("A5")
End With

keilah
08-22-2007, 01:25 AM
Thanks for the feedback