validate phone number
 

hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)

validate phone number
 

if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

"sarah" wrote in message
...
hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)

validate phone number
 

thanks! :)

umm....but another probably question... :D

where do i put this code?? does it go in the macro or
something :S


-----Original Message-----
if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

"sarah" wrote in
message
...
hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)


.

validate phone number
 

Think you missed an Else out after first endif?
-----Original Message-----
if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

"sarah" wrote in
message
...
hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)


.

validate phone number
 

Your right

if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
Else
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

wrote in message
...
Think you missed an Else out after first endif?
-----Original Message-----
if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

"sarah" wrote in
message
...
hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)


.

validate phone number
 

It depends on when you want it to work and where you want it to work. I
have no way of knowing what you are doing.

Do you want it to run when a person enters a number in a cell in a specific
column. then you would use the change event
Right click on the sheet tab and select view code

in the module, at the top select worksheet and change

Private Sub Worksheet_Change(ByVal Target As Range)
if target.count 1 then exit sub
if Target.column = 4 then
if Len(Target.Value) = 10 then
if isnumeric(Target.Value) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
Else
msgbox "Must be 10 digits"
End if
End Sub

--
Regards,
Tom Ogilvy

"sarah" wrote in message
...
thanks! :)

umm....but another probably question... :D

where do i put this code?? does it go in the macro or
something :S


-----Original Message-----
if Len(ActiveCell) = 10 then
if isnumeric(activeCell) then
activecell.Numberformat:="(###) ###-####"
else
msgbox "Must be a number"
end if
msgbox "Must be 10 digits"
End if

--
Regards,
Tom Ogilvy

"sarah" wrote in
message
...
hi,

how can i make sure the user enters a phone number.

i know u can go to formatcellsgeneral and select
specialphone number

BUT.. this only formats it to a phone number. how do I
ensure the user enters in only 10 digits?? and then also
put it in the nice 'phone number' format (###) ###-####

Help! :)


.