Günün tarihinden küçük olanı satırları silmek.

[acolkesen1]

Merhaba Arkadaşlar,
Ekli dosyada B sütununda günün tarihinden küçük olan tarihin bulunduğu satırda ,B,C ve D sütunlarındaki verileri silmek istiyorum. Örneğin B3 günün tarihinden küçükse , B3,C3 ve D3 hücrelerindeki verileri silmek istiyorum. İlgilenen arkadaşlara teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub ssil()
Dim sat As Long
    For sat = Cells(65536, "b").End(xlUp).Row To 2 Step -1
        If Cells(sat, "b") < Date Then
            Range(Cells(sat, "b"), Cells(sat, "d")).Delete shift:=xlUp
        End If
    Next
End Sub

 

[acolkesen1]

Merhaba Sayın Hiçdurmaz,
Hızlı cevabınız ve ilginiz için çok teşekkür ederim. Esen kalın.

 

[N.Ziya Hiçdurmaz]

Rica ederim Sayın acolkesen1