Find today's date and then add 1

[brown3218]

A1 =Today()

A3 Monday June 17
A4 Tuesday June 18
A5 Wednesday June 19
A6 Thursday June 20
A7 Friday June 21

If today is Wednesday June 19, I want the macro to add one to cell B5, if its Thursday I want it to add 1 to cell B6, etc... I'm not quite sure how to write this. Any help?

[:) Sixthsense :)]

I want the macro to add one to cell B5

What do you mean by 1 cell to B5? what is in B5 and B6 cell? can you please explain this part little more?

[brown3218]

Cell B5 is blank. When I run the macro it will add 1. If I run it 4 times the value will be 4, like a counter keeping track of how many times I run the macro.

[:) Sixthsense :)]

Thanks for the brief and 1 more question how you are getting the data's in the below cells?

A3 Monday June 17
A4 Tuesday June 18
A5 Wednesday June 19
A6 Thursday June 20
A7 Friday June 21

Using any formula's? or any other method which will auto populate these dates in those cells? Or it will be a manual entry?

Because for writing the code the above input will be much more helpful

[brown3218]

I would just manually be entering those dates

[:) Sixthsense :)]

Try this...

Please Login or Register  to view this content.

[brown3218]

Thanks, it isn't working though. It is giving me an error and pointing to this line: nRw = Range("A:A").Find(sDate).Row

[:) Sixthsense :)]

Oopss... Try this enhanced code

Please Login or Register  to view this content.

[brown3218]

Hmm, It's still giving me a runtime error 91

[:) Sixthsense :)]

Please attach a sample workbook for better understanding

[brown3218]

Here is he attached file

So I was hoping to click the "IRC" button and have it add a 1 to the correct cell, depending on what the day is. Its just a basic counter that keeps track of how many times I click it.

[:) Sixthsense :)]

Thanks for the attachment file

Try this revised code...

Please Login or Register  to view this content.

[brown3218]

Oh wow! Thanks for you help. That's exactly what was I was hoping to do. Now I'll have to dissect it and find out how it works. I appreciate your help.

[:) Sixthsense :)]

Glad it helps you and thanks for the feedback