copy many columns and past it in one single column Closed

Question

Hello, I am trying to copy many columns C,D, and G and paste them into on column B in the first blank cell in the same sheet and I will need to do the same procedure but copy from one sheet to another ?I am very new with this and I have no idea which code should be written I would like you to help in that. I have tried to record a macro for copy many columns and I did that but I could not write a code to paste them automatically in column B in the first blank cell...
Please help me.

Configuration: Mac OS X Snow Leopard (10.6.8) / Safari 5.1.7

Zohaib R · Answer

Hi dobdobdob,

Instead of using `Copy' and `Paste' use the below mentioned formula in `B1' and drag using the Microsoft Excel Fill Handle till the last row:

=C1 & " " & D1 & " " & G1

Do reply with results.

dobdobdob · Answer

Hi zohaib R    
I am using this code   

Sub copy2()
'
' copy2 Macro
'
' Keyboard Shortcut: Option+Cmd+j
'

Range("C163:C183").Select
Selection.copy
Range("B183").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, transpose:=False
lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lMaxRows + 1).Select
    
End Sub


What I want is to use the same code for next column now this macro works for column c only when I tried to run it for next column e.g. column D it is not work. I need to multiply the action for many columns here am facing problem?



Many Thanks

Zohaib R · Answer

Hi dobdobdob,

Your code is good; add the following lines to your code to duplicate the action for Column D:

Range("D183").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
lMaxRows = Cells(Rows.Count, "D").End(xlUp).Row
Range("D" & lMaxRows + 1).Select

Please revert for clarification.

Copy many columns and past it in one single column

3 responses

Similar discussions

Subscribe To Our Newsletter!