Code to generate registry stored number from specific number

I made a maco enabled Purchase Order form about 5 years ago. Our business uses it quite extensively. When you hit a button, it generates a purchase order number from the computer's registry and saves it in a specific folder and renames it as the PO#. The PO# is sequential and we were on PO# 00990.

The problem we ran into was our hard drive crashed and I had to install a new one. Now the PO form want's to naturally start back at #00001. Is there any way to modify the code so that it will start the next PO# at a specific number, say 00991?

Below is the code I used but to be honest, I don't remember anything about it anymore. I haven't really been immersed in this side of excel for quite some time.

Please Login or Register  to view this content.

I tried changing the "00000" in red to "00991" but that does not fix the problem.

Probably:

Please Login or Register  to view this content.

BTW - You need to put code tags around your code. Just highlight the code in post #1 and hit the #

according to your code, you can enter the last invoice number in cell J5 and it should then give you the correct next number when you run the code. I don't believe you need to worry about the leading zeros in J5, the code should put those on.

I tried changing the "00000" in red to "00991" but that does not fix the problem.

don't do that!

Hello d_striker,

Administrative Note:

• We would love to continue to help you with your query, but first, before we can proceed…
• Please see Forum Rule #1 about proper thread titles and adjust accordingly...

Cell J5 is your control register for the PO number. The code increments the value in J5 by 1 each time you run the code. If you want it to geterate 00991 the put 990 in J5. Then don't adjust J5 again, the code will do that. Are you sure you made this macro five years ago.

Woops! Just noticed this.

Please Login or Register  to view this content.

Need to see that macro to see where it saves the value to. I assumed it was J5

Using this line you would have to set to the next number available.

Please Login or Register  to view this content.

Don't have time right now but will check back later.

Originally Posted by bakerman2

Using this line you would have to set to the next number available.

Please Login or Register  to view this content.

Don't have time right now but will check back later.

Thanks for the input! I've left work for the day but I'll try that tomorrow.

the first code sets the invoicenumber.
Second one is just a test.

Please Login or Register  to view this content.

Originally Posted by JLGWhiz

Cell J5 is your control register for the PO number. The code increments the value in J5 by 1 each time you run the code. If you want it to geterate 00991 the put 990 in J5. Then don't adjust J5 again, the code will do that. Are you sure you made this macro five years ago.

Woops! Just noticed this.

Please Login or Register  to view this content.

Need to see that macro to see where it saves the value to. I assumed it was J5

Yeah, I think 5 years ago. Had a lot more time back then and learned just enough VBA to scratch out this code. I wouldn't even really call it "learning" VBA. More like google searching and asking for help on this forum. I haven't done any VBA since then.

Check this out.
First code sets number to 991. Use this once to set the initial number.
Second code retrieves number, adds 1 and msgbox to check. Every time you run this code number will increase by 1.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

What about the SaveSetting macro? Does it exist? Can we see it?

Originally Posted by JLGWhiz

Please Login or Register  to view this content.

What about the SaveSetting macro? Does it exist? Can we see it?

The only other code I have in it is listed as Module 1. I forgot about it actually until you mentioned other code. This is what is listed in Module1.

Please Login or Register  to view this content.

It's identical to the code in Sheet1. I'm not sure why I have it in there twice. I removed the code in Sheet1 as it looks like the button I'm using is actually linked to the Module1 code.

This put 991 in a vacant J5:

Please Login or Register  to view this content.

** J5 must be empty at the outset

Originally Posted by JLGWhiz

Please Login or Register  to view this content.

What about the SaveSetting macro? Does it exist? Can we see it?

It is this

https://msdn.microsoft.com/en-us/vba...ting-statement

Originally Posted by scottiex

It is this

https://msdn.microsoft.com/en-us/vba...ting-statement

So the last PO number is being saved to Excel Application registry. Weird! Then the SetSetting statement should reset the value to what ever beginning number the user wants to use, right? What about the other arguments for the function? Application, Key, etc?

Did you include the SetSetting program? Which (I think) needs to be in a module??

*** If it ran don't run it again - instead remove the code from your button code (you can just put an apostrophe before it) and clear J5 and then just run your button code!********

You're welcome and thanks for the compliment and for the rep!

I am not exactly certain where in the existing code to place what you posted

You didn't have to place anything in your existing code.
The only thing you had to do is run sub tst once (like I said in my post #17) to set initial number (990) and then further make use of your original code.

Originally Posted by bakerman2

You didn't have to place anything in your existing code.
The only thing you had to do is run sub tst once (like I said in my post #17) to set initial number (990) and then further make use of your original code.

Maybe a reply to post #19 would have helped.