Excele tablolara otmatik satır girmek

[salca0]

Merhaba
sorum şu..
bir çalışma kitabında sayfalardan birisine eklenen yeni bir satırın aynısı diğer sayfalara da otomatik olarak nasıl ekleniyor..(Diğer sayfaların CNTRL tuşu ile seçilmesi dışında..o metodu biliyorum..)..selamlar..

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Sub satir_ekle()
no = InputBox("Eklenecek Satır No:?")
Sheets("a").Rows(no).Insert
Sheets("b").Rows(no).Insert
End Sub