**Bottom line:** Learn 3 tips for writing and creating formulas in your VBA macros with this article and video.

**Skill level:** Intermediate

## Download the File

Download the Excel file to follow along with the video.

3 Tips For Writing Excel Formulas In VBA.xlsm (82.3 KB)

## Automate Formula Writing

Writing formulas can be one of the most time consuming parts of your weekly or monthly Excel task. If you're working on automating that process with a macro, then you can have VBA write the formula and input it into the cells for you.

Writing formulas in VBA can be a bit tricky at first, so here are 3 tips to help save time and make the process easier.

## Tip #1: The Formula Property

The Formula property is a member of the Range object in VBA. We can use it to set/create a formula for a single cell or range of cells.

There are a few requirements for the value of the formula that we set with the Formula property:

- The formula is a string of text that is wrapped in quotation marks. The value of the formula must start and end in quotation marks.
- The formula string must start with an equal sign = after the first quotation mark.

Here is a simple example of a formula in a macro.

```
Sub Formula_Property()
'Formula is a string of text wrapped in quotation marks
'Starts with an = sign
Range("B10").Formula = "=SUM(B4:B9)"
End Sub
```

The Formula property can also be used to read an existing formula in a cell.

## Tip #2: Use the Macro Recorder

When your formulas are more complex or contain special characters, they can be more challenging to write in VBA. Fortunately we can use the macro recorder to create the code for us.

Here are the steps to creating the formula property code with the macro recorder.

- Turn on the macro recorder (Developer tab > Record Macro)
- Type your formula or edit an existing formula.
- Press Enter to enter the formula.
- The code is created in the macro.

If your formula contains quotation marks or ampersand symbols, the macro recorder will account for this. It creates all the sub-strings and wraps everything in quotes properly. Here is an example.

```
Sub Macro10()
'Use the macro recorder to create code for complex formulas with
'special characters and relative references
ActiveCell.FormulaR1C1 = "=""Total Sales: "" & TEXT(R[-5]C,""$#,###"")"
End Sub
```

## Tip #3: R1C1 Style Formula Notation

If you use the macro recorder for formulas, you will notices that it creates code with the FormulaR1C1 property.

R1C1 style notation allows us to create both relative (A1), absolute ($A$1), and mixed ($A1, A$1) references in our macro code.

R1C1 stands for Rows and Columns.

### Relative References

For relative references we specify the number of rows and columns we want to offset from the cell that the formula is in. The number of rows and columns are referenced in square brackets.

The following would create a reference to a cell that is 3 rows above and 2 rows to the right of the cell that contains the formula.

R[-3]C[2]

Negative numbers go up rows and columns to the left.

Positive numbers go down rows and columns to the right.

### Absolute References

We can also use R1C1 notation for absolute references. This would typically look like $A$2.

For absolute references we do NOT use the square brackets. The following would create a direct reference to cell $A$2, row 2 column 1

R2C1

### Mixed References

with mixed references we add the square brackets for either the row or column reference, and no brackets for the other reference. The following formula in cell B2 would create this reference to A$2, where the row is absolute and the column is relative.

R2C[-1]

When creating mixed references, the relative row or column number will depend on what cell the formula is in.

It's easiest to just use the macro recorder to figure these out.

### FormulaR1C1 Property versus Formula Property

The FormulaR1C1 property reads the R1C1 notation and creates the proper references in the cells. If you use the regular Formula property with R1C1 notation, then VBA will attempt to put those letters in the formula, and it will likely result in a formula error.

Therefore, use the Formula property when your code contains cell references ($A$1), the FormulaR1C1 property when you need relative references that are applied to multiple cells or dependent on where the formula is entered.

If your spreadsheet changes based on conditions outside your control, like new columns or rows of data are imported from the data source, then relative references and R1C1 style notation will probably be best.

I hope those tips help. Please leave a comment below with questions or suggestions.

Hi Jon,

I have an issue with recorded formulas which is too long to stay in one line. Once I moved the part of the formulas to the second line, the quotation mark popped up at the end of the first line. The error message showed up as Compile error: Expected: ). I tried to add – it & _ to the end of the first line but still got error message. I wonder if you have any solutions that may help.

Thank you

Sophia

