1. Welcome to Chandoo.org Forums. Short message for you

    Hi Guest,

    Thanks for joining Chandoo.org forums. We are here to make you awesome in Excel. Before you post your first question, please read this short introduction guide. When posting or responding to questions please remember our values at Chandoo.org are: Humility, Passion, Fun, Awesomeness, Simplicity, Sharing Remember that we have people here for whom English is not there first language and we need to allow for this in our dealings.

    Yours,
    Chandoo
  2. Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  3. When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Change lotus to OutLook

Discussion in 'VBA Macros' started by Monty, Aug 10, 2017.

  1. Monty

    Monty Well-Known Member

    Messages:
    802
    Hello Everyone..

    Quite interesting question....When we are working with lotus notes had email ids like Monty Ronnie/Had/Asia/,...Of course depending on region email id is different....Now the question is how can copy 1000 + Email ids and paste in excel and change them to OutLook email ids....Like Monty Ronnie;

    Process would let's manually copy ids from lotus notes then paste them to excel...Now macro should covert them to our Requirements.

    Hope not confused..
  2. Chihiro

    Chihiro Well-Known Member

    Messages:
    3,456
  3. Monty

    Monty Well-Known Member

    Messages:
    802
    Here is the attachment with sample email ids:

    Attached Files:

  4. shrivallabha

    shrivallabha Excel Ninja

    Messages:
    1,648
    Maybe you can use UDF like one below and then use it like below:
    =ConvertLNToOL(A1)
    Code (vb):

    Public Function ConvertLNToOL(rng As Range)
    Dim varOut
    Dim i As Long
    varOut = Split(Trim(rng.Value), ",")
    For i = LBound(varOut) To UBound(varOut)
      If Len(Trim(varOut(i))) > 0 Then varOut(i) = Mid(varOut(i), 1, InStr(1, varOut(i), "/", vbTextCompare) - 1)
    Next i
    ConvertLNToOL = Join(varOut, ";")
    ConvertLNToOL = Left(ConvertLNToOL, Len(ConvertLNToOL) - 1)
    End Function
     
    Chihiro likes this.

Share This Page