Makro ile değişken sayıda satır ekleme

[muhmayar]

Merhaba arkadaşlar,

Excelde basit gibi duran ancak ilginç bir konum var. Makro ile satır ekleme örnekleri çokça bulunuyor ancak değişken sayıda satır ekleme konusuna ait herhangi bir bilgi bulamadım. Ekte örnek excel'i bulabilirsiniz. A sütunund isimler ve B sütununda ise açılması istenen satır sayısını bulabilirsiniz.

Yani sayfa 1 başlangıç durumunu, sayfa 2 ise makro çalıştıktan sonraki durumu gösteriyor. Nasıl yapılabilir bilemedim. Şimdiden teşekkür ediyorum.

Not: Bu dosyada 4 isim için eklenmesi gereken satır sayılarını örnek yazdım. Bu makroyu binlerce satırlık bir dosyada kullanmam gerekiyor.

 

[Murat OSMA]

Şu an örneğinize uygun bir kod yazacak zamanım yok fakat burada istediğiniz uygulamalar mevcuttur. Belirtilen Sayı Kadar Satır Eklemek
İyi günler.​

 

[muhmayar]

Merhaba,

Belirttiğiniz adresteki çözümler paralı üyelik olmaksızın görüntülenmiyor. Sağolun.

Kod için yardımcı olmak isteyen arkadaşlar var mı?

 

[muhmayar]

Merhaba tekrar,

Kodu biraz uğraştım ama sanıyorum yazmayı başardım. Aşağıda bulabilirsiniz.

Sub BosSatir()
Dim a As Integer
Dim sayi As Integer

For a = Range("A65536").End(xlUp).Row To 2 Step -1
    If Cells(a, 1) <> "" Then
        sayi = Cells(a, 2)
        Rows(a + 1 & ":" & a + sayi).Insert 
    End If
Next a
End Sub