converting email address formats
 

How do I write a macro to convert one email format to another. i.e.,
to (the first and last names are
capitalized and need to be first letter of first name combined with last
name, all lowercase and change the multiple email providers and extensions to
"?

converting email address formats
 

Try

=LOWER(LEFT(A1,1) & "),
FIND(".",A1)+1,255))

If this post helps click Yes
---------------
Jacob Skaria


"rlpetrie12" wrote:

How do I write a macro to convert one email format to another. i.e.,
to (the first and last names are
capitalized and need to be first letter of first name combined with last
name, all lowercase and change the multiple email providers and extensions to
"?

converting email address formats
 

"
--
David Biddulph

"rlpetrie12" wrote in message
...
How do I write a macro to convert one email format to another. i.e.,
to (the first and last names are
capitalized and need to be first letter of first name combined with last
name, all lowercase and change the multiple email providers and extensions
to
"?

converting email address formats
 

Select the cell and run:

Sub remailit()
Set r = ActiveCell
nw = "usuhs.edu"
v = ActiveCell.Value
s = Split(v, ".")
s(0) = Left(s(0), 1)
v = Join(s, ".")
t = Split(v, "@")
t(1) = nw
r.Value = Join(t, "@")
End Sub
--
Gary''s Student - gsnu200909


"rlpetrie12" wrote:

How do I write a macro to convert one email format to another. i.e.,
to (the first and last names are
capitalized and need to be first letter of first name combined with last
name, all lowercase and change the multiple email providers and extensions to
"?

converting email address formats
 

=LOWER(REPLACE(LEFT(A1,FIND("@",A1)),2,FIND(".",A1 )-1,))&"usuhs.edu"



"rlpetrie12" wrote:

How do I write a macro to convert one email format to another. i.e.,
to (the first and last names are
capitalized and need to be first letter of first name combined with last
name, all lowercase and change the multiple email providers and extensions to
"?