Fill all the cells in a column with formula

[jadox]

Hey guys,

I need some help with the If function in VBA.

I need to put a formula in every empty cell in a specific column and I can't manage to define the function.

My code is this (but it doesn't do anything):

For Each cell in Worksheets("Sheet1"). Range("L5:L" & Rows.Count.End(xlUp).Row)
If Cell.Value ="" Then
Cells(1,1) = "=..."
End If
Next Cell

Any suggestions?

Thank you!

 

[Osvaldo Palmeiro]

Hello.
Try:

For Each cell In Worksheets("Sheet1").Range("L5:L" & Cells(Rows.Count, "L").End(xlUp).Row)
  If cell.Value = "" Then cell.Value = "xxx"
Next cell

 

[VoG]

Maybe try like this

For Each Cell In Worksheets("Sheet1").Range("L5:L" & Rows.Count.End(xlUp).Row)
If Cell.Value = "" Then
Cell.Formula = "=..."
End If
Next Cell

 

[jadox]

Thanks so much!
Both formulas work fine!