Hello, Im trying to learn VB codeing but with the hours spent getting nowhere I could have linked all the cells.Hopefully I will benefit in the future.
I have a sheet with 80 columns. Every 2nd column sums to the same row. I wish to copy this row to sheet2 but have them displayed vertically ie;A1:A40 without any gaps. I have tried the following but:
Example:
Sub Copyone()
Sheets("Sheet1").Select
Range("C12,E12,G12,I12,K12,M12").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B1:B6").Select
ActiveSheet.Paste
End Sub
But I have to enter 40 Ranges for sheet 1 indvidually - any easier way and when it pastes down it does so but in 6 columns wide as well.
It pastes horizontally alright. Do I need to paste horizontally to a hidden sheet and then convert from this to vertically.
Any guidence would be appreciated.
Thank You.
I have a sheet with 80 columns. Every 2nd column sums to the same row. I wish to copy this row to sheet2 but have them displayed vertically ie;A1:A40 without any gaps. I have tried the following but:
Example:
Sub Copyone()
Sheets("Sheet1").Select
Range("C12,E12,G12,I12,K12,M12").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B1:B6").Select
ActiveSheet.Paste
End Sub
But I have to enter 40 Ranges for sheet 1 indvidually - any easier way and when it pastes down it does so but in 6 columns wide as well.
It pastes horizontally alright. Do I need to paste horizontally to a hidden sheet and then convert from this to vertically.
Any guidence would be appreciated.
Thank You.