Macro wont run formula

[Jibroni]

Hello,

Here is my code:

Sub Wordpress_CSV_Insert_Formula()

Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row

Range("C2").Formula = "=CONCAT(B2, " (", A2, ")" )"
Range("C2").AutoFill Destination:=Range("C2:C" & lastRow)

End Sub

I get an error on the formula line.

Here is my spreadsheet:

Class ID	Course Title	Calendar Event Name
06052022_GST_301	301 Administration Fundamentals	301 Administration Fundamentals (06052022_GST_301)
08102022_CET_401	401 Custom MPE Rules Using Regular Expression
08122022_CET_402	402 Threat Detection with AI Engine

I applied the same formula directly to the C2 cell and it correctly returned the formula result. But the macro simply won't run. What am I doing wrong?

 

[Alex Blakenburg]

I think you just want this:

Range("C2").Formula = "=CONCAT(B2,"" "",A2)"

 

[Michael M]

Easier ??

Sub Wordpress_CSV_Insert_Formula()
Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=CONCAT(B2,"" "",A2)"
End Sub

 

[Jibroni]

Hi, my apologies, I should have specified that the formula needs to return a value that looks like this: 301 Administration Fundamentals (06052022_GST_301)
which is the value in B2 with the value in A2 in "( )".

 

[Michael M]

Sub Wordpress_CSV_Insert_Formula()
Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=B2&"" ""&""(""&A2&"")"""
End Sub

 

[Jibroni]

Perfect! Thank you so much @Michael M !!

 

[Michael M]

Glad to help...