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)
<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)
Formula =IF(F5<>"".F5< today () +3 )<today()+3)
Code:
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)
Last edited: