Dosya Varlığını Kontrol Etmek

[meslek5]

Merhaba sayın uzman hocalarım.
Açık olan Excel çalışma kitabının bulunduğu klasör içerisinde dosya-1.xlsb, dosya-2.xlsb, dosya-3.xlsb adlı excel dosalarından herhangi biri varsa makro1 çalışsın yoksa makro2 çalışsın

ben bunun için aşağıdaki kodu uyarlamaya çalıştım ama olmadı

If Dir(ThisWorkbook.Path & "\dosya1.xlsb") Or Dir(ThisWorkbook.Path & "\dosya2.xlsb") Or Dir(ThisWorkbook.Path & "\dosya3.xlsb") <> "" Then
makro1
else
makro2
Exit Sub
End If

bu işlemi makro ile yapmak için nasıl bir kod gerekiyor?

 

[Haluk]

"Test" isimli makroyu çalıştırın ...

Sub Test()
    If Dir(ThisWorkbook.Path & "\Dosya-1.xlsb") <> "" _
        Or Dir(ThisWorkbook.Path & "\Dosya-2.xlsb") <> "" _
        Or Dir(ThisWorkbook.Path & "\Dosya-3.xlsb") <> "" Then
        Call Macro1
    Else
        Call Macro2
    End If
End Sub
'
Sub Macro1()
    MsgBox "Dosyalardan en az bir tanesi bulundu"
End Sub
'
Sub Macro2()
    MsgBox "Dosyaların hiçbiri bulunamadı"
End Sub

.