Bütün sayfalar için aynı kodu çalıştırmak

[Oxco777]

Merhabalar

sheets("ETİMESGUT-1").Select
Range("B57").Select
ActiveCell.FormulaR1C1 = _
"=SUM(R[-53]C:R[-1]C,R[-53]C[2]:R[-1]C[2],R[-53]C[4]:R[-39]C[4])"
Range("F57").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-36]C:R[-1]C)"
Range("A58:F60").Select


bu kodu excel dosyası içindeki ilk 40 sayfa içinde çalıştırmak istiyorum.


Şimdiden teşekkürler.

 

[Ömer BARAN]

Gönderdiğim dosyadaki makroyu çalıştıran dikdörtgeni,
belgenizdeki tüm sayfalara yapıştırırsanız kullanabilirsiniz.

Sayfa ismine sağ tıklayıp -> "Kodu Görüntüle" tıkladığınızda açılan
ekranda Solda Module1 kısmına bakarsanız çalışan (adını "islem" şeklinde yazdım)
kodu görebilirsiniz.

Bu arada oluşturacağınız kodlarda Select kodunu pek kullanmamanızı öneririm.

 

[Oxco777]

Açıkçası VBA kodlamada çok yeniyim ve o kodlamayı "Makro Kaydet" deyip Excel üzerinde istediğim çalışmayı yapıp "Makro Kaydını Durdur" diyerek oluşturdum. O yüzden Select kodunu kullanmadan nasıl yazılır en ufak bir fikrim yok.

2. olarak cevap verdiğiniz için teşekkürler ama benim istediğim, makroyu çalıştır dediğimde 1. sayfada yaptığım işlemleri geri kalan 40 sayfa içinde aynen yapması. O yüzden her sayfada o dikdörtgene tıklamak benim için çok da verimli olmuyor.

 

[Ömer BARAN]

Sanırım sitede arama yapmıyorsunuz.
Aşağıdaki konuda cevap var.
http://www.excel.web.tr/f48/makro-her-sayfada-aly-syn-t116263.html

 

[Oxco777]

"bütün sayfalar" diye aramıştım ama kriter yanlışmış. Pardon. Uyarınız için de teşekkür ederim.