CAN SOMEBODY HELP ME WITH SPLITTING CELL INFORMATION

%3CLINGO-SUB%20id%3D%22lingo-sub-2421751%22%20slang%3D%22en-US%22%3ECAN%20SOMEBODY%20HELP%20ME%20WITH%20SPLITTING%20CELL%20INFORMATION%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2421751%22%20slang%3D%22en-US%22%3E%3CP%3EI%20need%20to%20splitt%20the%20information%20i%20cell%20C.%3C%2FP%3E%3CP%3EInto%20business%20name%20-%20gateaddress%20-%20gate%20nr.%20-%20zipcode%20-%20city.%3C%2FP%3E%3CP%3ELike%20i%20shows%20in%20row%204%20collum%20I%20-%20J%20-%20K%20-%20L%20-%20M.%3C%2FP%3E%3CP%3EMail%20address%26nbsp%3B%3C%2FP%3E%3CP%3EFrank%20Olsen%3C%2FP%3E%3CP%3E%3CA%20href%3D%22mailto%3Aolsen3269%40gmail.com%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%22%3Eolsen3269%40gmail.com%3C%2FA%3E%3C%2FP%3E%3CP%3Eor%20%3CA%20href%3D%22mailto%3Aolsen3269%40outlook.com%22%20target%3D%22_blank%22%20rel%3D%22nofollow%20noopener%20noreferrer%22%3Eolsen3269%40outlook.com%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2421751%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2421927%22%20slang%3D%22en-US%22%3ERe%3A%20CAN%20SOMEBODY%20HELP%20ME%20WITH%20SPLITTING%20CELL%20INFORMATION%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2421927%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1072567%22%20target%3D%22_blank%22%3E%40birken4115%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3EHere%20is%20a%20macro%3A%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual%22%3E%3CCODE%3ESub%20SplitData()%0A%20%20%20%20Dim%20r%20As%20Long%0A%20%20%20%20Dim%20m%20As%20Long%0A%20%20%20%20Dim%20p()%20As%20String%0A%20%20%20%20Dim%20pos%20As%20Long%0A%20%20%20%20Application.ScreenUpdating%20%3D%20False%0A%20%20%20%20m%20%3D%20Range(%22C%22%20%26amp%3B%20Rows.Count).End(xlUp).Row%0A%20%20%20%20Range(%22I2%3AM%22%20%26amp%3B%20m).Clear%0A%20%20%20%20For%20r%20%3D%202%20To%20m%0A%20%20%20%20%20%20%20%20p%20%3D%20Split(Range(%22C%22%20%26amp%3B%20r).Value%2C%20vbLf)%0A%20%20%20%20%20%20%20%20Range(%22I%22%20%26amp%3B%20r).Value%20%3D%20p(0)%0A%20%20%20%20%20%20%20%20If%20UBound(p)%20%26gt%3B%3D%201%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20pos%20%3D%20InStrRev(p(1)%2C%20%22%20%22)%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20pos%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22J%22%20%26amp%3B%20r).Value%20%3D%20Left(p(1)%2C%20pos%20-%201)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22K%22%20%26amp%3B%20r).Value%20%3D%20Mid(p(1)%2C%20pos%20%2B%201)%0A%20%20%20%20%20%20%20%20%20%20%20%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22J%22%20%26amp%3B%20r).Value%20%3D%20p(1)%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20If%20UBound(p)%20%26gt%3B%3D%203%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20pos%20%3D%20InStr(p(3)%2C%20%22%20%22)%0A%20%20%20%20%20%20%20%20%20%20%20%20If%20pos%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22L%22%20%26amp%3B%20r).Value%20%3D%20Left(p(3)%2C%20pos%20-%201)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22M%22%20%26amp%3B%20r).Value%20%3D%20Mid(p(3)%2C%20pos%20%2B%201)%0A%20%20%20%20%20%20%20%20%20%20%20%20Else%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22M%22%20%26amp%3B%20r).Value%20%3D%20p(3)%0A%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20Next%20r%0A%20%20%20%20Application.ScreenUpdating%20%3D%20True%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

I need to splitt the information i cell C.

Into business name - gateaddress - gate nr. - zipcode - city.

Like i shows in row 4 collum I - J - K - L - M.

Mail address 

Frank Olsen

olsen3269@gmail.com

or olsen3269@outlook.com

 

 

1 Reply

@birken4115 

Here is a macro:

Sub SplitData()
    Dim r As Long
    Dim m As Long
    Dim p() As String
    Dim pos As Long
    Application.ScreenUpdating = False
    m = Range("C" & Rows.Count).End(xlUp).Row
    Range("I2:M" & m).Clear
    For r = 2 To m
        p = Split(Range("C" & r).Value, vbLf)
        Range("I" & r).Value = p(0)
        If UBound(p) >= 1 Then
            pos = InStrRev(p(1), " ")
            If pos Then
                Range("J" & r).Value = Left(p(1), pos - 1)
                Range("K" & r).Value = Mid(p(1), pos + 1)
            Else
                Range("J" & r).Value = p(1)
            End If
        End If
        If UBound(p) >= 3 Then
            pos = InStr(p(3), " ")
            If pos Then
                Range("L" & r).Value = Left(p(3), pos - 1)
                Range("M" & r).Value = Mid(p(3), pos + 1)
            Else
                Range("M" & r).Value = p(3)
            End If
        End If
    Next r
    Application.ScreenUpdating = True
End Sub