Bir buton ile 3 farklı Makroyu bulundukları sayfada çalıştırma.

[hanivarya]

Abilerim Hocalarım Merhaba ,
Bir konuda yardıma ihtiyacım bulunmakta.
Bir excel çalışma kitabım var , bu kitap içerisinde 3 tane de çalışma sayfam var. Bu sayfalarda ayrı ayrı yazılmış makrom bulunuyor ve makroların işlemleri farklı. Ben bir buton ile bu 3 makroyu bulundukları çalışma sayfasında çalıştırmak istiyorum ve yapamıyorum.
sub hepsini_calistir()
Call sayfa1
Call sayfa2
Call sayfa3
end sub

Bu komutu kullandığımda , hepsini butonu koyduğum sayfada çalıştırıyor. Ben tek buton ile hepsini çalıştırsın fakat makroları kendi sayfalarında çalıştırsın istiyorum. Bu konuda yardım ve yönlendirmelerinizi bekliyorum teşekkür ederim.

 

[ÖmerFaruk]

Size şöyle yol göstereyim.
Sayfaların kod sayfasına şu makroları yazdım
Sayfa1'e

Sub Sayfa1dekiMakro()
    MsgBox "Sayfa1"
End Sub

Sayfa2'ye

Sub Sayfa2dekiMakro()
    MsgBox "Sayfa2"
End Sub

Module1 içine

Sub Makrolar()
    Call Sayfa1.Sayfa1dekiMakro
    Call Sayfa2.Sayfa2dekiMakro
End Sub

Modüldeki kod tetiklenince sayfadaki kodlar da sırasıyla tetiklendi.

 

[hanivarya]

Size şöyle yol göstereyim.
Sayfaların kod sayfasına şu makroları yazdım
Sayfa1'e

Sub Sayfa1dekiMakro()
    MsgBox "Sayfa1"
End Sub

Sayfa2'ye

Sub Sayfa2dekiMakro()
    MsgBox "Sayfa2"
End Sub

Module1 içine

Sub Makrolar()
    Call Sayfa1.Sayfa1dekiMakro
    Call Sayfa2.Sayfa2dekiMakro
End Sub

Modüldeki kod tetiklenince sayfadaki kodlar da sırasıyla tetiklendi.

hocam öncelikle cevap için teşekkür ederim fakat dediğin gibi yapıyoruma" method er data member not found "hatası alıyorum.
Benim çalışma kitabında sayfa1 sayfa2 ve Sw adında 3 adet çalışma sayfam var.
Sayfa1 içinde yazmış olduğum makronun adı ilksayfa
sayfa2 de yazmış olduğum makronun adı Tablo_MSAN
Sw çalışma sayfasında yazmış olduğum makronun adı da Sw_Makrosu olarak geçiyor.
Sizin dediğinize göre ben nasıl yapmam gerekiyor gerçek isimleri ile bana anlatırsanız çok sevinirim .

 

[ÖmerFaruk]

Gayet açık ve anlaşılır bir cevap yazdığımı düşünüyorum.
Ben 2 sayfalık bir örnek verdim. Ha 2 ha 99 hiç farketmez.
Yazdığım mesajı bir kez daha sağlıklı şekilde okursanız anlayacağınıza eminim.

 

[hanivarya]

Gayet açık ve anlaşılır bir cevap yazdığımı düşünüyorum.
Ben 2 sayfalık bir örnek verdim. Ha 2 ha 99 hiç farketmez.
Yazdığım mesajı bir kez daha sağlıklı şekilde okursanız anlayacağınıza eminim.

Gayet açık ve anlaşılır bir cevap yazdığımı düşünüyorum.
Ben 2 sayfalık bir örnek verdim. Ha 2 ha 99 hiç farketmez.
Yazdığım mesajı bir kez daha sağlıklı şekilde okursanız anlayacağınıza eminim.

teşekkür ederim açık ve net yazmışsın fakat yaptığının aynısını makroların üstüne yapıştırıyorum. sonra da ayrı bir modüle yazdığını yazıyorum hata veriyor. bir yerde yanlış yapıyorum bulamıyorum.

 

[Cengiz Demir]

Ufak bir hatırlatma : Diğer sorunu çözersiniz. Bunu da bi kontrol edin.
Eğer sayfalardaki makrorlarınızda
Worksheet, sheet komutlarını kullanıyorsanız ; (aşağıda yazdığım gibi düzenlemediyseniz)
Sayfa isimlerini yada sayfa numaralarını belirtmeyi unutmayın. Örn.
Sheets("Sayfa1").cells(1,1)
Yada her sayfa makrosunun başına ilgili sayfayı seçtirecek kodu yazın.
Örn: Sheets("Sayfa1").select

Aksi takdirde 3 kodda o an seçili sayfada işlem yapar.

 

[ÖmerFaruk]

İlk mesajımdaki ilk cümlemde Yol Gösteriyorum diye belirtmiştim.
Yazdığım örneklere tamamen gelişigüzel olup sadece yol gösterme amaçlıdır.

Eğer yapamıyorsanuz ve mümkünse dosyanızı paylaşırsanız direkt bakıp düzeltelim.

 

[hanivarya]

teşekkür ederim açık ve net yazmışsın fakat yaptığının aynısını makroların üstüne yapıştırıyorum. sonra da ayrı bir modüle yazdığını yazıyorum hata veriyor. bir yerde yanlış yapıyorum bulamıyorum.

teşekkür ederim ,

Ufak bir hatırlatma : Diğer sorunu çözersiniz. Bunu da bi kontrol edin.
Eğer sayfalardaki makrorlarınızda
Worksheet, sheet komutlarını kullanıyorsanız ; (aşağıda yazdığım gibi düzenlemediyseniz)
Sayfa isimlerini yada sayfa numaralarını belirtmeyi unutmayın. Örn.
Sheets("Sayfa1").cells(1,1)
Yada her sayfa makrosunun başına ilgili sayfayı seçtirecek kodu yazın.
Örn: Sheets("Sayfa1").select

Aksi takdirde 3 kodda o an seçili sayfada işlem yapar.

teşekkür ederim emeğinize sağlık düzelttim.