Aynı Karekterleri Birden Fazla Yazdırma

[xnanx]

Herkese merhaba,
Excelde A sutünundan başlayarak kod ve açıkalama yazan malzeme kartları var.
bunların her birini 60 defa yazdırabilmem mümkün olur mu acaba

Örnek dosya ekte mevcut kısa istediğim.

Ürün Kod - Açıkalma

1 Vida
2 Çekip
3 Tornavida


Yukarıdaki gibi çarşaf listede her bir satırı 60 defa yazdırmak istiyorum
1 Vida
1 Vida
1 Vida
1 Vida
1 Vida
x60 x60vida

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Yinele()
    Dim i   As Long
    Dim Sat As Long
    Dim Adt As Integer
    Adt = 60
    Sat = 2
    
    Application.ScreenUpdating = False
    Range("E2:F" & Cells(Rows.Count, "F").End(3).Row + 2).ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Range("A" & i & ":B" & i).Copy Range("E" & Sat)
        Range("E" & Sat & ":F" & Sat + Adt - 1).FillDown
        Sat = Sat + Adt
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "Bitti..........."
End Sub