Hata uyarısı

[manisali50]

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

 

[manisali50]

Sorumu güncelliyorum arkadaşlar

 

[manisali50]

Bu gece çözüm alabilirsem sevinirim arkadaşlar..Gündüz işyerinde internet olmadığı için yarın sabaha yetiştirmem lazım..

 

[leumruk]

Merhaba,
Eklenen kodlar:

Dim kontrol As Boolean

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

 

[manisali50]

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

 

[leumruk]

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

Rica ederim. İyi geceler...