Soru Boşluk ekle kopyala yapıştır

[okan32]

Örnek dosyadaki tablodaki kodlarla veriler arasına birer boş satır ekleyebiliyorum . Yapmak istediğim eklenen boş satırlara üstündeki veriyi kopyalayıp yapıştırmak istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makro her satırın kopyasını alt satıra ekler:

Sub cogalt()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = son To 2 Step -1
        Rows(i).Copy: Rows(i + 1).Insert Shift:=xlDown
    Next
    Application.CutCopyMode = False
End Sub

 

[okan32]

Aşağıdaki makro her satırın kopyasını alt satıra ekler:

Sub cogalt()
    son = Cells(Rows.Count, "A").End(3).Row
    For i = son To 2 Step -1
        Rows(i).Copy: Rows(i + 1).Insert Shift:=xlDown
    Next
    Application.CutCopyMode = False
End Sub

Çok Teşekkür ederim Yusuf Hocam