Excel Hatırlatma Programı (Güncellendi)

[Bülent Öztürk]

Merhaba Hüseyin Bey,

Yedeklemeyi şu şekilde yaparsanız, yedek alındıktan sonra da mevcut dosyada çalışmaya devam edebilirsiniz:

Kod: [Seç]

Sub ExcelceFarkliKaydet()
dosya_yolu = "D:\BELGE\ExcelceYedek\" & "Yedek_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "_" & Hour(Now) & "_" & Minute(Now) & ".xls"
ThisWorkbook.SaveCopyAs (dosya_yolu)
End Sub

[Hüseyin Çoban]

İlgi ve paylaşımınız için teşekkür ederim Sy Bülent Öztürk,

Sorunumu şu kodlar ile çözdüm.

Kod: [Seç]

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
yer = "C:\YEDEK\"
For i = 1 To Len(ThisWorkbook.Name)
If Mid(ThisWorkbook.Name, i, 1) = "." Then
Dosya = Mid(ThisWorkbook.Name, 1, i - 1)
uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
End If
Next
ActiveWorkbook.Password = "PAROLA"
ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti
Kayıt_Yeri = yer & Yedek_Dosya_Adı
On Error Resume Next
If Dir(yer) = "" Then MkDir yer
On Error Resume Next
DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
ActiveWorkbook.Password = ""
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation, "Ajandam Uyarı Sistemi"
Application.DisplayAlerts = True
End Sub
Tablom bu haliyle bitmiştir.  Mesajıma ekliyorum dosyayı. PAROLA yazan yere yedeklenen dosyaya vereceği parolayı yazınız. (module6)

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[okeanose79]

Arkadaşlar Merhaba

Benim yapmam gereken birşey var bana yardımcı olabilirmisiniz.
eğitim için planladığım tarihlere yaklaşınca bir uyarı versin istiyorum.bana yardımcı olurmusnuz.

RIZA

[Sabri ŞİRİN]

Arkadaşlar Merhaba

Benim yapmam gereken birşey var bana yardımcı olabilirmisiniz.
eğitim için planladığım tarihlere yaklaşınca bir uyarı versin istiyorum.bana yardımcı olurmusnuz.

RIZA

Rıza Bey,
Sorunuzu ayrı bir başlıkta Katagorisine göre yeni başlıkta sormuş olsanız daha kısa zamanda cevap bulacağınızı zannediyorum.
Koşullu Biçimlendirme ile 2 Koşul olarak yapabilirsiniz.
Koşul1: arasında =Bugün() ve =Bugün()+5   "Belirlediğiniz Tarihe 5 Gün kala istedğiniz bir renk verebilirsiniz"
Koşul2: eşit =Bugün()  günlük tarih
Saygılarımla...

[kürşad reis]

yapıştırıyorum olmuyo bende tek tek yapıştırtım fakat bu sefer sayfada göremiyom yapıştırdığım gibi kalmış yardım lütfen

[Bülent Öztürk]

yapıştırıyorum olmuyo bende tek tek yapıştırtım fakat bu sefer sayfada göremiyom yapıştırdığım gibi kalmış yardım lütfen

Yapmaya çalıştığınızı yazım kurallarına uygun olarak ve daha ayrıntılı açıklar mısınız Kürşad bey?

[lilipar]

Neden İndirilmiyor Proğram 

[Bülent Öztürk]

Neden İndirilmiyor Proğram 

Birgül hanım, programı ilk mesajdan indirebilirsiniz. Sorun yok.

[badboy714]

Programa birde saat dakika ayarı konulursa iyi olurdu. Yani tarih le beraber saat de olmalıydı bence. Ayrıca bilgisayar açılınca otomatik arkaplanad da çalışmalı.

Bu özellikler varsa yukarıda yazdıklarımı dikkate almayabilirsiniz. Dikkatsizliğime yorumlayın.

[Bülent Öztürk]

Yapılabilir tabi Hasan bey. Tarih ve saat hatırlatması da eklenebilir. Ancak arka planda çalışması için Excel'in açık olması gerekir.

[demir.zined]

Teşekkürler, çok yararlı bir program.

[neowin]

_{Merhaba arkadaslar lınke tıklayamıyorum rica etsemlınkı bana mesaj olarak atarmısınız gerçekten çok ihtiyacım var}

[neslihan öztürk]

merhaba,
hatırlatma programını indirdim ancak nasıl kullanılması yada nasıl aktifleştirilmesi konusunda bilgilendirirmisiniz bu kopnularda çok fazla bilgi sahibi değilim şimdiden teşekkürler

[serobey]

Merhabalar,

İlk Mesajdaki rar dosyasını indirdiğimizde içinden HATIRLAT.XLS çıkıyor ama excelde hiçbirşey açılmıyor, ya da arka planda gizli mi çalışıyor anlamadım, bu yüzden dosyayı açamadım, kontrol etmeniz mümkün müdür acaba?

[Bülent Öztürk]

Merhabalar,

İlk Mesajdaki rar dosyasını indirdiğimizde içinden HATIRLAT.XLS çıkıyor ama excelde hiçbirşey açılmıyor, ya da arka planda gizli mi çalışıyor anlamadım, bu yüzden dosyayı açamadım, kontrol etmeniz mümkün müdür acaba?

Merhaba,

Excel'de Makrolar etkin iken dosyayı açtığınızda hatırlatma formu kendiliğinden açılacaktır.