Quotes within a VBA CONCATENATE string formula to be put in worksheet

I've got the code below, which works fine to produce the following value:
(A1)=SAPMAC613P
(it figures out how many rows of data, then picks up the column A value, adds some text and the row number)

I want to have the formula produce the following result including the quotation marks:
A(1)="SAPMAC613P"
but I can't figure out how to get the other quotes to be put in.  I've tried the """" and Char(34) method but can't get it right.
Thanks.

Const ResultColumn = "E" 'column for result pasting
 
Dim lRow As Long
   lRow = Range("A" & Rows.Count).End(xlUp).Row
 
Range(Cells(1, ResultColumn), Cells(lRow, ResultColumn)).FormulaR1C1 = _
    "=CONCATENATE(""(A"" & row() & "")="" &  RC[-4] )"

Open in new window

SheaJeffAsked:
Who is Participating?
 
wdosanjosConnect With a Mentor Commented:
Try this:

Range(Cells(1, ResultColumn), Cells(lRow, ResultColumn)).FormulaR1C1 = _
    "=CONCATENATE(""A(" & row() & ")=""""" & RC[-4] & """"""")"

Open in new window

0
 
SheaJeffAuthor Commented:
I'm getting a Syntax Error with this one  :(
0
 
SheaJeffAuthor Commented:
I got it!
You were missing a couple of quotes.
Range(Cells(1, ResultColumn), Cells(lRow, ResultColumn)).FormulaR1C1 = _
    "=CONCATENATE(""A("" & row() & "")="""""" & RC[-4] & """""""")"

Open in new window

0
 
SheaJeffAuthor Commented:
Solution was pretty close; just missing some quotation marks; see my working code below
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.