Soru Makro ile üstten satır kopyalama

[ethemozt]

Merhabalar

Örnek dosyamda Sayfa2 ye Doldur butonu yaptım bu butona her tıkladığımda üstteki satırı kopyalıyor.
Benim istediğim butona bir kez tıkladığımda üstteki satırı Sayfa1 deki dolu satır kadar kopyalaması.

Yardımlarınız için şimdiden çok teşekkür ederim.

 

[dEdE]

Dener misiniz?

Sub Doldur()
    If Not Sayfa1.Range("A3") > 0 Then Exit Sub
    Dim son As Long
    Dim ss As Long
    ss = Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To ss - 1
        son = Cells(Rows.Count, "D").End(xlUp).Row
        Range("A" & son, "Q" & son).Copy Range("A" & son + 1)
    Next
End Sub

 

[ethemozt]

Dener misiniz?

Sub Doldur()
    If Not Sayfa1.Range("A3") > 0 Then Exit Sub
    Dim son As Long
    Dim ss As Long
    ss = Sayfa1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To ss - 1
        son = Cells(Rows.Count, "D").End(xlUp).Row
        Range("A" & son, "Q" & son).Copy Range("A" & son + 1)
    Next
End Sub

Sayın dEdE
Tam istediğim gibi olmuş çok teşekkür ederim