(26/04/2019, 17:20)haliliyas yazdı: 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

'kayıtlı dosya ismi bulma
Dim StrDosyaAdi As String
StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1) > 0 Then   'yani dosya adında G6 değeri varsa
GoTo 20  'xlsm varsa yapılacaklar
Else
GoTo 30  'yoksa yapılacaklar
End If
'kayıtlı dosya ismi bulma işlemi bitti
30:
........
20:
ThisWorkbook.Save
'exelden çıkış
ActiveSheet.Protect Password:="1453"
Application.Quit
'exelden çıkış işlemi bitti




üstat kodu böyle yapıyorum ama yine de olduğu bulunduğu dosya isminde kayıt yapıyor G6 hücresinde geçen 35 FAE 12345 ama dosya ismi farklı yeni dosya açma kısmına goto 30 a geçmiyor direk goto 20 den devam ediyor. dosya ismi ile G6 farklı olunca goto 30 a geçmesi gerekiyor. nasıl çözeriz ???