Combine Data from 2 worksheets

K

Krefty

Thanks for looking at my problem...I want to create a 3rd
worksheet in this workbook that puts text data from
worksheet A on top of data from worksheet B into the new
worksheet C so that I can print both onto one piece of
paper, Maybe I don't even need to create worksheet C to
achieve this?

ANy assistance would be greatly appreciated.

Krefty
 
B

Bill Kuunders

Should be able to copy the rows of data from sheet A and insert them above
the rows on sheet B.
Highlight the rows by dragging the pointer through the row numbers---right
click ---copy---
Select the row where to insert on sheet B---right click ---insert copied
cells

Regards
Bill K
 
D

Dave Peterson

If the worksheets are laid out nicely (same column width especially), you could
record a macro when you insert a new sheet, copy the usedrange from each
worksheet and paste into the new worksheet.

But if the columns are different, then your hardcopy won't look too pretty.

Manually, you can
select your range
edit|copy
select a cell to paste on that new sheet
shift-edit|paste picture link

(and repeat)

This will copy a picture of each range. You change a cell, the picture gets
updated. You change the fill color and the picture gets updated. You
delete/insert rows and that one picture gets updated--but the pictures
below/above don't move (so watch out for that).

If that sounds ok, you could try something like:

Option Explicit
Sub testme2()

Dim myWksNames As Variant
Dim iCtr As Long
Dim newWks As Worksheet
Dim NextRow As Long

myWksNames = Array("sheet1", "sheet2")
Set newWks = Worksheets.Add

NextRow = 1

With ActiveWorkbook
For iCtr = LBound(myWksNames) To UBound(myWksNames)
.Worksheets(myWksNames(iCtr)).UsedRange.Copy
With newWks
Application.Goto .Cells(NextRow, "A")
.Pictures.Paste Link:=True
NextRow = .Pictures(.Pictures.Count).BottomRightCell.Row + 1
End With
Next iCtr
End With
End Sub

======
Since it copies the usedrange, you may want to reset it before you run this
code.

Debra Dalgleish has some techniques at:
http://www.contextures.com/xlfaqApp.html#Unused
 
Top