BaŞka Dosyada Makro ÇaliŞtirmak

[lokurlu]

Arkadaşlar benim şöye problemim var Fihrist diye bir dosyam var buna bir makro yazıp c: Kayıtlı Bir dosya-3 nolu dosyayı açıp dosya-3 içindeki bir makroyu çalıştırmak istiyorum fakat başaramadım
yardımcı olursanız sevinirim

 

[Kemal Demir]

Selam,

sub calistir()
    Application.Run "c:\ilgilidosya.xls!ilgilimakroismi"
End sub

 

[lokurlu]

Başka dosya açıp makro çalıştırmak

Arkadaşlar makro denedim fakat hata veriyor
ne yapmam gerekiyor. anlayamadım

 

[Kemal Demir]

Selam,

sub calistir()
    Application.Run "c:\ilgilidosya.xls!ilgilimakroismi"
End sub

Zannedersem aşagıdaki kod işinizi görür

sub calistir()
     Workbooks.Open Filename:="C:\ilgilidosya.xls"
    Application.Run "ilgilidosya!deneme"
    Windows("ilgilidosya.xls").Activate
    ActiveWindow.Close
End sub

 

[lokurlu]

kemal bey makro hata verdi yazmış olduğum makroyu ekledim
nerede hata yaptığımı söylerseniz çok sevinirim dosya-3 makrosunun
içeriğini verrirsem belki konu biraz daha anlaşılır yardımlarınız için şimdiden teşekkürler

Sub olus()
'
' olustur Macro


ChDir "C:\Dosya"
Workbooks.Open Filename:="C:\Dosya\DOSYA-10.xls"
Application.Run "C:\Dosya\DOSYA-10.xls!kaydet5"
Windows("DOSYA-10.xls").Activate
ActiveWindow.Close

End Sub


dosya-10 içindeki makroda şöyle

Sub kaydet5()
Dim X, X1 As String
X = Sheets("Dosya").Range("e1")
Dim Y, Y1 As String
Y = Sheets("Bilgiler").Range("t1")
Dim Z, Z1 As String
Z = Sheets("Dosya").Range("e46")

ActiveWorkbook.SaveAs Filename:="C:\Dosya\" & X & "-" & Y & "-" & Z & ".xls"

End Sub

 

[mavisachal]

calistirmis oldugun dosyada sayfa isimlerini bulamamasindan kaynaklaniyor ola bilir mi?

 

[ITOKER]

Tüm Makrolar devre dışı olabilir diyor bende, eğer bu goğru ile dosyadaki tüm makro ları aktif etmenin yöntemi nedir ?