Userform creates concatenated number sequence - needs padded zeros

I have a userform that has two comboboxes get populated with numbers from 1 to 32

Please Login or Register  to view this content.

User can pick a number in each dropdown, and then when they press OK I create a concatenated sequence

16-16 using this:

Please Login or Register  to view this content.

This works fine until the user picks anything between 1 and 9, because the number sequence is now 1-2 or something, which is 3 digits long instead of the intended 5.

I know there is a way to format this, I have been searching for ways, one is to do this as text, other is use format when populating the combobox. I can't seem to find a good answer as to how to best get the padded zeros into my code. Any help would be appreciated.

How about
Cells(emptyRow, 11).Value = format(ProductCode1.Value,"00) & "-" & Format(ProductCode2.Value,"00")

Originally Posted by Fluff13

How about
Cells(emptyRow, 11).Value = format(ProductCode1.Value,"00) & "-" & Format(ProductCode2.Value,"00")

That looks like it will work, but if I try it I end up with the same result. I thought I could change it to text during the format like this:

Cells(emptyRow, 11).Value = format(ProductCode1.text,"00") & "-" & Format(ProductCode2.text,"00")

But this didn't work either.

Originally Posted by Fluff13

How about
Cells(emptyRow, 11).Value = format(ProductCode1.Value,"00) & "-" & Format(ProductCode2.Value,"00")

I'm a fool! I was looking at the wrong result, I moved it to test it and I was getting no change because of that. I changed it back to input in the right place and behold, it worked. Thank you!

Hi there,

See if using the following line of code does what you need:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

Originally Posted by Fluff13

How about
Cells(emptyRow, 11).Value = format(ProductCode1.Value,"00") & "-" & Format(ProductCode2.Value,"00")

It looks like the OP caught it, but just pointing out you omitted a quote mark (shown in red above).

Here is another way to write this line of code where I use only one Format function call...

Cells(emptyRow, 11).Value = Format(100 * ProductCode1.Value + ProductCode2.Value, "00-00")

it worked. Thank you!

You're welcome & thanks for the feedback