İ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ı:
KTF Kodları
[*]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.
Aynı ihtiyacın formülle olan çözümü için, İstenilen Sayı Kadar Çalışan Listesi Oluşturma dosyasını indirebilirsiniz.
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
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.Aynı ihtiyacın formülle olan çözümü için, İstenilen Sayı Kadar Çalışan Listesi Oluşturma dosyasını indirebilirsiniz.
Ekli dosyalar