If value > Today [Plus one day] Then

[sampson32]

Providing all earlier criteria is met this part of code only responds if the date (value) is later than the current date:

“.Value > Today Then”

How would I amend this code to only respond if the date (value) is later than the current date plus one day? (One day past current date)

Thanks

Sam

 

[Joe4]

Did you try doing just that, adding 1?

.Value > (Today + 1) Then

 

[venkat1926]

activecell.formular1c1="=today()+1"
gives you tomorrow's date

can you use this trick to get your code?

 

[Joe4]

I was going on the assumption that your original code worked, but it appears that it does not (TODAY is not a valid VBA function, as written like that).

This should work:
If YourField.Value > (Date + 1) Then

 

[sampson32]

A contraire mon ame,

“Today” is in my code as in “If Range("F" & i).Value < Today Then”

and it works just fine.

I have “Today” in several variations of that line and the entire code works perfectly. Entire code posted last week.

I just need to add another variation for another column of data. For insured dispersal of products after receipt. If the products that have been here over a day without shipment.


Thanks,

Vinnie

 

[Joe4]

Vinnie,

Is TODAY a variable you have defined? If so, then yes, it would work, although it is unnecessary to have to use a variable to return today's date when you can use DATE().

If TODAY is not a user defined variable, the command does not work on my computer and causes errors (says undefined variable). Maybe you are using a special Add-In or different version of Excel that has this as a new option?

Anyway, was your original question answered? Both me and venkat provided solutions, did they work for you?

 

[sampson32]

If fact you are correct in both cases! “Today = Date” I did use a variable and it is unnecessary. A lesson learned!

I’m still figuring the code up to the Date + 1, I not as fast as you. I’m pretty sure it will work.

Thanks to both of you for you reply.

Vinnie