Sub InsertCopyRow2()
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Sub
hem ekleme hem kopyalama yapar
yardımlarınıız için tşkler. güzel bir makro olmuş. Ama benim tan olarak istediğim 300-400 satırlık excel çalışmamdam tek bir makro ile 400 satırın her bir satırına boş satır eklemesidir. yani örnek olarak alt alta 1 2 3 4 5 6 7 8 9 10 şeklindeki sayıların aralarına birer boş satır açmasıdır. Eğer bu konuda yardımcı olabilirseniz çok sevinirim.
Çok Teşekkür ederim. tam istediğim sey buydu. Fakat aynı kodları kullanmama rağmen ben bir türlü makroyu çalıştıramadım. Neyse belki bir yerde hata yapıyorum. Emeğin için saol.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.