Copying and Pasting

[abdullahsikandar]

Hi Guys,

I need a small help from you guys, I need to copy Paste Column A,B,C and D column into the end of the sheet with their headings.

Can anyone help me out in that case?

Thanks in Advance

 

[wigi]

You should definitely provide more information, because I don't understand what you want to achieve.

 

[abdullahsikandar]

Well i have an excel sheet which have 20 columns and what i need is to copy column 4,5,6 and 7 in the last by using macro.

I have a button so what i need is whenever i click that button it will automatically copy and paste column 4,5,6 and 7 in the end of the columns.

Did you get it now? Sorry for the misconception..

 

[wigi]

Still rather unclear. Something like?

Range("D1", Cells(Rows.Count, "G").End(xlUp)).Copy Cells(1, Columns.Count).End(xlToLeft).Offset(1)

 

[abdullahsikandar]

Still rather unclear. Something like?

Range("D1", Cells(Rows.Count, "G").End(xlUp)).Copy Cells(1, Columns.Count).End(xlToLeft).Offset(1)

Example:

Column A	Column B	Column C	Column D	Column E
Ab	CD	EE	GG	HH
JJ	kK	LL	KJ	As
WS	Edd	Dffg	swqe	sZxc
x	1	1	2	45

<tbody>
</tbody>

This is an Excel sheet before code:

When we press the button this will happen automatically:

Column A	Column B	Column C	Column D	Column E	Column B	Column C	Column A
Ab	CD	EE	GG	HH	CD	EE	Ab
JJ	kK	LL	KJ	As	KK	LL	KJ
WS	Edd	Dffg	swqe	sZxc	Edd	Dffg	swge
x	1	1	2	45	1	1	x

<tbody>
</tbody>

This would be the result when i would press the button. I guess this will clear you.

 

[wigi]

I don't understand the logic. I see that you are copying cells but I cannot see a clear pattern.
Or it must be pasting errors from your side.

 

[abdullahsikandar]

Hi,

After Column E, You can see that i am pasting Column B, C and A so i need that through macro.

 

[abdullahsikandar]

Or i can say like that I need to copy and paste the columns when the columns finished.

The code you sent me earlier that`s working but the headings are coming on the second row not in the first and I don`t need a group of column i need it separately so i can make it work easily like for Example i need column A, B and E.

 

[wigi]

Range("B2", Cells(Rows.Count, "B").End(xlUp)).Copy Cells(2, Columns.Count).End(xlToLeft).Offset(1)
Range("C2", Cells(Rows.Count, "C").End(xlUp)).Copy Cells(2, Columns.Count).End(xlToLeft).Offset(1)
Range("A2", Cells(Rows.Count, "A").End(xlUp)).Copy Cells(2, Columns.Count).End(xlToLeft).Offset(1)

This should help you. Please experiment before posting, should it not be 100% what you need.