Select and copy Multiple Column at the same time and past.

[Gwhaou]

Hello, I need some help, I want to know if it's possible to select mutiple columns from one row until down : for exemple select A5, B5, C5 until down and copy to paste it on a other sheet.

For the moment I use this type of code which move between sheets column by column :

Public CopyPaste()

Call Supp_Arr

Sheets("Original_Sheet").Select


   
   
    Range("A5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Paste_Sheet").Select
    Range("A5").Select
    ActiveSheet.Paste
   
 
Sheets("Original_Sheet").Select

   
    Range("B5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Paste_Sheet").Select
    Range("B5").Select
    ActiveSheet.Paste
   
Sheets("Original_Sheet").Select

   
    Range("C5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Paste_Sheet").Select
    Range("C5").Select
    ActiveSheet.Paste
   
Sheets("Original_Sheet").Select

   
    Range("D5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Paste_Sheet").Select
    Range("D5").Select
    ActiveSheet.Paste

Sheets("Original_Sheet").Select

   
End Sub

I'm trying to improv my skills on VBA, that why I want to know if it's possible to select A5,B5,C5,D5 until down in one line and copy that to paste it on the Paste_Sheet.

 

[vcoolio]

Hello GWH,

You could try something like this as an example:-

Sub GWH()

Dim lr As Long
lr = Sheets("Original_Sheet").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A" & Rows.Count).End(3)(2)

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[Gwhaou]

Hello GWH,

You could try something like this as an example:-

Sub GWH()

Dim lr As Long
lr = Sheets("Original_Sheet").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A" & Rows.Count).End(3)(2)

End Sub

I hope that this helps.

Cheerio,
vcoolio.

Yes I'm gonna try that, thks

 

[Gwhaou]

I got a little problem de Paste_Sheet is available from row 5, is possible to paste from A5 on that ?

Sub GWH()

Dim lr As Long
lr = Sheets("Original_Sheet").Range("A" & Rows.Count).End(xlUp).Row

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A5" & Rows.Count).End(3)(2)

End Sub

I modify that but i think it's not the correct form

 

[vcoolio]

Hello GWH,

Change this line:-

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A" & Rows.Count).End(3)(2)

to

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A5")

Cheerio,
vcoolio.

 

[Gwhaou]

Hello GWH,

Change this line:-

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A" & Rows.Count).End(3)(2)

to

Sheets("Original_Sheet").Range("A5:D" & lr).Copy Sheets("Paste_Sheet").Range("A5")

Cheerio,
vcoolio.

Tks that's work's for me

 

[vcoolio]

You're welcome GWH. I'm glad that I was able to assist. Thanks for the feed back.

Cheerio,
vcoolio.