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 Dosya Yükleme tamamen ücretsizdir.
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
