StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then 'yani dosya adında G& değeri varsa derseniz de olur ama
mesela 2 Excel dosyası var ilki dosyanın adı 3.excel 2. dosyanın adı ise G& değerine sahip
yukarda yazıldığı şekliyle yaparsanız aradığınız özelliklere sahip olmasına ragmen yokmuş gibi davranır uygulamanız
Önce Bul Sonra Kaydet Veya Farklı Kaydet
Konuyu Okuyanlar: 1 Ziyaretçi