tonydeimone1942
New Member
- Joined
- Sep 11, 2014
- Messages
- 14
How do I move this value in phone number format xxx-xxx-xxxx
ActiveCell.Offset(0, 5).Value = txtPhone.Value
ActiveCell.Offset(0, 5).Value = txtPhone.Value
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
Phone number format
- Thread starter tonydeimone1942
- Start date
BiocideJ
Well-known Member
- Joined
- Jan 23, 2012
- Messages
- 1,734
Welcome to the board!
You could do it like this:
Note that this method will convert a number into a string.
If you wish to keep the value as a number and simply FORMAT it as a Phone Number you could use:
Note that the second option will change cell formatting in the active sheet.
Use whichever method is preferable to you.
You could do it like this:
Code:
If txtPhone.Value < 9999999 Then
ActiveCell.Offset(0, 5).Value = Format(txtPhone.Value, "###-####")
Else
ActiveCell.Offset(0, 5).Value = Format(txtPhone.Value, "(###) ###-####")
End ifNote that this method will convert a number into a string.
If you wish to keep the value as a number and simply FORMAT it as a Phone Number you could use:
Code:
ActiveCell.Offset(0, 5).Value = txtPhone.Value
ActiveCell.Offset(0, 5).NumberFormat = "[<=9999999]###-####;(###) ###-####"Note that the second option will change cell formatting in the active sheet.
Use whichever method is preferable to you.
Last edited:
Upvote
0
Similar threads
- Question
