adding a formula to VBA code

[James__S]

I have the following code which works plus a formula in cell range G5:G123....how do i add the the formula to the VBA code please

Formula =IF(F5<>"".F5< today () +3 )<today()+3)

Private Sub Workbook_Open()
For Each cell In Range("F5:F19")
If cell.Value < Date + 3 And cell.Value <> "" Then
cell.Interior.Color = 3
cell.Font.ColorIndex = 2
cell.Font.Bold = True
End If
Next
End Sub

<today(),"send reminder","")
<today()+3)
<today(),"send reminder","")
<today()+3)<today()+3)
<today()+3)

Also instead of having the code update when book opens could it have a Commandbutton so it can be updated anytime

Thanks</today()+3)
</today()+3)<today()+3)
</today(),"send></today()+3)
</today(),"send></today()+3)

 

[James__S]

<today() +3,"send="" notice","")<today()="" reminder","")

Sorry i sent wrong formula <today() +3,"send="" notice","")
=IF(F5 < TODAY() +3,"Send Notice","")
<today() +3,"send="" notice","")

<today()+3,"send notice","")<today()="" +3,"="" send="" notice","")<="" today()=""></today()+3,"send></today()></today()></today()>

 

[James__S]

Any Thoughts

 

[vds1]

Try,

Private Sub Data_Format_Formulas()
For Each cell In Range("F5:F19")
If cell.Value < Date + 3 And cell.Value <> "" Then
cell.Interior.Color = 3
cell.Font.ColorIndex = 2
cell.Font.Bold = True
End If
Next
Range("G5:G123").Formula = "=IF(F5 < TODAY()+3,""Send Notice"","""")"
End Sub

 

[James__S]

Thanks

When i open the macro dialogue box there is no macro to select

 

[vds1]

Sorry, it should be be just Sub Data_Format_Formulas() Please remove Private

 

[James__S]

No more errors but it places the Send Notice down the column even when there is no date in F5:F123

 

[Andrew Poulsom]

How about?

Range("G5:G123").Formula = "=IF(AND(ISNUMBER(F5),F5<TODAY()+3),""Send Notice"","""")"

 

[James__S]

Thanks....Still receiving error

"application defined or object defined error"

 

[Andrew Poulsom]

I should practice what I preach, sorry:

Range("G5:G123").Formula = "=IF(AND(ISNUMBER(F5),F5 < TODAY()+3),""Send Notice"","""")"

 

[James__S]

What is the best way to add the code to a Active-X control button

Excellent and thanks to you both for your help..appreciated