Soru Kodların sonunda başka makro çağırmak

GursoyC

Altın Üye
Katılım
7 Ocak 2015
Mesajlar
558
Excel Vers. ve Dili
Office 2024 Türkçe
Altın Üyelik Bitiş Tarihi
17-05-2028
Herkese merhaba,
aynı klasörde bulunan ve o anda ikisi de açık olan iki .xlsm uzantılı dosyam var.
1. excel'imde yapılması gereken işler bir makro ile yapılıyor ve kodlar 2. excel'i aktifleştirme kodu olarak şu şekilde bitiyor:


Kod:
    Dim Tarih As String
    Tarih = Format(Date, "yyyymmdd")
     wb = Tarih & ".xlsm"
     Workbooks(wb).Activate
Ben son işlem olarak 2. excel'imde bulunan ve musteriguncelle ismini verdiğim bir makronun çalışmasını sağlamaya çalışıyorum.
Application.Run veya Call komutu ile bir türlü başaramadım.
1. exceldeki düğmenin sonuna hangi kodu eklersem işlemi 2. excel'im olan Workbooks(wb)'de bulunan musteriguncelle isimli makroyu çalıştırarak bitirir?

Teşekkürler.
 

GursoyC

Altın Üye
Katılım
7 Ocak 2015
Mesajlar
558
Excel Vers. ve Dili
Office 2024 Türkçe
Altın Üyelik Bitiş Tarihi
17-05-2028
Örnek dosyalarım ektedir.
Yapmak istediğim 1.xlsm'deki düğmeye bastığımda 20191106.xlsm dosyasındaki yazdır makrosunun çalışması.
 

Ekli dosyalar

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,666
Excel Vers. ve Dili
2021 PRO [TR]
şu kodları deneyin. iki dosya da aynı klasörde oldukları zaman çalışır.

Dim tarih As String
Tarih = Format(Date, "yyyymmdd")
wb = Tarih & ".xlsm"
Workbooks.Open (ThisWorkbook.Path & "\" & wb)
 

GursoyC

Altın Üye
Katılım
7 Ocak 2015
Mesajlar
558
Excel Vers. ve Dili
Office 2024 Türkçe
Altın Üyelik Bitiş Tarihi
17-05-2028
Merhaba,
verdiğiniz kodlar wb isimli dosyanın açılmasına yönelik değil mi?
benim amacım 1.xlsm isimli dosya düğmesine basarak wb isimli dosya içerisindeki "yazdır" isimli makroyu çalıştırmak.
 

systran

Destek Ekibi
Destek Ekibi
Katılım
15 Aralık 2007
Mesajlar
1,666
Excel Vers. ve Dili
2021 PRO [TR]
bir kitaptan, başka bir kitaptaki makroyu çalıştırmak için şu şekilde deneyin
Application.Run "'" & wb & "'!" & "yazdır"
 

GursoyC

Altın Üye
Katılım
7 Ocak 2015
Mesajlar
558
Excel Vers. ve Dili
Office 2024 Türkçe
Altın Üyelik Bitiş Tarihi
17-05-2028
Çok teşekkür ederim. Gayet güzel çalışıyor.
Saygılar.
 
Üst