16. mesajdaki kodları yazıp çıkan mesaj kutusundaki değerleri buraya yazar mısınız?

bazı değişiklikler yaptım aklım Access'e gittiği için kodu ona göre yazmışım ama Excel biraz farklıymış en azından "CurrentProject.path" değilmiş 
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

'________________________________________

(28/04/2019, 02:46)haliliyas yazdı: bazı değişiklikler yaptım aklım Access'e gittiği için kodu ona göre yazmışım ama Excel biraz farklıymış en azından "CurrentProject.path" değilmiş 
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

'________________________________________

üstat öncelikle günaydın, çok çok çok teşekkür ederim. gerçekten sizi çok uğraştırdım. sabırla her defasında yeniden yeniden denediniz. tam istediğim gibi oldu emeklerinize sağlık.
bu kod dışında size yine aynı dosyam için bir şey sorabilir miyim?

tabi ki sorabilirsiniz ama yeni soru için yeni konu açarak sorarsanız daha iyi olur.
üyeler arama yaparken aradıklarını bulmaları daha kolay oluyor.

(29/04/2019, 10:30)haliliyas yazdı: tabi ki sorabilirsiniz ama yeni soru için yeni konu açarak sorarsanız daha iyi olur.
üyeler arama yaparken aradıklarını bulmaları daha kolay oluyor.

ben şimdi mevcut dosyamda değişiklik yapınca ThisWorkbook.Save kodu ile kaydediyorum yaa.
aynı zamanda ben başka bi klasörede yedek olması için yine kayıt yaptırıyorum ama bu kod ile yapamıyorum.
ActiveWorkbook.SaveAs Filename:=dosyamilk
ActiveWorkbook.SaveAs Filename:=dosyamarsv
bu iki kod ile farklı kaydediyorum ama aynı mantıkla da normal kaydetmeyi nasıl yapabiliriz ?

yedekleme adresinde mi sorun var acaba?
ACTIVEWORKBOOK.SAVEAS (“DosyaYolu_Ve_Adı”) 'mesela 

ActiveWorkbook.SaveAs "C:\comp\wolf\Denedimdeolmadı.xlsm"