Copy many columns and past it in one single column
Closed
dobdobdob
Posts
2
Registration date
Sunday January 6, 2013
Status
Member
Last seen
January 6, 2013
-
Jan 6, 2013 at 01:02 AM
Zohaib R Posts 2368 Registration date Sunday September 23, 2012 Status Member Last seen December 13, 2018 - Jan 6, 2013 at 03:43 AM
Zohaib R Posts 2368 Registration date Sunday September 23, 2012 Status Member Last seen December 13, 2018 - Jan 6, 2013 at 03:43 AM
Related:
- Copy many columns and past it in one single column
- Display two columns in data validation list but return only one - Guide
- Tweetdeck larger columns - Guide
- How to delete rows and columns in word - Guide
- Vba select column by name ✓ - Excel Forum
- Insert a new sheet at the end of the tab names and paste the range names starting in cell a1. autofit columns a:b and name the worksheet as range names. ✓ - Excel Forum
3 responses
Zohaib R
Posts
2368
Registration date
Sunday September 23, 2012
Status
Member
Last seen
December 13, 2018
69
Jan 6, 2013 at 01:49 AM
Jan 6, 2013 at 01:49 AM
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.
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
Posts
2
Registration date
Sunday January 6, 2013
Status
Member
Last seen
January 6, 2013
Jan 6, 2013 at 02:08 AM
Jan 6, 2013 at 02:08 AM
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
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
Posts
2368
Registration date
Sunday September 23, 2012
Status
Member
Last seen
December 13, 2018
69
Jan 6, 2013 at 03:43 AM
Jan 6, 2013 at 03:43 AM
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.
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.
