• DİKKAT

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

Hata uyarısı

manisali50

Banned
Katılım
29 Ekim 2010
Mesajlar
471
Excel Vers. ve Dili
Excel2003
Veri aktarılacak dosyanın kapalı olması durumunda verilen hata mesajı ile ilgili dosyam ektedir.
Yardımlarınız için şimdiden teşekkürler
 

Ekli dosyalar

Bu gece çözüm alabilirsem sevinirim arkadaşlar..Gündüz işyerinde internet olmadığı için yarın sabaha yetiştirmem lazım..
 
Merhaba,
Eklenen kodlar:
Kod:
Dim kontrol As Boolean
Kod:
For Each dsy In Workbooks
If dsy.Name = "Stok Takip.xls" Then kontrol = True
Next
If kontrol = False Then
MsgBox "Stok Takip dosyası kapalı.", vbCritical, "UYARI"
Exit Sub
End If
 

Ekli dosyalar

Üstadım teşekkürler..Tam istediğim gibi olmuş..İlgine,bilgine,emeğine ve yüreğine sağlık
 
Geri
Üst