help with replace function 1

[starclassic]

I have a lot of email address with this format
jane.doe.abcd@companyname.com
wants to write a funtion and results
will be like this --> Jane Doe
Any Idea?

 

[AlexCuse]

Have a look at left, mid, upper and InStr functions. But know that this will probably fail on email addresses not following the format you specify.

Hope this helps,

Alex

Ignorance of certain subjects is a great part of wisdom

 

[PHV]

A starting point:
strEmail = "jane.doe.abcd@companyname.com"
Dim a
a = Split(Left(strEmail, InStr(strEmail, "@") - 1), ".")
strName = StrConv(a(0) & " " & a(1), vbProperCase)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

. . . or perhaps this function:

[blue]Public Function Leader2(adrEmail As String) As String
   Dim Ary
   
   If adrEmail Like "*.*.*.*" Then
      Ary = Split(adrEmail, ".")
      Leader2 = StrConv(Ary(0) & " " & Ary(1), vbProperCase)
   End If

End Function[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[starclassic]

Thanks a lot, I have created my own function and works quite well, but PHV is more simpler.

Thanks again.

 

[LarrySteele]

AceMan,

In all the years that I've worked with VBA, I never knew I could use a Like statement in a condition like that. Learnt me something new today. Have a star on me.

Thanks!
Larry