VBA to find/fill column based on date

Hey,
Need help with this problem I have. I'm trying to create a VBA/Macro that fills out the information in a particular column based on the date.
-If Today()'s date is before a particular date in Row A then it fills out the column immediately to the right one.
--Ex: Today's date is 4/19. P1 is 4/15 and Q1 is 4/22, so I'd like the macro to fill in Column Q starting with the first avaiable blank in the Column
--Ex: If I run this again tomorrow 4/20, it would just update Column Q
--Ex: If I run this again on 4/22, I'd like it to fill in Column R.

Attached is my example. Thanks in advance!

Fill in column Q with what?

It is easy enough to get column Q's first blank cell.

I would recommend using a tracking sheet. It would add the current date each day that you ran the macro. This would be checked so that it would not add duplicates if you ran it more than once per day, unless that is what you want.

Ok, well it wouldn't have to be run everyday, only occasionally and for column Q i have other formulas that I would add in. just trying to get the code down to for this date situation under control first. thanks for your suggestion though.

Please Login or Register  to view this content.