Add future date to cell

[chris46521]

I want to have a future date (30 days from today’s date) added to a cell
in column A only if that cell is already blank and column N has an “O”
in that same row. Here is the code that I have right now, and it works
to add a value based on the conditions that I just described. I just
don’t know how to get it to add a date to that is 30 days in advance of
today’s date. Thanks for any help!


Code:

 

[AP]

Try Now() + 30



AP
www.megacrosstab.com

 

[AP]

or TODAY() + 30 if you dont need the time included

AP
www.megacrosstab.com

 

[Bob Phillips]

If Me.Cells(.Row, "N").Value = "O" And Me.Cells(.Row, "A").Value = ""
Then
Me.Cells(.Row, "A").Value = Date + 30
End If


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[chris46521]

That worked great guys! Thanks so much for your help!