Bir grup hücreyi altalta yazdırma

[oguzhan08]

Merhabalar;

D1:J6 grubundaki hücreleri kopyalayarak L1:R6 bölgesine yazdırmak ve A2 hücresindeki rakam kadar bu kopyalamayı altalta tekrar ettirmek istiyorum ancak bununla ilgili çalışan bir makro kodu yazamadım. Bununla ilgili bir öneriniz var mıdır acaba?

örnek dosya:
http://s6.dosya.tc/server8/eoq5fh/prog_1.xlsx.html

 

[tamer42]

Merhabalar;

D1:J6 grubundaki hücreleri kopyalayarak L1:R6 bölgesine yazdırmak ve A2 hücresindeki rakam kadar bu kopyalamayı altalta tekrar ettirmek istiyorum ancak bununla ilgili çalışan bir makro kodu yazamadım. Bununla ilgili bir öneriniz var mıdır acaba?

örnek dosya:
http://s6.dosya.tc/server8/eoq5fh/prog_1.xlsx.html

bu kodları deneyebilirsiniz.

Sub tekrar()
Dim a As Long, b As Long, k As Long
Dim tekrar As Long, dn As Long

    Range("L1:S100").Select
    Selection.ClearContents
    
    
    Range("L1").Select

k = 1
dn = 0

tekrar = Cells(1, 2).Value

basa:
For a = 1 To 6

        For b = 0 To 6
 
             Cells(k, 12 + b) = Cells(a, 4 + b)
   
        Next b
 
k = k + 1

Next a

dn = dn + 1

If dn < tekrar Then GoTo basa:

End Sub

 

[oguzhan08]

Çok teşekkür ederim Tamer Bey, iyi çalışmalar.