-
Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.
-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Boş Satır Ekleme
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
Patron
Site Dostu
Aşağıdaki kodu deneyiniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Son düzenleme:
Çözüm
Eyvallah Hocam çok teşekkür ederim.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
Hocam denediğimde oluyor fakat sadece 1 yazanlara satır açmamış zahmet olmazsa onada bakabilirmisiniz
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
Çok teşekkür ettim elinize emeğinize sağlık halletik.