(27/04/2019, 00:05)haliliyas yazdı:

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

üstat teşekkürler,
dediğiniz kodu denedim ama maalesef oda olmuyor. mantığı ile bir kaç deneme daha yaptım ama yine olmuyor.
bulunduğu konumda G6 hücresinde yazan örnek: 99 ABC 123 gibi her hangi bir yazı varsa GOTO 20 yoksa GOTO 30 olmasını istiyorum ama bir türlü olmadı