Birden fazla makroyu otomatik çalıştırmak.

[sinan05]

Hocalarım değerli arkadaşlar merhaba. Bir konuda yardımınızı rica edebilirmiyim.
Sorunum şu; çalışma kitabımda 4 modül oluşturdum ve her modüle farklı makrolar atadım. Bu dört makroda exceli açtığımda otomatik çalışsın istiyorum her makronun başına Sub AUTO_OPEN() yazdım fakat hata veriyor. Nerde yanlış yapıyorum acaba.
yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Makrolarınıza aşağıdaki gibi isimler verildiğini düşünelim;

Örneğin;

Module1 deki makro: ozet_al
Module2 deki makro: listele
Module3 deki makro: yazdir

Gibi.

VBA ekranındaki Buçalışmakitabı sayfasına;

Private Sub Workbook_Open()
    Module1.ozet_al
    Module2.listele
    Module3.yazdir
End Sub

.

 

[numan şamil]

Merhaba
Örn:Makro1,Makro2,Makro3 adlarında Üç makro kodların olduğunu varsayarsak
BuÇalışmaKitabı kod Sayfasına

Private Sub Workbook_Open()
Makro1
Makro2
Makro3
'.......Şeklinde makro adlarını yazıp kaydet exceli kapatıp tekrar dener misiniz

End Sub

 

[numan şamil]

Ömer Bey
Görmemişim

 

[sinan05]

Sayın Ömer Hocam ve Sayın Numan şahin hocam ilginize çok teşekkür ederim sağolun. Ben de şu şekilde bir çözüm buldum sizce hangisi daha uygun tavsiyeniz nedir acaba. Benim bulduğum aşağıdaki gibi;

Sub auto_open ()
Call makro adı
Call makro adı
Call makro adı
Call makro adı
End sub

 

[Ömer]

Merhaba,

Aynı görevi yapar.

Tek farklı; BuÇalışmaKitabı'ndaki Private Sub Workbook_Open makrosu, module yazılan Sub auto_open () makrosundan önce çalışır.

Örneğin, bu iki bölümde farklı kodlarınız varsa öncelik sırası BuÇalışmaKitabı'na yazdığınız Private Sub Workbook_Open makrosunda olur.

.