copy and paste macro

[k_babb]

Could some please help with a macro that asks the user for a column to copy then asks for where is should be pasted

the copy will be from sheet one and the paste will be on sheet 2

thank you

 

[VoG]

Try

Sub atest()
Dim s As String, X
s = InputBox("Enter From and To column letters separated by comma, e.g. H,A")
X = Split(s, ",")
Sheets("Sheet1").Columns(LBound(X)).Copy Destination:=Sheets("Sheet2").Range(X(UBound(X)) & 1)
End Sub

 

[k_babb]

Excellent thanks for that!! just wondering going one step further is the a way to as the user for the columns then paste them into sheet 2 in order
so say i want to copy A,C,D,E,AA from sheet one into sheet 2 just starting at column A so A,B,C,D,E is there away to do that

 

[k_babb]

i have about 20 columns on 30 workbooks i need to be able to copy to sheet 2 then i will be putting in to a new workbook

 

[VoG]

Maybe like this

Sub btest()
Dim s As String, i As Long, X
s = InputBox("Enter From column letters separated by comma, e.g. A,C,AA")
X = Split(s, ",")
For i = LBound(X) To UBound(X)
    Sheets("Sheet1").Columns(X(i)).Copy Destination:=Sheets("Sheet2").Cells(1, i + 1)
Next i
End Sub