what am I doing wrong here

[tonyBruckner]

I'm trying to write a simple formula into cell A2 to get the value 3 to appear in it...

if cell A1 = 3

Sub writeFormula
Dim cellValue as string

range("A1").select
cellValue = activeCell.address
range("A2").select
activeCell.FormulaR1C1 = "=" & cellValue

End Sub

The hover looks right but I get an alert that disqualifies the last line. I've tried several variations...

What is the correct syntax?

 

[xenou]

You are using the R1C1 formula property but not an R1C1 formula.

activeCell.[COLOR="Red"]FormulaR1C1[/COLOR] = "=" & cellValue

Amend to:

activeCell.Formula = "=" & cellValue

 

[Peter_SSs]

Not sure if you are just investigating syntax, but you generally do not need to select things in vba to work with them. Your whole macro could be replaced with

Sub writeFormula()
    Range("A2").Formula = "=A1"
End Sub

Or if you wanted to use R1C1 notation

Sub writeFormula()
    Range("A2").FormulaR1C1 = "=R[-1]C"
End Sub