Concating Numbers and Dates Columns

[Julmust Jaeger]

Hello,

I am trying to make a pretty simple CONCAT macro to combine cells from each row (A & B) into a new column (D). A is composed of numbers and B is composed of dates (dd/mm/yy).

I have ended up with the following code which works very well posted in an earlier thread.

I am looking to make too small changes, though, I would like to not have the column have to be filled for it to run (I think this is the IF({1}," portion) and I would like the column B to remain in Date format.

Sub mayoung()
   With Range("D2", Range("D" & Rows.Count).End(xlUp))
      .Value = Evaluate("If({1}," & .Offset(, -3).Address & "&""_""&" & .Offset(, -2).Address & ")")
   End With
End Sub

Other VBA solutions/approaches are also obviously welcome!

TYA!

 

[Fluff]

How about

Sub Julmust()
   With Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate("If({1}," & .Offset(, -3).Address & "&""_""&text(" & .Offset(, -2).Address & ",""dd/mm/yy""))")
   End With
End Sub

 

[Julmust Jaeger]

Amazing, thanks!

Super awesome that you were the one to answer my question too since you answered the OP!

 

[Fluff]

Glad to help & thanks for the feedback.