Check Date to see if it has been Reached

Hello I have the following problem.

I have dates listed in Column F. I need help creating a macro that will look through Column F and see which dates have passed or hsa been met based on the day the macro is run. If it finds a date that has passed or has been met then it will check Columns G and I and see if in that row those columns have any values. If either one of them do then the program will skip this date and go to the next date to check. If they are both empty then in the row with the current date being checked Column H receives a value of "Yes". Thanks for any help I can get on this.

So, as long as you name cell C8 with the =TODAY() function it should work. Does that help you or you need a function imputed inside the macro?

Sub dateval()
Dim lin As Integer
Dim valor As Double

lin = 1
valor = Cells(lin, 6)
While Cells(lin + 1, 6) <> Empty
lin = lin + 1
valor = Cells(lin, 6)
If valor = Cells(8, 3) Or valor > Cells(8, 3) Then
Cells(lin, 7) = "ok"
End If
Wend
End Sub

Hey, it's better this way (I suppose)

Sub dateval()
Dim lin As Integer
Dim valor As Double

lin = 1
valor = Cells(lin, 6)
While Cells(lin + 1, 6) <> Empty
lin = lin + 1
valor = Cells(lin, 6)
If valor = date Or valor > date Then
Cells(lin, 7) = "ok"
End If
Wend
End Sub

Cheers

It works I just forgot to include one thing that is making it not work correctly for me. In column F there will be spaces in between some of the rows. So i would need it to run for the whole column say up to 5000 rows.

Actually hold on let me do some more tests.

Besides for that one thing from the last post. I'm noticing that its not noticing the right columns. If the date criteria is met then its suppose to check Columns G and I to see if they have any values in them. If either one of those columns do. Then Column H wont receive anything. If both columns G and I are empty after the date criteria is met then Column H will receive a "yes".

Ok I have the following code that works for the task I needed.

Please Login or Register  to view this content.

The problem i'm running into is that in cell(y,6) I have the following formula that is pulling the date:

Please Login or Register  to view this content.

How can I change the code or add to it that will read the cell correctly because right now it isn't reading it as a date.

How many blank spaces between dates would you have? I think it's a easier way to do it

It could vary no set number.

Are you using excel 2007?

No I'm using Excel 2013.

Could you try this?

Please Login or Register  to view this content.

I'm getting an error and that could be because in Column F it is not a normal Date value. Listed above I showed the formula that I have in there to pull a certain date for me. So with the code that I have thats working mostly I'm just trying to figure out how to make it read that cell correctly instead of looking for a date value.

You need the formula to be in date format, right?
Does that help?

Please Login or Register  to view this content.