Satırı Kopyala ve 6 Satır Olarak Yapıştır

[NasuhXTR]

Merhaba,

http://www.excel.web.tr/f14/makro-le-satir-ekleme-t21707.html konusunda verilen

Sub InsertCopyRow2()
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Sub

makrosu ile seçili satırı kopyalattırıp eklettiriyorum. Fakat bunu kopyala ve 4 satır ekle / kopyala ve 6 satır ekle şeklinde yapmam gerekiyor.

Yardımcı olabileceklere çok teşekkürler.

 

[ÖmerBey]

Merhaba,
Şu şekilde döngü kullanarak deneyebilirsiniz:

Sub InsertCopyRow2()
Do
    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
    tekrar = tekrar + 1
Loop [COLOR="Red"]While tekrar < 6[/COLOR]
End Sub

 

[NasuhXTR]

Çalıştı çok teşekkürler.