Looping with leading zero number

[nora1212]

Hi

I'm trying to use the find function to loop through and find the numbers 01, 02, 03 through to 15 (and then do something etc). However, vba will not accept any leading zeros e.g. when i type "For c = 01 To 15", it changes it to "For c = 1 To 15". How can I format the code to accept a leading zero on numbers 1-9 and then no zero from 10 onwards?

Thanks for your help

 

[Joe4]

I don't think you need to.
Just do:

For c = 1 to 15
   f = Format(c,"00")

and search for "f" instead of "c", which will contain leading zeroes.

Just make sure that the values you are searching for ACTUALLY have leading 0s, and are not just numbers with special formatting.

 

[Alex Blakenburg]

You need to check your spreadsheet and confirm whether your numbers are actually numbers or text.
To display the leading zero in Excel you need to either format the number as "00" or enter the number as a text value.
The quickest way to check is to change the column format to Number with 2 decimal places. If the numbers change to showing 2 decimal places they are being recognised as numbers in Excel. If the do not change and continue to show 01 etc then they were text

If they are numbers formatted to 01 etc then For c = 1 to 15 should work fine.

If they are text then you need and extra step: (@Joe4 beat me to this part)
For c = 1 to 15 followed by f = Format(c,"00")

 

[nora1212]

I don't think you need to.
Just do:

For c = 1 to 15
   f = Format(c,"00")

and search for "f" instead of "c", which will contain leading zeroes.

Just make sure that the values you are searching for ACTUALLY have leading 0s, and are not just numbers with special formatting.

Perfect Joe! Thanks very much.

 

[nora1212]

You need to check your spreadsheet and confirm whether your numbers are actually numbers or text.
To display the leading zero in Excel you need to either format the number as "00" or enter the number as a text value.
The quickest way to check is to change the column format to Number with 2 decimal places. If the numbers change to showing 2 decimal places they are being recognised as numbers in Excel. If the do not change and continue to show 01 etc then they were text

If they are numbers formatted to 01 etc then For c = 1 to 15 should work fine.

If they are text then you need and extra step: (@Joe4 beat me to this part)
For c = 1 to 15 followed by f = Format(c,"00")

Thanks also Alex! Team effort!

 

[Alex Blakenburg]

No problem. We appreciate the feedback. Glad we could help.

 

[Joe4]

You are welcome.
Glad we could help!