Looping FindFormat with relative cell update

[adamspain]

Using Excel 2007 and VBA code, I am trying to find all cells in a worksheet with a particular number format ("#,##0.00 ""INR"). For each of these cells I would like to update the cell in the column directly to the right with the value "YES". I have recorded a macro to find the correct format and modified my code to change the value of the cell and everything looks great. However, I cannot figure out the correct way to loop through the sheet once and perform the same function for each of the cells matching the format criteria. Any help is appreciated. Below is my code so far:
----

Please Login or Register  to view this content.

[Leith Ross]

Hello adamspain,

This macro will loop through the cells on the ActiveSheet and when a match is found set the cell, one column to the right of the matched cell, equal to "Yes".

Please Login or Register  to view this content.

[adamspain]

I appreciate the help, unfortunately this is having some inconsistent results. For example it appears that the YES is being applied irrespective of the format check. YES values are being populated throughout the sheet as though the Set FoundIt = Rng.FindNext(FoundIt) statement is not actually finding the next cell with the correct format. Instead it is looping for quite some time to populate a YES value in every row to the right of the last cell with data for that row. Again, seemingly bypassing any check of the format.

[Leith Ross]

Hello adamspain,

Sorry it didn't work out, but I don't have Excel 2007. The macro is a composite based on Excel 2003 functionality and the code differences you included in your post.

The macro is checking all cells on the worksheet as per your request. Whether the code for checking the format is correct, I can not say.

Using Excel 2007 and VBA code, I am trying to find all cells in a worksheet with a particular number format ("#,##0.00 ""INR").
For each of these cells I would like to update the cell in the column directly to the right with the value "YES".

You really need someone who has Excel 2007 to look into why this isn't working.

[adamspain]

Would it make the problem easier to tackle if I said I really only needed to check every cell in column J for the format described. If found then place the yes in the same row in column K directly to the right?

[romperstomper]

IIRC, FindNext ignores the FindFormat, so try a small tweak:

Please Login or Register  to view this content.