• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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
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.
 
Ö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

ş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)
 
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.
 
bir kitaptan, başka bir kitaptaki makroyu çalıştırmak için şu şekilde deneyin
Application.Run "'" & wb & "'!" & "yazdır"
 
Çok teşekkür ederim. Gayet güzel çalışıyor.
Saygılar.
 
Geri
Üst