VBA Code to Convert Number Formats

[JMC57]

I need to create a VBA code that will accomplish the following in a specific Col

Example 904020161 to XXXXX-XXXX-XX where zeros fill in to create 00904-0012-24
88904020161 to XXXXX-XXXX-XX or 88904-0012-24

 

[Rick Rothstein]

I need to create a VBA code that will accomplish the following in a specific Col

Example 904020161 to XXXXX-XXXX-XX where zeros fill in to create 00904-0012-24
88904020161 to XXXXX-XXXX-XX or 88904-0012-24

You want the ending to always be 0012-24???

 

[JMC57]

No the numbers will be different. In one SS format will be 904001224 the other will be 00904-0012-24. Sorry I see the typo that made it confusing. I am comapring two reports where the number fomats for are different. If the first two numbers in one are zero the number is truncated form the report.

 

[Rick Rothstein]

To end the confusion, it would have been helpful if you posted the corrected numbers. Guessing from what you did post, I think you may be looking for this...

FormattedNumberInA1 = Format(Range("A1").Value, "00000-0000-00")

 

[JMC57]

I tried this and it did not work. I did not get any error messages either

 

[JMC57]

I tried the faolling and it worked.

Thanks for your help- It did give me some ideas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Columns("B").NumberFormat = "00000-0000-00"
End Sub