Soru Kapalı Çalışma Kitabındaki Makroyu Çalıştırma

[bulentkars]

Arkadaşlar Merhaba,

Kapalı olan c101.xlsb sayfa1 Private Sub CommandButton1_Click() makrosunu aşağıdaki kod ile yapmak istiyorum ancak hata alıyorum. KOnu ile ilgili yardımcı olabilirseniz sevinirim. şimdiden teşekkürler.

Sub Kapalı_Calısma_Kitabını_Acmadan_Makro_Calıstır()

'Private Sub CommandButton1_Click() C1001.XLSB DEKİ KOD ADI

Set kitap = GetObject("O:\Ortak\ALLIANCE\Finans\C1001.xlsb")
Application.Run Workbooks("C1001.xlsb").Sheets("Sayfa1").CommandButton1
kitap.Close False
Set kitap = Nothing
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Kalın puntolu bölüme Public yazıp deneyiniz.

Private Sub CommandButton1_Click()

 

[bulentkars]

Deneyiniz.

Kalın puntolu bölüme Public yazıp deneyiniz.

Private Sub CommandButton1_Click()

Korhan Bey,
Dediğiniz şekilde yaptım yine hata alıyorum..

bu satırda hata alıyorum
Application.Run Workbooks("C1001.xlsb").Sheets("Sayfa1").CommandButton1

 

[Korhan Ayhan]

Eksik yazımdan dolayı hata alıyorsunuz. Aşağıdaki gibi deneyiniz.

CommandButton1_Click

 

[bulentkars]

Korhan Bey,

Dediğiniz Şekilde kodun başını " Public Sub CommandButton1_Click()" olarak değiştirdim.

makroda aşağıdaki şekilde çalıştırdımda aynı yerde hata alıyorum

Sub Kapalı_Calısma_Kitabını_Acmadan_Makro_Calıstır()

'Private Sub CommandButton1_Click() C1001.XLSB DEKİ KOD ADI

Set kitap = GetObject("O:\Ortak\ALLIANCE\Finans\C1001.xlsb")
Application.Run Workbooks("C1001.xlsb").Sheets("Sayfa1").CommandButton1_Click
kitap.Close False
Set kitap = Nothing
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi denedim ve olumlu sonuç aldım..

Option Explicit

Sub Test()
    Dim WB1 As Object
    Set WB1 = GetObject("C:\Users\Desktop\Book1.xlsb")
    Application.Run "'" & WB1.Name & "'!Sheet1.CommandButton1_Click"
    WB1.Close False
    Set WB1 = Nothing
End Sub

 

[bulentkars]

Korhan Bey
İlginiz için çok teşekkür ediyorum, anacak bu şekilde de çalışmadı
Application.Run "'" & WB1.Name & "'!Sheet1.CommandButton1_Click" satırda hata veriyor. sheet1.sayfa1 yaptım bu arada yine olmadı

 

[Korhan Ayhan]

#2 nolu mesajımdaki değişikliği yaptıktan sonra son önerdiğim kodu deniyorsunuz değil mi?

 

[bulentkars]

Evet Korhan bey puplic yaptım.

#2 nolu mesajımdaki değişikliği yaptıktan sonra son önerdiğim kodu deniyorsunuz değil mi?

 

[Korhan Ayhan]

Dediğim gibi ben deneyip olumlu sonuç aldım.

Sizde belki aklımıza gelmeyen farklı bir durum olabilir.

 

[bulentkars]

Çok teşekkür ederim korhan bey