İsimleri Belirtilen Sayı Kadar Tekrarlama

İsimleri Belirtilen Sayı Kadar Tekrarlama

İsimleri Belirtilen Sayı Kadar Tekrarlama isimli içerikte, A sütunundaki isimleri, B sütunundaki sayılara göre C sütununda tekrar edecek şekilde listeleyen hazır makro ve KTF yer almaktadır.

VBA Kodları:
Kod:
Sub Tekrarla()
    Dim ws As Worksheet
    Dim i As Integer
    Dim j As Integer
    Dim sayac As Integer
    Dim ad As String

    Set ws = Sayfa1
    ws.Cells(ws.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Value = "İsimler"
    
    For i = 3 To ws.Cells(Rows.Count, 2).End(xlUp).Row
  sayac = ws.Cells(i, 3).Value
  ad = ws.Cells(i, 2).Value

  For k = 1 To sayac
ws.Cells(ws.Cells(Rows.Count, 5).End(xlUp).Row + 1, 5).Value = ad
  Next k
    Next i
End Sub
KTF Kodları
Kod:
Function IsimleriTekrarla(rngIsimler As Range, rngTekrarSayilari As Range) As Variant
    Dim sonuclar() As String
    Dim toplamTekrar As Integer
    toplamTekrar = 0

    Dim i As Integer
    For i = 1 To rngIsimler.Rows.Count
  toplamTekrar = toplamTekrar + rngTekrarSayilari.Cells(i, 1).Value
    Next i

    ReDim sonuclar(1 To toplamTekrar)

    Dim j As Integer
    Dim k As Integer
    k = 1

    For i = 1 To rngIsimler.Rows.Count
  For j = 1 To rngTekrarSayilari.Cells(i, 1).Value
sonuclar(k) = rngIsimler.Cells(i, 1).Value
k = k + 1
  Next j
    Next i

    IsimleriTekrarla = Application.WorksheetFunction.Transpose(sonuclar)
End Function

Uygulama Adımları​


[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.

[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.

Kod Açıklaması​

İhtiyaç, verilen isimleri istenen sayılar kadar alt alta yazdırmak şeklindedir. Üstteki iki kod ile işin üstesinden kolayca gelebilirsiniz.

İsimleri Belirtilen Sayı Kadar Tekrarlama


Aynı ihtiyacın formülle olan çözümü için, İstenilen Sayı Kadar Çalışan Listesi Oluşturma dosyasını indirebilirsiniz.
 

Ekli dosyalar

Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst