27/04/2019, 14:45
Önce Bul Sonra Kaydet Veya Farklı Kaydet
28/04/2019, 02:46
berduş
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?
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
'________________________________________ 29/04/2019, 09:58
comp_wolf
(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?
29/04/2019, 10:30
berduş
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.
üyeler arama yaparken aradıklarını bulmaları daha kolay oluyor.
29/04/2019, 10:40
comp_wolf
(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 ?
29/04/2019, 11:51
berduş
yedekleme adresinde mi sorun var acaba?
ACTIVEWORKBOOK.SAVEAS (“DosyaYolu_Ve_Adı”) 'mesela
ACTIVEWORKBOOK.SAVEAS (“DosyaYolu_Ve_Adı”) 'mesela
ActiveWorkbook.SaveAs "C:\comp\wolf\Denedimdeolmadı.xlsm"