Format Textbox for phone number

[ipbr21054]

On my userform I have Textbox9 which will hold a phone number.

I currently populate my user form with values from my worksheet.

On my worksheet I see phone numbers like so 07899 327122

I populate the Textbox9 but the leading 0 is missing thus me only seeing 7899 327122

Please advise what code I need to use so the full number is shown with its 0

Thanks.

 

[RoryA]

Does the cell actually contain the leading 0 or is it just formatted that way? And how are you populating the control from the cell?

 

[ipbr21054]

When I type the number I actually type the 0

I populate the userform Textbox like this.

Me.TextBox9.Value = Cells(ActiveCell.Row, 18).Value

 

[RoryA]

Then the cell does not actually contain the leading 0. What is the number format of the cell?

 

[CephasOz]

You could use (supposing your phone numbers are stored as numbers):

UserForm1.Textbox9.Value = Format(Range("A2").Value, "00000 000000")

If your phone numbers are stored as strings, then:

UserForm1.Textbox9.Value = Format(Val(Range("A2").Value), "00000 000000")

 

[ipbr21054]

Just checked it again.
Userform Textbox I type the phone number with a leading 0

I send userform values to worksheet & phone number is the same as what I had typed on userform.

I then populate values from worksheet to another userform & the 0 is then missing.

The column on the worksheet where the phone number is located is column W so it’s 23

 

[ipbr21054]

You could use (supposing your phone numbers are stored as numbers):

UserForm1.Textbox9.Value = Format(Range("A2").Value, "00000 000000")

If your phone numbers are stored as strings, then:

UserForm1.Textbox9.Value = Format(Val(Range("A2").Value), "00000 000000")

Dont see why you meantion A2

 

[CephasOz]

A2 is my favourite cell. You didn't give any specifics about where the data resided in your worksheet, so I had to pick a cell for my example. So - A2.

 

[ipbr21054]

I’m above message I mentioned column W is that what you are looking for ?

 

[CephasOz]

My time zone is ahead of yours. So posts that I make seem to happen after posts that you make later. If someone in, say, UTC+8, had 8 hours deducted from their post time, and someone in, for example, UTC-5, had 5 hours added to their post time, then the posts would be in the correct order.

When I replied to you, the ONLY post was your original one, which had no details. Taking into account your later posts:

UserForm1.Textbox9.Value = Format(Cells(ActiveCell.Row, 18).Value, "00000 000000")