SAYI KADAR İSİM YAZDIRMA

[lord-06-]

Arkadaşlar merhaba,

Excel de sayı kadar isim yazma için ne yapmam gerekli?
yani A sutununda isimler B sutununda sayılar C sutununa B sutunundaki sayı kadar A sutunundaki isimleri alt alta yazdırmasını istiyorum.
yardımcı olursanız sevinirim.

Örnek Dosya : Sayı kadar isim yazdırma örnek dosyası

 

[dEdE]

Merhaba,
VBA kodları ile kolayca yapılabilir.
Aşağıdaki kodu bir modüle yapıştırarak örnek dosyanızda dener misiniz?

Sub test()
    Range("C2:C" & Rows.Count).ClearContents
    sat = 2
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        For j = 1 To Cells(i, 2).Value
            Cells(sat, 3) = Cells(i, 1).Value
            sat = sat + 1
        Next j
    Next i
End Sub

 

[Korhan Ayhan]

Formülle alternatif için dosyayı inceleyiniz.

Harici Link (Silinebilir) ; https://s2.dosya.tc/server23/xa740z/Formulle_Verileri_Cogaltarak_Listeleme.xlsx.html

 

[lord-06-]

Merhaba,
VBA kodları ile kolayca yapılabilir.
Aşağıdaki kodu bir modüle yapıştırarak örnek dosyanızda dener misiniz?

Sub test()
    Range("C2:C" & Rows.Count).ClearContents
    sat = 2
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        For j = 1 To Cells(i, 2).Value
            Cells(sat, 3) = Cells(i, 1).Value
            sat = sat + 1
        Next j
    Next i
End Sub

teşekkürler hocam

 

[lord-06-]

Formülle alternatif için dosyayı inceleyiniz.

Harici Link (Silinebilir) ; https://s2.dosya.tc/server23/xa740z/Formulle_Verileri_Cogaltarak_Listeleme.xlsx.html

teşekkürler hocam