Skip to main content

AccessTr.neT


Önce Bul Sonra Kaydet Veya Farklı Kaydet

Önce Bul Sonra Kaydet Veya Farklı Kaydet

#19
16. mesajdaki kodları yazıp çıkan mesaj kutusundaki değerleri buraya yazar mısınız?
Cevapla
#20
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
'________________________________________
Cevapla
Çözüldü #21
(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?
Cevapla
#22
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.
Cevapla
Wink #23
(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 ?
Cevapla
#24
yedekleme adresinde mi sorun var acaba?
ACTIVEWORKBOOK.SAVEAS (“DosyaYolu_Ve_Adı”) 'mesela 
ActiveWorkbook.SaveAs "C:\comp\wolf\Denedimdeolmadı.xlsm"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task