Hi
I am hoping someone can help me with the below. I have the below code and it almost doing what I need it to do
The below code will join my columns like this:
policy_id;"trans_process_date;"trans_type;"trans_reason;
But I need it to join them like this
policy_id;"trans_process_date";"trans_type";"trans_reason";
I need the ; separator to come after the " when joining each column.
I am sure it is obvious what needs to be changed but I cant work it out , any help with this is greatly appreciated.
Thanks
I am hoping someone can help me with the below. I have the below code and it almost doing what I need it to do
The below code will join my columns like this:
policy_id;"trans_process_date;"trans_type;"trans_reason;
But I need it to join them like this
policy_id;"trans_process_date";"trans_type";"trans_reason";
I need the ; separator to come after the " when joining each column.
I am sure it is obvious what needs to be changed but I cant work it out , any help with this is greatly appreciated.
Thanks
VBA Code:
Sub V1_Policy_Creator()
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "V.1 Policy"
Dim i As Long
Dim Lastrow As Long
Lastrow = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To Lastrow
Range("A" & i).Formula = Join(Application.Index(Range("B" & i & ":DE" & i).Value, 1, 0), ";" & """")
Next i