saate bağlı veri silme

[limanC34]

Selam Arkadaşlar
İstenilen saate kadar işlem yapılmazsa ilgili hücrelerdeki veriler silinebilir mi?
Teşekkürler.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları, standart bir modül sayfasına kopyalayınız. Kitabı kaydedin, kapatın ve yeniden açın.

Option Explicit
Public Const saat = "19:00:00"
'--------------------------
Sub auto_open()
Call Satir_Sil
Application.OnTime TimeValue(saat), "Satir_Sil"
End Sub
'--------------------------
Sub Satir_Sil()
Dim i As Integer
With Sheets("Sayfa1")
    For i = .Cells(65536, 1).End(xlUp).Row To 1 Step -1
        If IsDate(.Cells(i, 1)) Then
            If .Cells(i, 1) <= Date Then
                If Trim(.Cells(i, 3)) = Empty Then
                    If Trim(.Cells(i, 4)) = Empty Then
                        If Trim(.Cells(i, 5)) = Empty Then
                            If Trim(.Cells(i, 6)) = Empty Then
                                .Cells(i, 1).ClearContents
                                .Cells(i, 2).ClearContents
                                .Cells(i, 7) = Format(Date, "dd.mm.yy") & " " & Format(saat, "hh:mm:ss") & " KADAR İŞLEM YAPILMADIĞINDAN SİLİNMİŞTİR"
                            End If
                        End If
                    End If
                End If
            End If
        End If
    Next i
End With
End Sub

 

[limanC34]

Sayın Ferhat Pazarçevirdi
Değerli çözümünüz için çok teşekkür ederim.
Saygılarımla.