-
DİKKAT !
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.
Giriş yap veya Şimdi kayıt olBu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.Çözümfatiherol
Yeni Üye- Katılım
- 17 Mar 2021
- Mesajlar
- 74
- Çözümler
- 2
- Aldığı beğeni
- 19
- Excel V
- Office 365 TR
Konu Sahibi
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
fatiherol
Yeni Üye- Katılım
- 17 Mar 2021
- Mesajlar
- 74
- Çözümler
- 2
- Aldığı beğeni
- 19
- Excel V
- Office 365 TR
Konu Sahibi
Hocam denediğimde oluyor fakat sadece 1 yazanlara satır açmamış zahmet olmazsa onada bakabilirmisiniz
Patron
Site Dostu- Katılım
- 6 Mar 2021
- Mesajlar
- 2,769
- Çözümler
- 833
- Aldığı beğeni
- 3,447
- Excel V
- Office 2021 TR
Kodda gerekli düzeltmeyi yaptım. Sayfayı yenileyin.fatiherol
Yeni Üye- Katılım
- 17 Mar 2021
- Mesajlar
- 74
- Çözümler
- 2
- Aldığı beğeni
- 19
- Excel V
- Office 365 TR
Konu Sahibi
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
Site Dostu- Katılım
- 6 Mar 2021
- Mesajlar
- 2,769
- Çözümler
- 833
- Aldığı beğeni
- 3,447
- Excel V
- Office 2021 TR
Kodu tekrar düzenledim. Sayfayı yenileyin.fatiherol
Yeni Üye- Katılım
- 17 Mar 2021
- Mesajlar
- 74
- Çözümler
- 2
- Aldığı beğeni
- 19
- Excel V
- Office 365 TR
Konu SahibiÇok teşekkür ettim elinize emeğinize sağlık halletik.