Well I’m sure I’m doing something really dumb with regard to syntax, although I’ve tried every permutation I can think of. This program will read through the data in UsedRange until it sees an empty cell (I realise my counter needs to be recalibrated, not important at the moment). The starting point and end point are present as integers with the variables i and n. These are converted to strStartPoint and strEndPoint, which are both used to produce a string that is the formula I want entered.

I’ve tried creating a string variable that contains the entire formula and just inserting that into the cell, but because it contains the = sign, it inserts a boolean result in the cell.

I would much appreciate any advice about how to do this. I’ve tried using .value =, .formula =, and at no point can I come up with a syntax that allows me to input this formula as I want.

Thanks in advance for your time.

Sub CalculatePeaks(i As Integer)

Dim n As Integer

Dim vCellValue As Variant

Dim strStartPoint As String

Dim strEndPoint As String

Dim W As Variant

Worksheets(“SortedData”).UsedRange

W = Worksheets(“SortedData”).UsedRange.value

n = i

strStartPoint = CStr(i)

vCellValue = W(n, 1)

Do Until vCellValue = Empty

vCellValue = W(n, 1)

n = n + 1

Loop

strEndPoint = CStr(n)

Worksheets(“SortedData”).Range(“K” & n).value = “=ROUND((I” & strStartPoint & “-((AVERAGE(I” & strStartPoint & “:I” & strEndPoint & “))*0.00001)),5)”””

End Sub

I am the beginner of Macro and don’t know anything about coding, but I need to learn it due to my work.

I am using the Index function and want to keep the first 2 Tab of the spreadsheet, however, I can only keep the 1st tab of it.

Here is the formula:

Sub DeleteSheet()

‘

‘ DeleteSheet Macro

‘

Dim ActiveSheet As Worksheet

Application.DisplayAlerts = False

For Each ActiveSheet In ActiveWorkbook.Sheets

If ActiveSheet.Index 1 (when I put “AND 2”, it’s not working) Then

ActiveSheet.Delete

End If

Next ActiveSheet

Application.DisplayAlerts = True

End Sub

Please help.

Xing

Hi, perkenalkan nama saya novianto saya berasal dari Indonesia

Tolong bantu saya, saya mengalami stak untuk formula yang sedang kita kembangkan

Hi Jon,

I’ve tried the 3 tips you gave but none of them is working.

I think my formula might be too long and that is why I’m allways receiving a runtime error 1004.Can you please advice me ?

Thank you.

best regards.

Formula

=IF(B2=””;””;IF(OR($L2=1;AND(OR($M2=7;$M2=8;$M2=20;$M2=21;$M2=22);OR($L2=1;$L2=2;$L2=3;$L2=4;$L2=5;$L2=6;$L2=7));AND($L2=7;OR($M2=12;$M2=13;$M2=14;$M2=15;$M2=16)));”Other moments”;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=5;$L2=6);OR($M2=9;$M2=10;$M2=11;$M2=12));”All days 9h-13h”;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=5;$L2=6);OR($M2=13;$M2=14;$M2=15;$M2=16));”All days 13h-17h”;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=6;$L2=7);$M2=17);”All days exc Thursday 17h-18h”;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=6;$L2=7);$M2=18);”All days exc Thursday 18h-19h”;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=6;$L2=7);$M2=19);”All days exc Thursday 19h-20h”;IF(AND($L2=5;$M2=17);”Thursday 17h-18h”;IF(AND($L2=5;$M2=18);”Thursday 18h-19h”;IF(AND($L2=5;$M2=19);”Thursday 19h-20h”;”Saturday morning”))))))))))

Tip 1

ActiveCell.FormulaR1C1 = _

“IF(OR($L2=1;AND(OR($M2=7;$M2=8;$M2=20;$M2=21;$M2=22);OR($L2=1;$L2=2;$L2=3;$L2=4;$L2=5;$L2=6;$L2=7));AND($L2=7;OR($M2=12;$M2=13;$M2=14;$M2=15;$M2=16)));””Other moments””;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=5;$L2=6);OR($M2=9;$M2=10;$M2=11;$M2=12));””All days 9h-13h””;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=5;$L2=6);OR($M2=13;$M2=14;$M2=15;$M2=16));””All days 13h-17h””;IF(AND(OR($” & _

“=3;$L2=4;$L2=6;$L2=7);$M2=17);””All days exc Thursday 17h-18h””;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=6;$L2=7);$M2=18);””All days exc Thursday 18h-19h””;IF(AND(OR($L2=2;$L2=3;$L2=4;$L2=6;$L2=7);$M2=19);””All days exc Thursday 19h-20h””;IF(AND($L2=5;$M2=17);””Thursday 17h-18h””;IF(AND($L2=5;$M2=18);””Thursday 18h-19h””;IF(AND($L2=5;$M2=19);””Thursday 19h-20h””;IF(AND(OR($M” & _

“0;$M2=11);L2=7);””Saturday morning””;””””))))))))))”

