Açılışta Tarih ve Saat ile Yedek Alma

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Açılışta Tarih ve Saat ile Yedek Alma

İleti#1)  Murat OSMA » 23 Ekm 2010 01:52

Kod: Tümünü seç
Sub auto_open()
On Error Resume Next
org = ThisWorkbook.FullName
tarih = Format(Now, "dd_mm_yyyy_hh_mm")
Application.DisplayAlerts = False
Application.StatusBar = "Dosyalar Siliniyor !!!..."
Kill ("D:\Beşiktaş\Karakartal_*.xls")
Application.StatusBar = "Bu uygulama D:\Beşiktaş\Karakartal_" & tarih + ".xls olarak farklı kaydediliyor..."
ActiveWorkbook.SaveAs Filename:="D:\Beşiktaş\Karakartal_" & tarih, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
Application.StatusBar = False
Application.DisplayAlerts = False
Workbooks.Open(Filename:=org).RunAutoMacros Which:=xlAutoDeactivate
Windows("Karakartal_" & tarih + ".xls").Close False
End Sub


Aynı şekilde;
Auto_Close komutuylada kapatırken yedek alabilirisiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Açılışta Tarih ve Saat ile Yedek Alma

İleti#2)  Hamdi UNAL » 23 Ekm 2010 10:20

Murat bey,

Paylaşımlarınız için teşekkür ederim.

Ellerinize sağlık. --)(


Hayırlı işler.
Kullanıcı avatarı
Hamdi UNAL
Site Dostu
 
Adı Soyadı:Hamdi Ünal
Kayıt: 01 Haz 2009 18:37
Yaş: 40
İleti: 616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul-Üsküdar-Çengelköy

Cevap: Açılışta Tarih ve Saat ile Yedek Alma

İleti#3)  Murat OSMA » 08 Şub 2011 20:06

Rica ederim.

Teşekkürler.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Açılışta Tarih ve Saat ile Yedek Alma

İleti#4)  Ersin Turgut » 14 Oca 2013 18:30

Alternatif ;)

Kod: Tümünü seç
Sub Auto_Open()
Dim kayityeri As String
Dim yedekdosyaadi As String
    kayityeri = ThisWorkbook.Path & "\"
    yedekdosyaadi = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & "_" & Format(Now, "ddmmyyyy_hhmmss")
   
    ActiveWorkbook.SaveCopyAs kayityeri & yedekdosyaadi & ".bak"
   
End Sub


--)(
"Milli his ile dil arasında bağ çok kuvvetlidir. Dilin milli ve zengin olması, milli hissin gelişmesinde başlıca etkendir. Türk Dili, dillerin en zenginlerindendir. Yeter ki, bu dil şuurla işlensin. Ülkesini yüksek bağımsızlığını korumasını bilen Türk Milleti, dilini de yabancı diller boyunduruğundan kurtarmalıdır."

M.Kemal ATATÜRK
Kullanıcı avatarı
Ersin Turgut
Site Dostu
 
Adı Soyadı:Ersin Turgut
Kayıt: 30 Haz 2010 15:17
Konum: İzmir
Meslek: Bilgi İşlem ve Proje Sorumlusu
Yaş: 34
İleti: 598
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Bornova

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Açılışta Tarih ve Saat ile Yedek Alma

İleti#5)  momix » 10 Şub 2017 13:25

İyi Günler Murat Bey öncelikle paylaşımlarınız için gerçekten çok teşekkür ederim. Bir haftadır bu web sitesini kaynak olarak kullanıyorum ve sizin paylaşımlarınız dan çok defasında faydalandım, şimdi sormak istediğim bu yazdır kodlarını module olarak mı kaydedeceğiz yoksa farklı bir şekilde mi kaydedeceğiz ?
Kullanıcı avatarı
momix
 
Kayıt: 07 Şub 2017 18:44
Meslek: Bilgisayar Mühendisi
Yaş: 25
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Keçiören

Cevap: Açılışta Tarih ve Saat ile Yedek Alma

İleti#6)  Murat OSMA » 10 Şub 2017 13:55

Kopyalayıp Module yapıştırabilirsiniz. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14311
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe