VBA help with recognizing date properly

[tfagan1978]

Hi all,

I am having a problem with a VBA code I wrote. This code looks at column H and if there is a date formatted as DD-MM-YYYY and the YYYY is equal to the current year, it puts a "N" in the corresponding cell of column Z. If the YYYY is from the previous year, it puts a "Y" in the corresponding cell of column Z. If neither criteria are met, it puts a "?".

The problem i am having is that the code doesn't seem to loop through after it enters a "Y" or an "N". It just seems to keep putting a "Y" or an "N" in each cell of column Z until it finds a new criteria that it meets. Can anyone see something wrong with this code that it wouldn't work correctly?

Please Login or Register  to view this content.

[TMS]

This works for me but I don't have YOUR data to test it on:

Please Login or Register  to view this content.

[tfagan1978]

So I replaced my code with the one you gave me and I am getting a For without Next error. Here is all of my code. I changed your code slightly since I was already using For Row, so I changed it to For Row4 and Next Row4. Any idea why I am getting the For without Next error

Please Login or Register  to view this content.

[TMS]

My code works as a self contained entity. I created an empty workbook and adapted your code to test a loop. It works, therefore, you must have changed YOUR code when you incorporated it. Clearly, your routine is more complex/repetitive than the sample you posted and which I modified.

I can't test your code because I don't have the data and/or workbooks which it requires to run

[leelnich]

RE : "For without Next"
Your final "Next" statement is commented out. Remove the leading apostrophe, right?

Please Login or Register  to view this content.

This is my first post. Hope it helps