Tip2

ActiveCell.FormulaR1C1 = _

“=IF(RC[-13]=””””,””””,IF(OR(RC12=1,AND(OR(RC13=7,RC13=8,RC13=20,RC13=21,RC13=22),OR(RC12=1,RC12=2,RC12=3,RC12=4,RC12=5,RC12=6,RC12=7)),AND(RC12=7,OR(RC13=12,RC13=13,RC13=14,RC13=15,RC13=16))),””Other moments””,IF(AND(OR(RC12=2,RC12=3,RC12=4,RC12=5,RC12=6),OR(RC13=9,RC13=10,RC13=11,RC13=12)),””All days 9h-13h””,IF(AND(OR(RC12=2,RC12=3,RC12=4,RC12=5,RC12=6),OR(RC13=13″ & _

“,RC13=15,RC13=16)),””All days 13h-17h””,IF(AND(OR(RC12=2,RC12=3,RC12=4,RC12=6,RC12=7),RC13=17),””All days exc Thursday 17h-18h””,IF(AND(OR(RC12=2,RC12=3,RC12=4,RC12=6,RC12=7),RC13=18),””All days exc Thursday 18h-19h””,IF(AND(OR(RC12=2,RC12=3,RC12=4,RC12=6,RC12=7),RC13=19),””All days exc Thursday 19h-20h””,IF(AND(RC12=5,RC13=17),””Thursday 17h-18h””,IF(AND(RC12=5,RC1″ & _

“hursday 18h-19h””,IF(AND(RC12=5,RC13=19),””Thursday 19h-20h””,””Saturday morning””))))))))))”

your =IF(B2=””;””;IF(… that should be 4 double quotation.

=IF(B2=””””;””””;IF(….

Hi!

Can we create a formula that divides cell that is dynamic depending on where the active cell is located?

Sample:

= /

Hello Jon

Can you help me. I am new in this area. I need to make a macro that calculates the no of empty cells in a coulmn and return the number in the first empty cell. I have so far managed to come up with:

Sub Macro2()

Range(“A2”).End(xlDown).Offset(1, 0).Select

ActiveCell.FormulaR1C1 = “=COUNTBLANK(R[-10]C:R[-1]C)”

End Sub

My problem is that I always want the formula range to end with R[-1]C but I also want it to start with A2. Is there a way to do this.

Best Regards

Louise

Hi Jon,

Is there an advantage or disadvantage to using:

Range(“B10”).Formula = “=SUM(B4:B9)”

vs

Range(“B10”).Value = “=SUM(B4:B9)”

Thanks,

Mickael

Hi Mickael,

Those two lines are going to produce the same result. The major difference between the Range.Formula and Range.Value properties is when we use them to Read values back into VBA. If we want to get/return the formula in a cell then we can use the Formula property. The Value property will return the result of the formula that is displayed in the cell.

When we are using Formula or Value to write the string to the cell, then the results will usually be the same. I say “usually” because I’m not 100% sure that the results will always be the same. I think those would be rare cases with number formatting if there were differences.

I like to use the Formula property just to make the code easier to read and/or search, but that is mostly personal preference. I hope that helps.

Hi Jon,

I have below value in cell and i want to calculate that value in the next column, could you please help me??

Value==> “OG (08:30-18:00)” ==> “9:30”

I want compute time inside bracket and the output should be total time(9:30).

Thanks and Regards,

Vishal

Hi Jon…

15 years ago I used Clipper (under DOS) program, and now I’m learn Macro.

Can U help me to make it in Macro for this code :

‘( This is to make 10 variable from var1, var2… var_n with its value = “YES”)

‘——————————–

i = 1

do while i <= 10

n = alltrim(str(i))

var&n = "YES"

i = i + 1

endd

'———————————

The result from this code : var1="YES" , var2="YES" ……var10="YES"

Please email to agushmm@gmail.com

Thx for your Help

Regards

Agus Gunawan

Thanks for sharing your thoughts about meta_keyword. Regards

Hi Jon,

Let’s make this more complicated…

My formula is an array formula that needs to have named ranges changed when I create a new sheet. For example, the I need is an array formula that contains a range that is named data6. When I create the new month, I need to rename data6 to data7. I have been doing this manually each month, but there are 7 cells, each with different formulas that need to be changed.

Example of my working formula in Excel:

{=IFERROR(INDEX(data2,MATCH(1,(pNum2=B4)*(action2=”Retain”),0),12),”n/a”)}

Failed VBA attempts: Earlier code has already set monNum to the number of the current month. rng1 is dim as String. I’m sure it has to do with how I’m referring to the named ranges, but stumped as to how to do it.

1. Range(“L3”).Select

Selection.FormulaArray = _

“=IFERROR(INDEX(data” & monNum,MATCH(1,(pNum5=RC2)*(action5=””Retain””),0),12),””no test””)”

Returns expected end of statement

2. Range(“L3”).Select

Selection.FormulaArray = _

“=IFERROR(INDEX(rng1,MATCH(1,(pNum5=RC2)*(action5=””Retain””),0),12),””no test””)”

returns {=IFERROR(INDEX(RNG1,MATCH(1,(pNum5=RC2)*(action5=”Retain”),0),12),”no test”)}

Hi Barbara,

You are on the right track here. The variables will NOT be wrapped in quotes since they are evaluated in the VB Editor. However, the rest of the formula does need to be wrapped in quotes.

The variables and strings are joined together with ampersands. Here is an example where rng1 is a variable that is declared and set in the macro.

Notice that after the variable we have another ampersand and then text wrapped in quotes.

This same technique will apply to your formula. Join the text after the variable with an ampersand and quotes.

I hope that helps. Thanks! 🙂

Hello Jon,

How can we run macro for a range of cells instead of one cell?

-We want to copy all formula for not only B3, but B3:B12. How can we do that?

Regards,

G

Hi G,

When using R1C1 style notation you can apply the same formula to all the cells in a range. Here is an example.

That line of code would put the same formula in each cell. The formula in cell B3 would evaluate to C3+D3. The formula in cell B4 would be C4+D4.

If you already have a formula in cell B3, then you can just copy it down to the rest of the cells. There are many ways to do this, but here is one simple line of code using the Copy method.

The FormulaR1C1 property reads the R1C1 notation and creates the proper references in the cells. If you use the regular Formula property with R1C1 notation, then VBA will attempt to put those letters in the formula, and it will likely result in a formula error.

Hi Jon,

Can you please explain on what you say on the top?

You are saying same thing but one creates error and one not!

Regards,

G

Hi G,

If you are using R1C1 style notation in your formula text, then it is best to use the FormulaR1C1 property.

Notice how this line uses FormulaR1C1

The following line uses R1C1, but uses the Formula property.

That line could result in an error if you have mixed references. Most of the time VBA will figure it out and still convert the R1C1 to cell references. As the formula gets more complex then it might not be able to convert it. Therefore, it’s best to use FormulaR1C1 when you have R1C1 references in your formula text.

I hope that helps.

Hi Jon,

first of all, Thank You for your answer. In my example, “lCell” is the place where I need the Sum function. And the Sum function should add the values from column I2 to I

Can you help me to understand and resolve that?

Thank you again

Hi Jon!

Is it possible to make that construction dynamic? I mean the SUM function

Sub LastCell_Total ()

Dim lCell as Range

Set lCell = Range(“I2”).End(xlDown).Offset(1, 0)

lCell.Formula = WorksheetFunction.Sum(Range(Range(“I2”), Range(“I2”).End(xlDown)))

End Sub

Hi Claudiu,

Great question! Yes, absolutely.

You could declare a variable to hold the last row number. Or use the Row property of lCell.

Then use the variable in the formula string. Concatenate it with the ampersands. Here is an example.

When that evaluates is will create the range reference with the last row number after B. Something like B4:B203

I hope that helps.