resize worksheet

[alexanderd]

i have two separate workbooks both open and for reasons of securit
neither authors are able to see the others input.

i have been given the task of marrying two worksheets from separat
workbooks into one worksheet.

resize seems the obvious choice, copy and paste one worksheet to th
new worksheet, and add the copy of the second workbook to the end o
the first part of the new worksheet.

ok if this was a nominal cut and paste but the size of the info varie
from day to day hence my request for help.

any one any pointer to a solution!

 

[Ron de Bruin]

Hi Alex

If I understand you correct?
http://www.rondebruin.nl/copy1.htm

 

[Tom Ogilvy]

Dim rng1 as Range, rng2 as Range, rng3 as Range
set rng1 = workbooks("Book1.xls").Worksheets("Sheet1") _
.Range("A1").CurrentRegion
set rng2 = Workbooks.book2.xls").Worksheets("Sheet1") _
.Range("A1").CurrentRegion

With Workbooks("Book3.xls").Worksheets("Sheet1")
set rng3 = .Range("A1")
rng1.copy Destination:=rng3
set rng3 = .Cells(rows.count,1).End(xlup)
rng2.copy Destination:=rng3
End With

 

[alexanderd]

having just become a grand father for the first time dosen't give yo
much time to think about anything else( 7lb 1 once baby girl maisy) an
now back to things more to earth.

to ron ( you must be a mind reader ) i would like to say a great bi
thank you, every thing work in a very effective way and makes life
lot easier for all involved.

how you , your fellow MVP'S find time to help mere mortals baffles me
as dose my thanks to every one who replies to a call for help.

i would recomend any to look at back questions and follow where th
replies lead to some great help out there.

once again thanks to al