VBA question

[caritx]

I want VBA to add my formula to a range of cells if they are empty.

(empty) <-- add formula
123
(empty) <-- add formula
abc

Thanks all!

 

[Scott Huish]

You didn't say what your formula was, so I made a very simple one:

Sub test()
On Error Resume Next
Range("A1:A10").SpecialCells(xlCellTypeBlanks) = "=B1"
End Sub

 

[jeffreybrown]

How about something like this for a sample...

Assumes A1 is a header row.

Sub Addformula()
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:A" & LR).SpecialCells(xlCellTypeBlanks).Formula = "=1+1"
End Sub

 

[caritx]

Thank you so much! That worked perfectly!