Makro İle Satir Ekleme

[takirti]

Elİmde 300-400 LÜk Satirlik Excell ÇaliŞmasi Var. Bu Satirlar Arasinda BoŞ Satir Eklemek İstİyorum. Acaba Makro İle Nasil Eklerİm. TŞkler.

 

[veyselemre]

Sub SatirEkle()
For x = [A65336].End(3).Row To 2 Step -1
    Rows(x).Insert shift:=xlDown
Next x
End Sub

 

[xxdogan]

Sub InsertCopyRow2()
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Sub
hem ekleme hem kopyalama yapar

 

[takirti]

yardımlarınız için tşkler ama acaba örnek bir excel çalışması şeklinde yollamanız mümkünmü?

 

[xxdogan]

buyrun dosyanız ekte

 

[takirti]

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.

 

[Korhan Ayhan]

Selamlar,

Sn. veyselemre beyin kodunu denediniz mi ?

 

[takirti]

denedim ama makroyu çalıştıramadım. bu konuda yardımcı olurmusunuz?

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

Ayrıca makrolar konusunda bilgi almak için lütfen Excel Dersanesi bölümünü inceleyiniz.

 

[takirti]

Ç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.