PDA

View Full Version : [SOLVED] Values from 2 collumns into 1 column



Ethan
05-20-2015, 11:22 AM
I am trying to get values from 2 columns into one, but can't get it done.
This is what I tried



Range("J12:J" & LRow + 1).Value = Range("P11:P" & LRow).Value & " | " & Range("Z11:Z" & LRow).Value


all help welcome

SamT
05-20-2015, 11:42 AM
I'm using Rw instead of Lrow + 1.


Dim Rw As String
For Each Cel in Range("J12:J" & CStr(LRow + 1))
Rw = CStr(Cel.Row - 1)
Cel. = Range("P" & Rw) & " | " & Range("Z" & Rw)
Next Cel

Ethan
05-20-2015, 11:50 AM
Thank you SamT

It worked.
Only had to change the following line a bit:



Cel.value = Range("P" & Rw) & " | " & Range("Z" & Rw)

SamT
05-20-2015, 03:25 PM
I'm sorry about that. I am really embarrassed by my code today :ack: