Status: Solved
Priority: Medium
Security: Public
Views: 144
Last Modified: 2012-12-31

Excel Compile error

When I use =
TRIM(CONCATENATE(AK2," ",AQ2)) and drag down, it works fine
but I need to use this in a macro and when I use
Sub SetCode()
Range("AP2").Select
ActiveCell.FormulaR1C1 = _
"=TRIM(CONCATENATE(AK2," ",AQ2))"
FillDown
End Sub

I'll get a compile error * Expected: end of statement
If I change the code to
"=TRIM(CONCATENATE(AK2,"" "",AQ2))"
I get past the error and the macro will run but it will change the code to
"=TRIM(CONCATENATE('AK2'," ",'AQ2'))"
and it just fills the column with the #NAME

Can anyone tell me how to fix this ?

GD_GRAY

Asked: 2012-12-26

Advertise Here

Microsoft Excel

1 Solution

LVL 143

Guy Hengel [angelIII / a3]Billing EngineerCommented: 2012-12-26

>If I change the code to
>"=TRIM(CONCATENATE(AK2,"" "",AQ2))"
>I get past the error and the macro will run
and it should be like this indeed.
if you look after the code, the value in the cell will be indeed:
=TRIM(CONCATENATE(AK2," ",AQ2))

the "" in the vba code is only because " is already a string delimiter, and the duplicated double quotes is to "escape" the double quotes.

GD_GRAYAuthor Commented: 2012-12-26

How would I work around this

GD_GRAYAuthor Commented: 2012-12-26

Made work around via Record Macro. I set to record macro than did the drag and than used that formula :

=TRIM(CONCATENATE(RC[-5],"" "",RC[1]))

LVL 85

Rory ArchibaldCommented: 2012-12-27

FYI you could also simply have changed the code to use .Formula instead of .FormulaR1C1
If you use the latter, you have to pass a formula in R1C1 style referencing and not A1 style. (2003 and earlier were more forgiving about that)

GD_GRAYAuthor Commented: 2012-12-31

I was able to work it out via record macro.

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.

Excel Compile error

Join & Write a Comment Already a member? Login.

Featured Post