Concatenate

[Forestq]

hi,

how to write CONCATENATE function to connect 3 fields (AM, AN, AO).

For i = 5 To x_ws1_rows

        ws1.Range("AK" & i).Value = ws1.Range("AG" & i).Value
        
        day1 = Day(ws1.Range("AK" & i).Value)
        ws1.Range("AM" & i).Value = day1
        
        month1 = Month(ws1.Range("AK" & i).Value)
        ws1.Range("AN" & i).Value = month1
        
        year1 = Year(ws1.Range("AK" & i).Value)
        ws1.Range("AO" & i).Value = year1
        
        'ws1.Range("AJ" & i).Value = "=CONCATENATE(ws1.Range("AM" & i).Value;ws1.Range("AN" & i).Value;ws1.Range("AO" & i).Value)"
        
Next i

 

[Ingolf]

Maybe this:

For i = 5 To x_ws1_rows

        ws1.Range("AK" & i).Value = ws1.Range("AG" & i).Value
         
        ws1.Range("AM" & i).Value = Day(ws1.Range("AK" & i).Value)
        
        ws1.Range("AN" & i).Value = Month(ws1.Range("AK" & i).Value) 
        
        ws1.Range("AO" & i).Value = Month(ws1.Range("AK" & i).Value)
        
        ws1.Range("AJ" & i).Value = ws1.Range("AM" & i).Value & ws1.Range("AN" & i).Value & ws1.Range("AO" & i).Value)"
        
Next i

 

[Forestq]

I was doing like this, but there was formating issue.

I did as below:

ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[3],""/"",RC[4],""/"",RC[5])"