Soru Eski Tarihleri Otomatik Silme

[black_72]

Arkadaşlar merhaba,
Elimde bir tablo var ve tablonun ilk sütununda (A sütunu) karışık tarihler yer alıyor. 10.02.2023,5.08.2022,23.05.2024 gibi.
Benim istediğim ise A1:A50 sütununda bugünün tarihinden eski olan tarihleri bulup o tarihlerin yer aldığı tüm satırları sildirmek Örneğin bugünün tarihi 12.02.2023, eğer hücrelerde 11.02.2023,10.02.2023 gibi tarihler var ise o tarihlerin bulunduğu satırlar silinsin.

bunu yapan bir makro nasıl yazabilirim?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_Rows_Less_Than_Today()
    Dim Rng As Range, My_Range As Range
    
    Application.ScreenUpdating = False
    
    With Sheets("Sayfa1")
        For Each Rng In .Range("A1:A" & .Cells(.Rows.Count, "A").End(3).Row)
            If Rng.Value < Date Then
                If My_Range Is Nothing Then
                    Set My_Range = Rng
                Else
                    Set My_Range = Union(My_Range, Rng)
                End If
            End If
        Next
        
        If Not My_Range Is Nothing Then My_Range.EntireRow.Delete Shift:=xlUp
    End With

    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[black_72]

Teşekkür ederim