ThisWorkbook.path oluyormuş))
inşallah bu sefer olur.
bu arada C(1,157) ne işe yapıyor?
ActiveSheet.Protect Password:=.....
'plakalık, Araç Markası ve Araç Yılı boş işe uyarı veriyor
On Error Resume Next
Application.ScreenUpdating = False
Dim DosyaVar as integer
DosyaVar=0
'___________________________________________________________________________________________
If [G7].Value <> "" And [G6].Value <> "" And [R7].Value <> "" Then
Dim StrDosyaAdi As String
StrDosyaAdi = Dir$(ThisWorkbook.Path & "\*" & CStr(Range("G6").Value) & "*.xlsm")
If Len(StrDosyaAdi) > 0 Then DosyaVar = 1 Else DosyaVar = 0
Else
'[G7], [G6] veya [R7] hücrelerinden her hangi 1 boşsa
If [G7].Value = "" Then msgbox ".....
If [67].Value = "" then msgbox ".....
If [R7].Value = "" then msgbox ".....
end if
'________________________________________
if DosyaVar=0 then
'dosya yoksa yapılacak işlemler
end if
'________________________________________
if DosyaVar=1 then
'dosya varsa yapılacak işlemler
end if
'________________________________________