Birleşik olan veriyi ilgili değişkene yazması

[buurakengin]

tc	numara	Kesin	Asıl	Yedek
1234567890	Kesin:905055055555||Asıl:901234567890
1234567899	Kesin:905541527515||Asıl:905055055555||Yedek:901234567891
100100100100	Asıl:05055055555;901234567891

Merhaba arkadaşlar, Yukarıda tc ve numara değişkenleri var.
Çalıştırılacak kod ile Numara bölümünde birleşik olarak bulunan numaraları, sağ tarafta oluşturduğum değişken isimlerine göre ilgili yerlere yazmasını istiyorum.
Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Merhaba,

En son satırdaki "Asıl" verisi noktalı virgülle ayrılmış. Bu veri hangi sınıfa dahil edilecek?

 

[buurakengin]

O veri Asılda kalacak. Yani Asıl da 2 numara varmış gibi kabul edilecek.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Split_Data()
    Dim Rng As Range, My_Data As Variant
    
    Range("C2:E" & Rows.Count).ClearContents
    
    For Each Rng In Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)
        For Each My_Data In Split(Rng.Value, "||")
            If My_Data Like "*Kesin*" Then
                Rng.Offset(, 1) = Replace(My_Data, "Kesin:", "")
            ElseIf My_Data Like "*Asıl*" Then
                Rng.Offset(, 2) = Replace(My_Data, "Asıl:", "")
            ElseIf My_Data Like "*Yedek*" Then
                Rng.Offset(, 3) = Replace(My_Data, "Yedek:", "")
            End If
        Next
    Next

    MsgBox "Veriler ayrıştırılmıştır."
End Sub

 

[buurakengin]

Elinize sağlık hocam, iyi çalışmalar