Colums in different sheets to one colum

[Nina07]

Hello,

I have the following problem:

I have a workbook with 3 sheets:
Sheet 1 and 2 contain data in columns A, B and C.

like this:

	(sheet1)A	B	C		(Sheet2)A	B	C
1	aaa	111	ABC		zzz	999	XYZ
2	bbb	222	DEF		yyy	888	UVW
3	ccc	333	GHI		xxx	777	RST
4	ddd	444	JKL		www	666	OPQ
5	eee	555	MNO		vvv	555	LMN

I want the result to be the following in sheet 3:

	(sheet3)A	B	C
1	aaa	111	ABC
2	bbb	222	DEF
3	ccc	333	GHI
4	ddd	444	JKL
5	eee	555	MNO
6	zzz	999	XYZ
7	yyy	888	UVW
8	xxx	777	RST
9	www	666	OPQ
10	vvv	555	LMN

Can anyone help me with this please?

If the problem isn't clear, feel free to ask.

Thanks,
Nina

[Pepe Le Mokko]

This add-in does the trick

[sktneer]

Try this.......

Sub combinedata()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim lr3 As Long
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
Set ws3 = Worksheets("sheet3")
Application.ScreenUpdating = False
ws3.UsedRange.Clear
lr3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row
ws1.Range("A1").CurrentRegion.Copy Destination:=ws3.Range("A" & lr3)
lr3 = ws3.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws2.Range("A1").CurrentRegion.Copy Destination:=ws3.Range("A" & lr3)
ws3.Activate
Application.ScreenUpdating = True
End Sub

Please find the attached sheet to see if this is what you want.

[Nina07]

Hello,

Thanks for the replies!

Unfortunatly I can't use a plugin. The workbook has to be used on different pc's and installing it on all the pc's can't be done.

The macro works perfectly. the only 'problem' is that sheet 3 doesn't updat automaticaly. However, I'm very happy with it!

Thanks for the quick replies!!

[sktneer]

Glad it helped. Thanks for the feedback. You may also click on * (star) to Add Reputation if you think that the solution provided helped you. This is another way to say thanks to those who have put their time and efforts to help you in this forum.