Tarih Gelince Otomatik Uyarı Vermesi

[arslanbey]

Her ayın 27 olunca uyarı verecek yedek alınması lazım diye ama ben 3 gün zarfı içinde programı kullanma şansım olacak ancak ayın 30 olunca yedek almadan kullandığım programı açma izni vermeyecek yedek almak için beni zorlayacak yedek aldıktan sonra programı kullanma izni verecek eğer yedek almazisem program kapanacak.

Private Sub Workbook_Open()
tarih = DateSerial(Year(Date), Month(Date) + 1, 1) - 4
MsgBox "Yedek Almalısınız !!!", vbCritical + vbMsgBoxRtlReading
Else
MsgBox "Yedek Almaya Daha Zaman Var !!!", vbExclamation + vbMsgBoxRtlReading
End If
End Sub

kodlar alıntı fakat istediğim şekilde değiştiremedim.

 

[arslanbey]

konu güncelliğini koruyor.

 

[arslanbey]

Herhangi bir düşüncesi olan yokmu arkadaşlar.

 

[arslanbey]

Allah rızası için biri sorunuma çözüm bulsun lütfen.

 

[HASAN SATILMIS]

Tarih

gönderdiğim dosyayı incelersiniz, B1 sütununa Her hangi bir ,ayın ,27 sini yazdığında mesaj veriyor Diğer günleri boş geçiyor.Elimden gelen benimde budur. "Allah rızası " dediğin ,için gönderiyorum.

 

[arslanbey]

Teşekkür ama istediğim bu şekilde değil.

 

[Mustafa MUTLU]

Bir Dosya Eklerse bakabiliriz

 

[arslanbey]

Dosya iş yerinde benim istediğim her ayın 27 olunca uyarı vermeye başlayacak yedek alınması lazım diye.Son ayın 30 olunca yedek almam için beni zorlayacak yedek almadığım zaman programı kullanmama müsade etmeyecek ve kapanacak program.Eğer yedek alırsam program kullanmama müsade edecek.

 

[Ömer]

Merhaba,

Yedek almayı nasıl yapıyorsunuz? Manuel olarak dosyayı yedek klasörüne kopyalama şeklinde mi?

.

 

[arslanbey]

Hayır kod ile yapıyorum buton yardımı ile yedek alıyorum.

 

[Ömer]

Yedekleme almadan dosyayı çalıştırmak istemiyorsanız yedekleme kodunu dosyanın açılışına ekleyip eğer dosyanın yedeği yoksa belirlediğiniz tarihlerde yedeği otomatik almamamız daha doğru olmaz mı?

.

 

[arslanbey]

Otomatik almam daha iyi olur ama nasıl olacak bu peki hocam.

 

[Ömer]

Otomatik almam daha iyi olur ama nasıl olacak bu peki hocam.

Kodları ThisWorkbook sayfasına kopyalayınız.

Kodlar açılışta çalışır.

Eğer yedeklenmesi gereken dosya yoksa yedekler varsa birşey yapmaz.

Detaylı deneme yapmadım, deneyip bilgi verirsiniz.

D klasörünün içinde Yedekler adında dosya olduğu düşünülmüştür. Sizdekiyle dosya adı ve yoluyla kırmızı satırı değiştirirsiniz.

Private Sub Workbook_Open()
 
    Dim d() As String, dosya As String, uzantı As String, j As Byte
    Dim yedek As String, yol As String, tarih As String
 
    If Day(Date) < 27 Then j = 1 Else j = 0
    tarih = Format(DateSerial(Year(Date), Month(Date) - j, 1), "mmmmyy")
 
    With ActiveWorkbook
        d = Split(.Name, ".")
        uzantı = d(UBound(d))
 
        yedek = tarih & "." & uzantı
 
        [COLOR=red][COLOR=black]yol =[/COLOR] "D:\Yedekler\"[/COLOR]
 
        dosya = Dir(yol & yedek)
 
        If dosya = "" Then
            .SaveCopyAs yol & yedek
        End If
    End With
 
End Sub

.

 

[arslanbey]

Bu kodu modül'e mi yazacağım hocam.

 

[Ömer]

Bu kodu modül'e mi yazacağım hocam.

Vbe ekranında sayfa modüllerinin sonunda ThisWorkbook sayfasına kopyalayınız.

.

 

[arslanbey]

Tamam hocam teşekkürler her ayın 27 sinde kendi otomatik yedek alacak demi hocam.

 

[Ömer]

Çalışma şekli;

Gün 27 den küçük ise bulunduğumuz aydan bir önceki ayın yedeği varmı yok mu diye kontrol eder, eğer yoksa yedek alır varsa devam eder.

Gün 27 den büyük ve eşit ise bulunduğumuz ayın yedeği varmı yok mu diye kontrol eder, eğer yoksa yedek alır varsa devam eder.

Bu şekilde zaten sizin istediğiniz gibi 27 sinde dosyayı açarsanız ilgili ayın yedeğini alır eğer 27 sinde ofiste değilseniz 29 unda açarsanız yine ilgili ayın yedeğini alır. Aynı ay ismiyle yedek birkere alınmışsa bir daha almaz.

Kısaca sizin istediklerinizi yapıyor.

.

 

[arslanbey]

Çok teşekkür ederim hocam Allah razı olsun hocam.

 

[Ömer]

Rica ederim. Allah hepimizden razı olsun.