tekrar yazmak makro ile

[akgüvercin]

Sorunum şu ...

A5 hücresi "5" değerini içeriyor.
D5 Hücresi ise "11" değerini içeriyor...

Bir CommandButton a tıkladığımda A5 hücresindeki değeri D5 hücresindeki değer kadar. e5,f5,g5,... satırına yazdırmak...

Ve bunu
A:A sutununda ki Boş Hücreye gelene kadar tekrarlamak....

İlgi ve Alakanız için şimdiden teşekkür ederim ....

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub Yaz()
[a5].Select
son = WorksheetFunction.Count([A5:A1000])
For i = 1 To son
    For j = 1 To ActiveCell.Offset(0, 3).Value
        ActiveCell.Offset(0, 3 + j).Value = ActiveCell.Value
    Next j
ActiveCell.Offset(1, 0).Select
Next i
[a5].Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TEKRARLA()
    [E:IV] = ""
    For X = 1 To [A65536].End(3).Row
    For Y = 5 To Cells(X, "D") + 4
    If Cells(X, "D") <> "" Then Cells(X, Y) = Cells(X, "A")
    Next: Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibide deneyebilirsiniz.

Sub cogalt()
For a = 5 To [a65536].End(3).Row
Range("e" & a, Cells(a, Cells(a, "d") + 4)) = Cells(a, "a")
Next
End Sub

 

[akgüvercin]

teşekkur ederim ...
Sizler olmasanız bizler ne yapardıkki...