Birden çok sayfaya satır ekleme

[volkito]

Merhaba üstadlar, çalışma kitabı içerisinde yer alan 15 sayfaya aynı anda nasıl satır ekleyebilirim?

 

[feridici_genc]

makro kaydederek yapabilisiniz..
önce sadece bir sayfaya ekleyin sonra kodlardan o satırı çoğaltın. sayfa isimlerini değiştirin.

 

[volkito]

makro kaydederek yapabilisiniz..
önce sadece bir sayfaya ekleyin sonra kodlardan o satırı çoğaltın. sayfa isimlerini değiştirin.

Maalesef sorun orada. Çünkü makro bilmiyorum.

 

[feridici_genc]

örneğin,

Sub ekle()

Sheets("1").Rows("3:3").Insert shift:=xlDown
Sheets("2").Rows("3:3").Insert shift:=xlDown
Sheets("3").Rows("3:3").Insert shift:=xlDown
Sheets("4").Rows("3:3").Insert shift:=xlDown
Sheets("5").Rows("3:3").Insert shift:=xlDown
Sheets("6").Rows("3:3").Insert shift:=xlDown
Sheets("7").Rows("3:3").Insert shift:=xlDown
Sheets("8").Rows("3:3").Insert shift:=xlDown
Sheets("9").Rows("3:3").Insert shift:=xlDown
Sheets("10").Rows("3:3").Insert shift:=xlDown
Sheets("11").Rows("3:3").Insert shift:=xlDown
Sheets("11").Rows("3:3").Insert shift:=xlDown
Sheets("12").Rows("3:3").Insert shift:=xlDown
Sheets("13").Rows("3:3").Insert shift:=xlDown
Sheets("14").Rows("3:3").Insert shift:=xlDown
Sheets("15").Rows("3:3").Insert shift:=xlDown

End Sub

gibi..
Sheets("15") sayfa ismi
Rows("3:3") 3. satır olduğunu ifade ediyor.

 

[volkito]

Teşekkür ederim hocam