Çözüldü ThisWorkbook Workbook_Open makrosunu modüldeki makroda call yapabilirmiyim?

[Gungor_Alkan]

Merhaba
Başlıkta da yazdığı gibi ThisWorkbook, Workbook_Open makrosunu modüldeki makroda call yapabilirmiyim?
Workbook_Open ile bazı hücrelere bazı değerler atıyorum. İş gereği atanan bu değerleri bazen dosya açık iken değiştirmek yada silmem gerekiyor.
Yazıcı çıktısı alınca aynı değerlerin tekrar gelmesini istiyorum. Sub Yazdır () makrosu'nun en sonuna Call Workbook_Open yazıyorum çalışmıyor.
Değerleri atadığım kodu ThisWorkbook yerine örneğin Worksheet_Activate ye yazayım dedim ama sayfalarda çok gezdiğim için değiştirdiğim
değerler tekrar geri geliyor bu şekilde de çözüm bulamadım.
Yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Onu denemedim ama şunu yapabilirsin.
WorkBook Open içindeki kodları Module başka bir makro olarak kopyala
Hem thisWorkbook Open olayın çağır hem de istediğin yerde

 

[Gungor_Alkan]

Onu denemedim ama şunu yapabilirsin.
WorkBook Open içindeki kodları Module başka bir makro olarak kopyala
Hem thisWorkbook Open olayın çağır hem de istediğin yerde

Doğru söylüyorsun başka bir modüle daha yazdım istediğim gibi çağırıyorum.
Harikasın

 

[Korhan Ayhan]

ThisWorkbook bölümündeki prosedürler Private ile başlar. Modülden çağırabilmek için Public olarak değiştirmeniz yeterli olacaktır.

Option Explicit

Public Sub Workbook_Open()
    MsgBox "Dosya açılış makrosu çalıştırıldı..."
End Sub

Modül kodları;

Option Explicit

Sub Test()
    ThisWorkbook.Workbook_Open
End Sub