Phone Number formatting

[ChrisMattock]

Hi all, I have a cell that NEEDS to be of the following format:

0#### ######

I have set this up under formatting, custom... and when I type a number like this...

01304999999 I get the result 01304 999999 PERFECT!

Unfortunately if I type this....

01304 999 999 I get this result 01304 999 999 which ain't good as it mucks up my Macro, whih incidentally is this...

appWD.ActiveDocument.Bookmarks("PMTelephone").Range = Format(strPMTelephone, "0#### ######")

Any ideas?

[Toppers]

Chris,
Maybe a Worksheet event to format the cell; the following is a
"Starter" but maybe needs code to check length of input and check target
address if just one cell.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsexit
If Target.Column <> 1 Then GoTo wsexit '<==== not coulmn A
Application.EnableEvents = False
Target.Value = Format(Replace(Target.Value, " ", ""), "0#### ######")
wsexit:
Application.EnableEvents = True
End Sub

"ChrisMattock" wrote:

>
> Hi all, I have a cell that NEEDS to be of the following format:
>
> 0#### ######
>
> I have set this up under formatting, custom... and when I type a number
> like this...
>
> 01304999999 I get the result 01304 999999 PERFECT!
>
> Unfortunately if I type this....
>
> 01304 999 999 I get this result 01304 999 999 which ain't good as it
> mucks up my Macro, whih incidentally is this...
>
> appWD.ActiveDocument.Bookmarks("PMTelephone").Range =
> Format(strPMTelephone, "0#### ######")
>
> Any ideas?
>
>
> --
> ChrisMattock
> ------------------------------------------------------------------------
> ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
> View this thread: http://www.excelforum.com/showthread...hreadid=554500
>
>

[Toppers]

Chris,
Maybe a Worksheet event to format the cell; the following is a
"Starter" but maybe needs code to check length of input and check target
address if just one cell.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsexit
If Target.Column <> 1 Then GoTo wsexit '<==== not coulmn A
Application.EnableEvents = False
Target.Value = Format(Replace(Target.Value, " ", ""), "0#### ######")
wsexit:
Application.EnableEvents = True
End Sub

"ChrisMattock" wrote:

>
> Hi all, I have a cell that NEEDS to be of the following format:
>
> 0#### ######
>
> I have set this up under formatting, custom... and when I type a number
> like this...
>
> 01304999999 I get the result 01304 999999 PERFECT!
>
> Unfortunately if I type this....
>
> 01304 999 999 I get this result 01304 999 999 which ain't good as it
> mucks up my Macro, whih incidentally is this...
>
> appWD.ActiveDocument.Bookmarks("PMTelephone").Range =
> Format(strPMTelephone, "0#### ######")
>
> Any ideas?
>
>
> --
> ChrisMattock
> ------------------------------------------------------------------------
> ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
> View this thread: http://www.excelforum.com/showthread...hreadid=554500
>
>

[Toppers]

Chris,
Maybe a Worksheet event to format the cell; the following is a
"Starter" but maybe needs code to check length of input and check target
address if just one cell.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsexit
If Target.Column <> 1 Then GoTo wsexit '<==== not coulmn A
Application.EnableEvents = False
Target.Value = Format(Replace(Target.Value, " ", ""), "0#### ######")
wsexit:
Application.EnableEvents = True
End Sub

"ChrisMattock" wrote:

>
> Hi all, I have a cell that NEEDS to be of the following format:
>
> 0#### ######
>
> I have set this up under formatting, custom... and when I type a number
> like this...
>
> 01304999999 I get the result 01304 999999 PERFECT!
>
> Unfortunately if I type this....
>
> 01304 999 999 I get this result 01304 999 999 which ain't good as it
> mucks up my Macro, whih incidentally is this...
>
> appWD.ActiveDocument.Bookmarks("PMTelephone").Range =
> Format(strPMTelephone, "0#### ######")
>
> Any ideas?
>
>
> --
> ChrisMattock
> ------------------------------------------------------------------------
> ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
> View this thread: http://www.excelforum.com/showthread...hreadid=554500
>
>

[Pete_UK]

Hi Chris,

the STD code of a (UK) phone number is not always 5 characters - you
can have 4, 5 6 or 7, and phone numbers themselves can vary in length -
how would you want to display 118118, for example?

I find it better to treat phone numbers as text, so the leading zero(s)
are preserved and to just display them as is without any extra spaces.
I know this is not what you are asking, but ...

hope this helps.

Pete

ChrisMattock wrote:
> Hi all, I have a cell that NEEDS to be of the following format:
>
> 0#### ######
>
> I have set this up under formatting, custom... and when I type a number
> like this...
>
> 01304999999 I get the result 01304 999999 PERFECT!
>
> Unfortunately if I type this....
>
> 01304 999 999 I get this result 01304 999 999 which ain't good as it
> mucks up my Macro, whih incidentally is this...
>
> appWD.ActiveDocument.Bookmarks("PMTelephone").Range =
> Format(strPMTelephone, "0#### ######")
>
> Any ideas?
>
>
> --
> ChrisMattock
> ------------------------------------------------------------------------
> ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
> View this thread: http://www.excelforum.com/showthread...hreadid=554500

[ChrisMattock]

Thanks Pete, that is an excellent point.... annoying.... but excellent point. Lol. Text it is.

[Pete_UK]

Thanks for feeding back, Chris.

Pete

ChrisMattock wrote:
> Thanks Pete, that is an excellent point.... annoying.... but excellent
> point. Lol. Text it is.
>
>
> --
> ChrisMattock
> ------------------------------------------------------------------------
> ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
> View this thread: http://www.excelforum.com/showthread...hreadid=554500