• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Oto Kayıt ve Yedek alma

D

djoguzz

Katılım
2 Mart 2011
Mesajlar
120
Excel Vers. ve Dili
İşyerinnde Excel 2003
Evde Excel 2010
Arkadaşlar Herkese Merhaba,

Benim excel tablomda bir login ekranı var login ekranında da bir buton var bu butona tıklandığında çalışma kitabını her 3 dk da bir otomatik kaydedecek ve her gün akşam 18.30'da belirli bir konuma o günün tarihini çalışma kitabının ismi yapıp yedek alacak bir kod lazım.
Yardım edecek herkese teşekkürler şimdiden.
 
yardım edebilecek yok mu dur üstadlar lazım bu kod bana :(:((
 
SLM

şu 3 dk olayını (araçlar -seçenekler-kaydet) kısmından hallet..
dosya çalışma anında kendini o tanımlamadan 3 DK da bir kopyalasın...
hem kendi tanımlaması ve hemde macro tanımı çakışma problemi yapıyor..

yedekleme içinde çalışmayı incele
 

Ekli dosyalar

hımmmmmmmm' Alıntı:
şu 3 dk olayını (araçlar -seçenekler-kaydet) kısmından hallet..
dosya çalışma anında kendini o tanımlamadan 3 DK da bir kopyalasın...
hem kendi tanımlaması ve hemde macro tanımı çakışma problemi yapıyor..

yedekleme içinde çalışmayı incele
Genişletmek için tıkla ...

yardımın için teşekkürler öncelikle dostum.

araçlar - seçenekler - kaydet kısmı otomatik kurtarma olmuyor mu ?

benim istediğim otomatik kayıt yapsın bu kodu hazırlarsak ben otomatik kurtarmayı devre dışı bırakırım çakışma sorunu ortadan kalkar sanırım.
birde yedek alma işini bana falan sormadan her akşam 18.30 da kendisi otomatik olarak yapacak. dosya ismi ise benim çalışma kitabımın ismi "takipler" , yedeğin isminide takipler 16.08.2011 sonraki gün takipler 17.08.2011 şeklinde olması lazım
 
Kodlar alıntıdır: http://www.ozgrid.com/forum/showthread.php?t=126722&page=1
Bu kodları;
Bir Module içine,
Kod: 
Public dTime As Date
Public mTime As Date
Sub AutoSaveAs()
    dTime = TimeValue("18:30:00")
    With Application
        .OnTime dTime, "AutoSaveAs"
        .OnTime mTime, "AutoSave"
        .EnableEvents = False
        .DisplayAlerts = False
        ThisWorkbook.SaveAs "C:\deneme\" & Format(Date, "dd.mm.yyyy") & ".xls"
        Workbooks.Open "C:\deneme\hh.xls"
        .EnableEvents = True
    End With
End Sub
Sub AutoSave()
    mTime = Time + TimeValue("00:03:00")
    With Application
        .OnTime mTime, "AutoSave"
        .EnableEvents = False
        .DisplayAlerts = False
         ThisWorkbook.Save
        .EnableEvents = True
    End With
End Sub
ThisWorkBook içine,
Kod: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime dTime, "AutoSaveAs", , False
    Application.OnTime mTime, "AutoSave", , False
End Sub
 
Private Sub Workbook_Open()
    mTime = Time + TimeValue("00:03:00")
    dTime = TimeValue("18:30:00")
    Application.OnTime dTime, "AutoSaveAs"
    Application.OnTime mTime, "AutoSave"
End Sub
ekleyin.
 

Ekli dosyalar

hamitcan' Alıntı:
Kodlar alıntıdır: http://www.ozgrid.com/forum/showthread.php?t=126722&page=1
Bu kodları;
Bir Module içine,
Kod: 
Public dTime As Date
Public mTime As Date
Sub AutoSaveAs()
    dTime = TimeValue("18:30:00")
    With Application
        .OnTime dTime, "AutoSaveAs"
        .OnTime mTime, "AutoSave"
        .EnableEvents = False
        .DisplayAlerts = False
[COLOR="Red"]        ThisWorkbook.SaveAs "C:\deneme\" & Format(Date, "dd.mm.yyyy") & ".xls"
        Workbooks.Open "C:\deneme\hh.xls"[/COLOR]
        .EnableEvents = True
    End With
End Sub
Sub AutoSave()
    mTime = Time + TimeValue("00:03:00")
    With Application
        .OnTime mTime, "AutoSave"
        .EnableEvents = False
        .DisplayAlerts = False
         ThisWorkbook.Save
        .EnableEvents = True
    End With
End Sub
ThisWorkBook içine,
Kod: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime dTime, "AutoSaveAs", , False
    Application.OnTime mTime, "AutoSave", , False
End Sub
 
Private Sub Workbook_Open()
    mTime = Time + TimeValue("00:03:00")
    dTime = TimeValue("18:30:00")
    Application.OnTime dTime, "AutoSaveAs"
    Application.OnTime mTime, "AutoSave"
End Sub
ekleyin.
Genişletmek için tıkla ...


sn hamitcan,

kodlar için teşekkür ederim ancak kırmızı ile işaretlediğim satırların hangisi neyi teşkil ediyor acaba nasıl editleme yapabilirim ?
 
Bu satır, dosyayı farklı kaydetmek içindir. Doayayı, C sürücüsünde deneme adlı klasöre günün tarihi ismiyle kaydetmektedir.
 
hamitcan' Alıntı:
Bu satır, dosyayı farklı kaydetmek içindir. Doayayı, C sürücüsünde deneme adlı klasöre günün tarihi ismiyle kaydetmektedir.
Genişletmek için tıkla ...

hamit bey teşekkür ederim şu an için kodlar gayet güzel çalışmakta. elleriniz ve klavyeniz dert görmesin :)
 
Public dTime As Date
Public mTime As Date
Sub AutoSaveAs()
dTime = TimeValue("18:30:00")
With Application
.OnTime dTime, "AutoSaveAs"
.OnTime mTime, "AutoSave"
.EnableEvents = False
.DisplayAlerts = False
ThisWorkbook.SaveAs "D:\Oğuz\Excell Yedek\" & Format(Date, "dd.mm.yyyy") & ".xls"
Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"
.EnableEvents = True
End With
End Sub
Sub AutoSave()
mTime = Time + TimeValue("00:05:00")
With Application
.OnTime mTime, "AutoSave"
.EnableEvents = False
.DisplayAlerts = False
ThisWorkbook.Save
.EnableEvents = True
End With
End Sub


hamit bey kodları ben yukardaki şekilde kırmızı ile işaretli kısımları değiştirdim ama otomatik yedek almadı neden acaba ?
 
bence senin altı çizili yerde COLOR="YellowGreen"]Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN [/COLOR] bir hata var "\\ ben öyle bir şey göremedim
ama makro soracaksan hiç bir fikrim yok bende senin gibi ögrenmeye çalışan biriyim :) kolay gelsin
 
