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
StrDosyaAdi= Dir$(CurrentProject.Path & "\*.xlsm")
Do While StrDosyaAdi<> ""
If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then DosyaVar=1
StrDosyaAdi= Dir$
Loop
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
'________________________________________
yukardaki kodu dener misiniz?sadece temel mantığı yazdım