tüm sayfalara satır ekleme?

[tahiroglu]

merhaba arkadaşlar.yaklaşık olarak 150 sayfalı bir çalışma kitabım var ve ben gerektiğinde kullanacağım bir makro ile tüm sayfaların "a6" hücresinin altına ve "a24" hücresinin altına satır eklemek istiyorum.forumdaki kodları inceledim ama kendime uyarlayamadım.yardımlarınızı bekliyorum.

range("a6").select
selection.entirerow.insert
bu kodu nasıl kendime uyarlayabilirim?

 

[Necdet]

Merhaba,

İlk sayfadan sonra çalışır, deneyiniz.

Public Sub Satir_Ekle()
For i = 2 To Sheets.Count
Sheets(i).Select
Range("a7").Select
Selection.EntireRow.Insert
Next i
Sheets(1).Select
End Sub

 

[AS3434]

Sayın tahiroğlu

Şöyle birşey olabilir mi?

Sub ekle()
For i = 1 To Worksheets.Count
Sheets(i).[a6].EntireRow.Insert
Sheets(i).[a24].EntireRow.Insert
Next
End Sub

NOT.
Sayın Yesertener
Cevabınızı görmedim..

 

[Necdet]

Rica ederim Sayın AS3434,

Sizin kodlarınız daha kısa, bende sizin yanıtınızdan yeni birşey öğrenmiş oldum.

Yalnız Sayın Tahiroglu A6 hücresinden sonra dediği için ben A7 olarak yazdım ve diğer satır eklemeyi de Sayın Tahiroglu'na bırakmıştım

 

[AS3434]

Sayın Yesertener

Siz de detayları gayet güzel düşünmüşsünüz.

Bugün nedense bir dalgınlık var. Sorulara okuyorum hep yalan yanlış anlıyorum. İşgününe daha uyum sağlıyamadım herhalde.

 

[tahiroglu]

teşekkürler arkadaşlar yardımınız için.

 

[goklerhakimi]

Merhaba,

ben de mesajlari okumadan bi yazmış bulundum, diğerlerinden çok farkı yok aslinda

For i = 1 To Sheets.Count
Sheets(i).Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Rows("24:24").Select
Selection.Insert Shift:=xlDown
Next i