djoguzz' Alıntı:
Public dTime As Date
Public mTime As Date
Sub AutoSaveAs()
dTime = TimeValue("18:30:00")
With Application
.OnTime dTime, "AutoSaveAs"
.OnTime mTime, "AutoSave"
.EnableEvents = False
.DisplayAlerts = False
ThisWorkbook.SaveAs "D:\Oğuz\Excell Yedek\" & Format(Date, "dd.mm.yyyy") & ".xls"
Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"
.EnableEvents = True
End With
End Sub
Sub AutoSave()
mTime = Time + TimeValue("00:05:00")
With Application
.OnTime mTime, "AutoSave"
.EnableEvents = False
.DisplayAlerts = False
ThisWorkbook.Save
.EnableEvents = True
End With
End Sub


hamit bey kodları ben yukardaki şekilde kırmızı ile işaretli kısımları değiştirdim ama otomatik yedek almadı neden acaba ?
Genişletmek için tıkla ...

Satırlar düzgün görünüyor, dosya açılırken makroları etkinleştirdiğinizden emin olun yada yazdığınız yolun ve klasörlerin varlığını kontrol edin.
 
hamitcan' Alıntı:
Satırlar düzgün görünüyor, dosya açılırken makroları etkinleştirdiğinizden emin olun yada yazdığınız yolun ve klasörlerin varlığını kontrol edin.
Genişletmek için tıkla ...

