Çözüldü Boş Satır Ekleme

[fatiherol]

Merhaba elimde lister var D sutunundaki rakam kadar o sutunun altına boş satır açmam gerekiyor 67018 satır var bunun gibi örnek resim alttadır acil bir makro önerebilirmisiniz ?

 

[Patron]

Aşağıdaki kodu deneyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[fatiherol]

Sub satırekle() Set sut = Range("D") ss = Range("D" & Rows.count).End(xlUp).Row On Error Resume Next For i = ss To 2 Step -1 adet = Range("D" & i) If adet > 1 Then Rows(i + 1 & ":" & i + adet).Insert Shift:=xlDown Next i End Sub

Eyvallah Hocam çok teşekkür ederim.

 

[fatiherol]

Aşağıdaki kodu deneyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Hocam denediğimde oluyor fakat sadece 1 yazanlara satır açmamış zahmet olmazsa onada bakabilirmisiniz

 

[Patron]

Kodda gerekli düzeltmeyi yaptım. Sayfayı yenileyin.

 

[fatiherol]

Kodda gerekli düzeltmeyi yaptım. Sayfayı yenileyin.

Hocam emekleriniz için teşekkür ederim bir şey daha istesem açılan boş satırlara d sütununda 1234 gibi numaralandırmada olabilir mi örneğin 3 boş satır açıldı 123 sonra alt tarafta açılan satırada aynı şekilde

 

[Patron]

Kodu tekrar düzenledim. Sayfayı yenileyin.

 

[fatiherol]

Çok teşekkür ettim elinize emeğinize sağlık halletik.