StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
msgbox(StrDosyaAdi)
msgbox(CStr(Range("G6").Value))
msgbox(InStr(StrDosyaAdi, CStr(Range("G6").Value), 1))
kodunu dener misiniz?mesaj kutularında ne yazıyor
StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
msgbox(StrDosyaAdi)
msgbox(CStr(Range("G6").Value))
msgbox(InStr(StrDosyaAdi, CStr(Range("G6").Value), 1))
kodunu dener misiniz?