Önceden belirlenmiş tarihte belirtilen sayfanın silinmesi.

[cqners]

Merhaba;

Çalışma kitabımda belirttiğim bir sayfanın belirttiğim bir tarihte silinmesi

Envanter.xls çalışma kitabımdaki 2006veri sayfasının 01.01.2007 tarihinde otomakik silinmesi ile ilgili makro.

Konu hakkında yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodlardan birisini kullanabilirsiniz. Eğer dosya açıldığında tarih 24.10.2006 ise Sayfa1 otomatik olarak silinecektir. Siz kendinize göre uyarlarsınız.

Boş bir modüle;

Sub AUTO_OPEN()
    On Error Resume Next
    If Date = DateSerial(2006, 10, 24) Then
    Application.DisplayAlerts = False
    Sheets("Sayfa1").Delete
    Application.DisplayAlerts = True
    End If
End Sub

Yada ThisWorkbook kısmına;

Private Sub Workbook_Open()
    On Error Resume Next
    If Date = DateSerial(2006, 10, 24) Then
    Application.DisplayAlerts = False
    Sheets("Sayfa1").Delete
    Application.DisplayAlerts = True
    End If
End Sub

 

[cqners]

Merhaba;

Kodlar belirttiğim tarihte çalışmadı.

Örnek dosyam ekte.

 

[cqners]

Yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Selamlar,

Sizin eklediğiniz örnek dosyada verdiğiniz tarih 24-10-2006 dır. Eğer dosyayı açtığınız tarih bu tarihe eşit değilse kodlar çalışmayacaktır. Anladığım kadarıyla siz silinecek sayfaya belirttiğiniz tarihten sonra hiçbir şekilde ulaşılmasını istemediğiniz için silinmesini istiyorsunuz. Bu durumda kodda kullandığımız aşağıdaki satırı bir sonraki satır ile değiştirip deneyiniz.

Bu satır yerine;

If Date = DateSerial(2006, 10, 24) Then

Bu satırı kullanın.

If Date >= DateSerial(2006, 10, 24) Then

 

[cqners]

Harika Teşekkürler.

Problem benden kaynaklandı. Özür dilerim.


Sayfadaki Hücre için ?

Sayfa1 deki A9, B4, C9 daki verileri silmek için hangi komusu eklemeliyim ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Sub AUTO_OPEN()
    On Error Resume Next
    If Date >= DateSerial(2006, 10, 24) Then
    [Sayfa1].[A9,B4,C9]=""
    End If
End Sub

 

[cqners]

Sn. COST_CONTROL

Vermiş olduğunuz kodlar çalışmakta yardımlarınız için Teşekkürler.

 

[Sedata]

bu belirli bir tarih ve saat olursa bu konuda saat nasıl eklenir?
teşekkürler