Kapalı dosya düşeyara

[Kiapus]

Merhaba;
Öncelikle forumda oldukça arama yaptım ama istediğim bilgiyi bulamadım..

Kapalı dosyadan düşeyara yapmaya çalışıyorum..

Ama nedense dosya kapandığından sonra istenilen veriyi getirmiyor.. Sayfa açılınca çalışıyor.
Yardımcı olabilirseniz sevinirim..

Function malzemetanim(malzeme)

Dim Yol As String, Dosya As String
    Dim ML As Workbook
    On Error Resume Next
    Yol = "C:\Users\bsubay\Desktop\"
    Dosya = Dir(Yol & "malzemeler.xlsx")
   
    Set ML = Workbooks.Open(Yol & Dosya, False, False)
    Windows("Malzemeler.xlsx").Activate
      


If malzeme = "" Then
malzemetanim = ""
ML.Close True
Exit Function
End If
If IsError(WorksheetFunction.VLookup(malzeme, Workbooks(Dosya).Sheets("Malzemeler").Range("a:c"), 2, 0)) = True Then
malzemetanim = "Malzeme bulunamadı."

ML.Close True
Exit Function
Else
malzemetanim = WorksheetFunction.VLookup(malzeme, Workbooks(Dosya).Sheets("Malzemeler").Range("a:c"), 2, 0)
ML.Close True
End If
                                             
End Function

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz?