Kod ile hücredeki veriyi bölme nasıl yapılabilir?

[asdsxx]

Arkadaşlar excelde bir sütunda binlerce satır var. Bu satırlardaki hücrelerde farklı metinler var. yani iki cümleden oluşuyor. bu cümleler ";" noktalı virgül ile ayrılıyor.
Benim istediğim hücrede iki cümleden oluşan ve ";" ile ayrılan kısmı bölmek. (soldan kes, sağdan kes) formülündeki işlemi karakter sayısı belirterek değil de ";" den öncesini veya sonrasını bölmek.
"A" sütunundaki verilerin (satırlarda farklı Metin cümlesinin) bölünerek ";" den önceki bölümünü "B" sütununa, ";" sonraki bölümü de "C" sütununa yazması

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
A1 de Ali; Veli olsun
B1 e =SOLDAN(A1;MBUL(";";A1)-1)
C1 e =PARÇAAL(A1;MBUL(";";A1)+2;1000)
yazınız. Kodu da hazırlıyorum
iyi çalışmalar

 

[asdsxx]

Merhaba Arkadaşım,
A1 de Ali; Veli olsun
B1 e =SOLDAN(A1;MBUL(";";A1)-1)
C1 e =PARÇAAL(A1;MBUL(";";A1)+2;1000)
yazınız. Kodu da hazırlıyorum
iyi çalışmalar

Teşekkürler Tevfik Bey.

 

[Tevfik_Kursun]

Buyrun,

Sub test()
    Dim i&, bol As Variant, al$
    Range("B:C").ClearContents
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        al = Cells(i, 1).Value
        If InStr(al, ";") Then
            bol = Split(al, ";")
            Cells(i, 2).Value = bol(0)
            Cells(i, 3).Value = Trim(bol(1))
        Else
            Cells(i, 4).Value = al
        End If
    Next i
End Sub

Veysel Emre hoca 05.10.2022 de yazmıştı bu kodu, sizin çalışmaya uyarladım. Kendilerine bir kere daha teşekkür ederim.
iyi çalışmalar

 

[efem67]

Hücrede şuan 2 tanesini ayırıyor 100 tane yanyana olunca hangi bölümün sayısını arttıracağız.. Teşekkürler

 

[asdsxx]

Tekrar teşekkür ederim Tevfik Bey. Veysel Hocanın da ellerine sağlık.
Benim asıl istediğim bu idi...

 

[Tevfik_Kursun]

Rica ederim

 

[Tevfik_Kursun]

Merhaba efem67,
Bu da sizin için ;

Sub test()
    Dim Son As Long, yy As String, zz As String, xx As Long
    Range("B:Z").ClearContents
    Son = Cells(Rows.Count, 1).End(3).Row
        For i = 1 To Son
            zz = Cells(i, 1)
            yy = Replace(Cells(i, 1), ";", "")
            zz = Len(zz)
            yy = Len(yy)
            xx = zz - yy
                For x = 1 To xx + 1
                    al = Cells(i, 1).Value
                    If InStr(al, ";") Then
                        bol = Split(al, ";")
                        Cells(i, x + 1).Value = Trim(bol(x - 1))
                    End If
                Next x
        Next i
End Sub

iyi çalışmalar