sayı kadar satır çoğaltmak

[cemşir79]

Daha önce bu konuyu açmıştım fakat çözüm bulamadım indirdiğim dosyayı kendime uyarlamaya çalıştım ama olmadı sizlerden ricam benim istediğim makroya tıkladığımda R5 hücresinde bulunan sayı kadar A11 den başlayıp hücrelerde bulanan formül veya değerlerinde içerisinde bulunduğu satrları R11 E kadar bir alt satıra ekleyeblirmiyiz şimdi örnek olarak 1 sayfa ekledim bu 81 il olacak şekilde ayarlanmasıdır.

 

[Korhan Ayhan]

Deneyiniz.

Sub Insert_Row()
    Dim Son As Long
    Son = Cells(Rows.Count, 2).End(3).Row
    Range("A" & Son & ":R" & Son).AutoFill Range("A" & Son & ":R" & Son + Range("R5").Value), xlFillDefault
End Sub

 

[cemşir79]

Korhan hocam teşekkür ederim nedense hata alıyorum

 

[Korhan Ayhan]

Paylaştığınız dosyada L15:M15 ve sonraki hücreler birleştirilmiş hücre olarak görünüyor. 15. satır ve sonrali satırları silip kodu denerseniz çalışacaktır.

 

[cemşir79]

Korhan hocam ne kadar teşekkür etsem azdır hakkını helal ustam

 

[Korhan Ayhan]

Helâl olsun...