hamit bey

ThisWorkbook.SaveAs "D:\Oğuz\Excell Yedek\" & Format(Date, "dd.mm.yyyy") & ".xls"
bu satır yedek almasını istediğim dizin ve yol doğru



Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"
bu satır da kullandığım excel dosyasının yolu ve bu yolda doğru hata nerede olabilir acaba
 
cansoy' Alıntı:
bence senin altı çizili yerde COLOR="YellowGreen"]Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN [/COLOR] bir hata var "\\ ben öyle bir şey göremedim
ama makro soracaksan hiç bir fikrim yok bende senin gibi ögrenmeye çalışan biriyim :) kolay gelsin
Genişletmek için tıkla ...


dostum tam olarak ne demek istedin anlamadım :S
 
djoguzz' Alıntı:
hamit bey

ThisWorkbook.SaveAs "D:\Oğuz\Excell Yedek\" & Format(Date, "dd.mm.yyyy") & ".xls"
bu satır yedek almasını istediğim dizin ve yol doğru



Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"
bu satır da kullandığım excel dosyasının yolu ve bu yolda doğru hata nerede olabilir acaba
Genişletmek için tıkla ...

Sürücü ismini belirterek yazmayı deneyin.
 
hamitcan' Alıntı:
Sürücü ismini belirterek yazmayı deneyin.
Genişletmek için tıkla ...

"\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"

bu dizin ağ üzerindeki diğer bir bilgisayara ait ağ paylaşımda herhangi bir sorun yok istediğim şekilde bu dizine girip değişiklik yapabiliyorum kendim.
 
-Kod satırlarının doğruluğunu sınamak için yolu değiştirin. C sürücüsünde bir klasör içine atmayı deneyin.
-Yedekleme yapması için dosyanın açık olduğundan emin olun.
-Saat 18:30 geldiğinde yedekleme yapacağını unutmayın.
 
hamitcan' Alıntı:
-Kod satırlarının doğruluğunu sınamak için yolu değiştirin. C sürücüsünde bir klasör içine atmayı deneyin.
-Yedekleme yapması için dosyanın açık olduğundan emin olun.
-Saat 18:30 geldiğinde yedekleme yapacağını unutmayın.
Genişletmek için tıkla ...

Hamitbey sizide yoruyorum ama şimdi modüldeki ve thisworkbook daki dtime kısmını 11:03:00 olarak değiştirdim ve aşağıdaki şekildede kod içinde kayıt dizinini c sürücüsü olarak yazdım ama saat 11:03:00 da yedek almadı yine ayrıca \\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls dizinindeki dosyamda sürekli açık şekilde.

ThisWorkbook.SaveAs "C:\YEDEK\" & Format(Date, "dd.mm.yyyy") & ".xls"
Workbooks.Open "\\Erguven01\DATA (D)\yedek\ERGÜVEN OTOMOTİV 2011.xls"
 
Güvenlik ayaralarınızı kontrol ettiniz mi ? Bundan başka aklıma birşey gelmiyor.
 
hamitcan' Alıntı:
Kod içindeki saatlerin tümünü değiştirin.
Genişletmek için tıkla ...

workbook daki ve modüldeki saatleri aynı şekilde değiştirdim zaten ama bilmiyorum otomatik kayıt yapıyor ama yedek almıyor güvenlik sıkıntısı da yok bir çok kod mevcut şu an tabloda hiç bir hata yok güvenlik ayarlarıda uygun durumda yani.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst