Klasör içinde Excel dosyası arama

[Mdemir63]

Selamlar

Arkadaşlar ekteki klasör içinde ana isimli ve ismi tarihlerden oluşan excel dosyalarım var.
ana isimli dosyamda ki Textbox içine girdiğim tarihe ait dosyayı klasör içinde arayacak bulursa açacak bulamaz ise bulunamadı mesajı verecek

bu durum VBA ile nasıl yapılır.

Saygılar

 

[ÖmerFaruk]

Sub DosyaAra()
Dim Dosya
Dim Dosyaİsmi As String, Yol As String, Uzantı As String

Dosyaİsmi = TextBox1.Value
If Dosyaİsmi = "" Then Exit Sub
Yol = ThisWorkbook.Path
Uzantı = ".xlsx"
Dosya = Dir(CreateObject("Scripting.FileSystemObject").GetFolder(Yol) & Application.PathSeparator & "\" & Dosyaİsmi & Uzantı, vbDirectory)
On Error Resume Next
If Dosya <> "" Then
    Workbooks.Open Yol & Application.PathSeparator & Dosyaİsmi & Uzantı
Else
    MsgBox Dosyaİsmi & Uzantı & " İsimli dosya bulunamadı."
End If
On Error GoTo 0
End Sub

 

[Mdemir63]

Selamlar

Ömer hocam çok teşekkür ederim. Elinize sağlık.
Peki ben bunu direkt olarak Textbox dan nasıl kullana bilirim?

Saygılar

 

[ÖmerFaruk]

Private Sub TextBox1_LostFocus()
Call DosyaAra
End Sub

 

[Mdemir63]

Selamlar

Teşekkür ederim Hocam.

Saygılar

 

[ÖmerFaruk]

Eyvallah.