How to copy two cells and combine them to another cell using VBA .offset

[NYRANGERS423]

Ok so here is my scenario, I need to take Information from column B and column C and combine them to Column N. But what I am trying to do is not working. I am writing this
Target.Offset(0,12) = Target.Offset(0, 4) & Target.Offsey(0,5)

 

[My Aswer Is This]

Try this:

Sub Combine_Values()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row

    For i = 1 To Lastrow
        Cells(i, 14).Value = Cells(i, 2).Value & Cells(i, 3).Value
    Next

Application.ScreenUpdating = True
End Sub

 

[Peter_SSs]

Ok so here is my scenario, I need to take Information from column B and column C and combine them to Column N. But what I am trying to do is not working. I am writing this
Target.Offset(0,12) = Target.Offset(0, 4) & Target.Offsey(0,5)

How are you trying to do that? The use of 'Target' indicates perhaps some worksheet 'event' is being used?

Note that Target.Offset(0,4) will never be column B as the 'Target' would need to off the left of the worksheet to be 4 columns to the left of column B.

 

[NYRANGERS423]

Try this:

Sub Combine_Values()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row

    For i = 1 To Lastrow
        Cells(i, 14).Value = Cells(i, 2).Value & Cells(i, 3).Value
    Next

Application.ScreenUpdating = True
End Sub

I modified the code a little bit and IT works great !!! Great help! Thank you.

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

I modified the code a little bit and IT works great !!! Great help! Thank you.

 

[Peter_SSs]

You could also consider filling in the whole column at once, rather than row-by-row.

Sub Combine_Vals()
  With Range("N2:N" & Range("B" & Rows.Count).End(xlUp).Row)
    .Value = Evaluate(.Offset(, -12).Address & "&" & .Offset(, -11).Address)
  End With
End Sub