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

Katılım
18 Ekim 2021
Mesajlar
27
Excel Vers. ve Dili
Excel 2016- Türkçe

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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,178
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

En son satırdaki "Asıl" verisi noktalı virgülle ayrılmış. Bu veri hangi sınıfa dahil edilecek?
 
Katılım
18 Ekim 2021
Mesajlar
27
Excel Vers. ve Dili
Excel 2016- Türkçe
O veri Asılda kalacak. Yani Asıl da 2 numara varmış gibi kabul edilecek.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,178
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

C++:
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
 
Üst