• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Aynı hücrede yer alan verileri alt alta yazdırmak

likaba

Altın Üye
Katılım
3 Mayıs 2016
Mesajlar
158
Excel Vers. ve Dili
2016 Türkçe
Merhabalar,

Sol tarafta ham data yer almakta, sağ tarafta ise istenen veri yer almakta.
Birden fazla ad soyad virgülle ayrılmış biçimde tek hücrede yer almakta. Bunları alt alta yadırıp diğer bilgileri de aynen yanlarına yazdırmak istiyorum. Yardımcı olabilir misiniz?

https://www.dosya.tc/server43/mqtkjb/Kitap1.xlsx.html
 

Ekli dosyalar

Merhaba örnek kod.
İlgili sayfanın kod bölümüne ekleyiniz.
Kod:
Sub test()
son = Range("A" & Rows.Count).End(3).Row
son2 = Range("G" & Rows.Count).End(3).Row
Range("G2:K" & son2 + 1).Clear
satir = 1
    For i = 2 To son
        kisi = Split(Cells(i, 5), ",")
    sayi = UBound(kisi)
        For r = 0 To UBound(kisi)
            satir = satir + 1
            For c = 7 To 10
                Cells(satir, c) = Cells(i, c - 6)
            Next c
                Cells(satir, 11) = kisi(r)
        Next r
    Next i
End Sub
 
Merhaba örnek kod.
İlgili sayfanın kod bölümüne ekleyiniz.
Kod:
Sub test()
son = Range("A" & Rows.Count).End(3).Row
son2 = Range("G" & Rows.Count).End(3).Row
Range("G2:K" & son2 + 1).Clear
satir = 1
    For i = 2 To son
        kisi = Split(Cells(i, 5), ",")
    sayi = UBound(kisi)
        For r = 0 To UBound(kisi)
            satir = satir + 1
            For c = 7 To 10
                Cells(satir, c) = Cells(i, c - 6)
            Next c
                Cells(satir, 11) = kisi(r)
        Next r
    Next i
End Sub
Çok teşekkür ederim.
 
Geri
Üst