Soru hata mesajı

[kbaydar]

Aşağıdaki VBA örneğinde dosya yoksa nasıl atlatabilirim. Teşekkür ederim.

Sub Makro3()
'
' Makro3 Makro
' D7 H?cresindeki kontrol dosyas?n? a?ar. 17.12.2019 'da g?ncellendi.


Dim klasor
Dim dosya

ChDir "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]
klasor = "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]

'ChDir "\\192.168.1.11\ORTAK\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]
'klasor = "\\192.168.1.11\ORTAK\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]

dosya = Range("D7")


Workbooks.Open Filename:=klasor & "\" & dosya
Range("BA2:BB103").Select
Selection.Copy
Windows("20-PrimListesi.xlsm").Activate
Range("I2").Select
End Sub

 

[PLİNT]

Aşağıdaki gibi deneyin

Sub Makro3()
'
' Makro3 Makro
' D7 H?cresindeki kontrol dosyas?n? a?ar. 17.12.2019 'da g?ncellendi.
Dim klasor
Dim dosya
ChDir "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]
klasor = "C:\Users\TOSHIBA1\Documents\ORTAK\SEOR\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]

'ChDir "\\192.168.1.11\ORTAK\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]
'klasor = "\\192.168.1.11\ORTAK\3-PERSONEL-HESAPLAMALARI\KontrolDosyalar?\" & [D3] & "\" & [D4]

dosya = Range("D7")
'----------------------
If Dir(klasor & "\" & dosya) = "" Then MsgBox "dosya bulunamadı": Exit Sub
'----------------------
Workbooks.Open Filename:=klasor & "\" & dosya
Range("BA2:BB103").Select
Selection.Copy
Windows("20-PrimListesi.xlsm").Activate
Range("I2").Select
End Sub