Farklı Tarihli Satırı Silme

[nesmeh]

Merhaba
Elimde bir liste var. Listemde F sutununda Tarih var. F Sutununda günün tarihi haricindeki tarihli satırları silebilirmiyim.
Konuyu arattırdır bulamadım eğer tekrar ise şimdiden özür dilerim.

 

[hsayar]

'Eğer yanlış anlamadıysam işinizi görecektir.

Sub DiğerTarihleriSil()
'F aralığındaki tarih, Girilen tarih ile karşılaştılıp eşit değilse bulunduğu satır silinir.
'09/11/2008-13:00
Dim CSf As Worksheet:                         Set CSf = ThisWorkbook.Sheets("Sayfa1")
Dim sonsat%, i%
Dim araTarih$, Tarih$
Tarih = Format(Date, "dd.mm.yyyy")
With CSf
  sonsat = .Cells(65536, "F").End(3).Row
  For i = sonsat To 2 Step -1
    araTarih = Format(.Cells(i, "F"), "dd.mm.yyyy")

    If araTarih = Tarih Then
      .Rows(i).Delete
    End If
  Next i
End With

Set CSf = Nothing
End Sub

 

[nesmeh]

'Eğer yanlış anlamadıysam işinizi görecektir.

Sub DiğerTarihleriSil()
'F aralığındaki tarih, Girilen tarih ile karşılaştılıp eşit değilse bulunduğu satır silinir.
'09/11/2008-13:00
Dim CSf As Worksheet:                         Set CSf = ThisWorkbook.Sheets("Sayfa1")
Dim sonsat%, i%
Dim araTarih$, Tarih$
Tarih = Format(Date, "dd.mm.yyyy")
With CSf
  sonsat = .Cells(65536, "F").End(3).Row
  For i = sonsat To 2 Step -1
    araTarih = Format(.Cells(i, "F"), "dd.mm.yyyy")

    If araTarih = Tarih Then
      .Rows(i).Delete
    End If
  Next i
End With

Set CSf = Nothing
End Sub

İlgine çok teşekkür ederim hsayar
Kodu çalıştırdım fakat tam tersini yaptı, Küçük bir değişiklik gerekiyor sanırım ama nasıl olduğunu bulamadım. günün tarihleri kalacak bulunduğum günden farklı tarihleri (Geçmiş tarihleri) silecek

Teşekkürler.

 

[hsayar]

If araTarih <> Tarih Then 'Bugüne eşit olmayanlar
If araTarih < Tarih Then 'Bugünden öncekiler

 

[nesmeh]

If araTarih <> Tarih Then 'Bugüne eşit olmayanlar
If araTarih < Tarih Then 'Bugünden öncekiler

teşekkür ederim tekrar

Şimdi oldu fakat listenin en başında günün tarihine eşit olmayanı sildi listenin sonunda olanları silmedi.

Çok sağ olun.

sanırım excel güne göre algılıyor
11.10.2008
13.10.2008
23.10.2008
24.09.2008
25.09.2008
27.10.2008
29.10.2008
31.10.2008
31.10.2008
31.10.2008
tarihleri daha büyük görüyor sanırım ondan kaynaklanıyor sorun

 

[nesmeh]

Teşekkür ederim hsayar

Dediğiniz gibi
If araTarih <> Tarih Then
sorunumu çözdü
çok teşekkür ederim