[ÇÖZÜLDÜ] Tarih şartına bağlı olarak sayfanın silinmesi hk.

[enteresan]

Sayın excelciler, siteden faydalandığım bir kodu bir türlü çalıştıramıyorum. Kod mu yanlış yoksa ben mi yanlış yapıyorum. Kod :

Private Sub Workbook_Open()
zaman = Date
If zaman > "11/03/2007" Then
Application.DisplayAlerts = False
Sheets("Sayfa1").Delete
Application.DisplayAlerts = True
MsgBox "Maalesef Sayfa Silindi.", , "AAAAAAA!"
Dosyaadi = ActiveWorkbook.Name
Workbooks(Dosyaadi).Close SaveChanges:=True
End If
End Sub

Bu konuda sitedeki tüm örneklere baktım ama belki de benim istediğim şekilde bir kod bulamadım. Yardımcı olacaklara minnettar olurum. Benim istediğim şu,
yukarıdaki koda bakarsak bugün yani 14/03/2007 tarihinde dosyayı açtığımda orada yazan 11/03/2007 tarihi geçmiş olduğundan sayfanın silinmesi, eğer 11/03/2007 değil de orada 18/03/2007 yazıyor diye düşünürsek sayfa silinmesin. Yani günün tarihi makrodaki tarihten büyük ise sayfa silinsin, küçük ise herhangi bir değişiklik olmasın istiyorum.... Lütfen yardım edin....

 

[Recep İpek]

Kodlar bende gayet güzel çalışıyor.

Hata nerde oluşuyor?

 

[enteresan]

Kodlar bende gayet güzel çalışıyor.

Hata nerde oluşuyor?

Sayın ripek,
ilgilendiğiniz için teşekkür ederim. Makrodaki tarihi 15/03/2007 yaparak denermisiniz lütfen. Bu şekilde olduğunda sayfayı silmemesini istiyorum ama yine siliyor.

 

[Recep İpek]

Hem 14/03/2007, hemde 15/03/2007 olarak denedim.Problem yok.enteresan

Küçük bir örnek dosya hazırlayıp ekleyebilirmisiniz?

 

[enteresan]

Dosyayı ekledim sayın ripek. Makrodaki tarih 15/03/2007 olduğu halde sayfa1 silinmekte.

 

[Recep İpek]

Dosyanız bende yine sorunsuz çalışmaktadır.

Sanırım sizin tarih formatında bir problem var.

Aşağıdaki şekilde deneyebilirmisiniz?

Private Sub Workbook_Open()
On Error Resume Next
zaman = Date
If zaman > DateSerial(2007, 3, 15) Then
Application.DisplayAlerts = False
Sheets("Sayfa1").Delete
Application.DisplayAlerts = True
MsgBox "Maalesef Sayfa Silindi.", , "AAAAAAA!"
Dosyaadi = ActiveWorkbook.Name
Workbooks(Dosyaadi).Close SaveChanges:=True
End If
End Sub

 

[enteresan]

Evet sayın ripek. Haklısınız, bu kez çalıştı. Fakat ben anlayamıyorum. Sitedeki örnek kodları yazanlar da benim yazdığım biçimde tarih yazmışlar ve bu makroyu kullanabilmekteler. Benim bilgisayarımın tarih formatı neden değişik acaba....
Ben bu şekildeki makroyu başka bir bilgisayarda kullanabilmem için tarih formatını kontrol etmem mi gerekecek. Yardımlarınız için teşekkür ederim. Saygılar....

 

[Recep İpek]

Tarihler ara sıra problem yaratabilir.

Başlat>>Ayarlar>>Denetim Masası>>Tarih ayarlarını kontrol edebilirsiniz.

Benim bilgisayarım gg.aa.yyyy şeklinde...

Makrodaki gibi kullanırsanız diğer bilgisayarlarda da rahatlıkla kullanabilirsiniz.

Kolay gelsin.