Makro kontrolü

[xlsx]

Arkadaşlar Slm
Herhangi bir makroya hangi kod bilgisi eklemeliyim ki C:// folderında bulunan başka bir excel dosyasındaki A1 hücresinde AÇIK değeri yazılıysa çalışsın KAPALI yazılıysa çalışmasın.

 

[janveljan]

Bakılacak olan diğer dosyanın açık olmadığı varsayımı ile aşağıdaki kodlar açılan dosyayı geri kapatır.

Sub auto_open()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set hedef = Workbooks.Open("C:\başkabirdosya.xls")
    If hedef.Sheets("Sayfa1").Range("A1") <> "AÇIK" Then 
    Activeworkbook.Close
    End if
    hedef.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = False
End Sub

Bu kodlarda makroyu sonlandırır

Sub makro()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set hedef = Workbooks.Open("C:\başkabirdosya.xls")
    onay=hedef.Sheets("Sayfa1").Range("A1") 
    hedef.Close
    Application.DisplayAlerts = True
    Application.ScreenUpdating = False
    If onay <> "AÇIK" Then Exit Sub

End Sub

 

[xlsx]

Merhaba
Birden fazla kod içeren dosyam var ve ben herhangi bir amaca hizmet eden bu dosyalarda öyle bir kod kullanayım ki bu dosyaları bağladığım C folderdaki X bir dosyanın A1 hücresine benim vereceğim onay ile bu makrolu dosyalar çalışabilsin.
Verdiğiniz kodları uygulayamadım.

 

[janveljan]

Kusura bakmayın, kodların bir yerinde hata vardı onları düzenledim. auto_open makrosu bir dosya açıldığında otomatik olarak çalışır. Benim verdiğim kodlarda da kontrolü yapılacak dosya açılıp değere bakılıyor ona göre dosya ya açık kalıyor yada kapatılıyor. İki dosya ekliyorum onay dosyasındaki A1 değerini KAPALI ve AÇIK olarak değiştirip makrolu dosyanın açılıp açılmamasını kontrol edin.

 

[xlsx]

Tşk bu kodlar işime yaradı,şimdi daha iyi anladım kodları