(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?