filtreleme

[selami205]

veri bulunan sütunda tarih ve başka veriler var.veri/otomatik filtre özelliğini kullanarak tarih olmayanları silmek istiyorum. Belki forumda vardır ama şu anda inceleme imkanım olmadığı için yardımcı olmanızı istiyorum.

 

[nziya]

Sub tariholmayanlarisil()
Sheets("sayfa1").Select
Application.ScreenUpdating = False
Dim hucre As Range
Dim x As Integer
basla:
x = WorksheetFunction.CountA(Range("A:a"))
For Each hucre In Range("A1:a" & x)
If hucre.Value <> Date Then
hucre.Select
Selection.EntireRow.Delete Shift:=xlUp
GoTo basla
End If
Next
End Sub

 

[selami205]

İlgilendiğiniz için teşekkür ederim.Ama makroyu çalıştıramadım.Acaba bunda birçok sütunun oluşu ve bu sütunlarda başka verilerin de oluşu etkili olabilir mi? Ben sadece seçtiğim sütundaki tarih dışındaki verileri silmek istiyorum.Birde makrosuzda bu iş olur gibime geliyor. sadece otomatik süze ne yazılması gerektiği.
tekrar teşekkür ederim

 

[Metin Karaağaç]

Küçük bir örnek hazırlayarak dosyayı buraya eklermisiniz.
bir deneyelim.
anlatımınızdan nasıl verilerle uğraştığınız belli olmuyor.

 

[nziya]

Makro a sütununda bulunan tarih harici verileri silmektedir

 

[selami205]

BEN SADECE C VEYA SADECE D SÜTUNUNU FİLTRELEYEREKTARİH DIŞINDAKİ VERİLERİ TEMİZLEMEK İSTİYORUM

 

[omerceri]

Sub sil()

say1 = Range("a1").CurrentRegion.Rows.Count
Range("a1").AutoFilter Field:=3, Criteria1:="=***", Operator:=xlAnd

Rows("2:" & say1).Delete Shift:=xlUp
Range("a1").AutoFilter

say2 = Range("a1").CurrentRegion.Rows.Count
Range("a1").AutoFilter Field:=4, Criteria1:="=***", Operator:=xlAnd

Rows("2:" & say2).Delete Shift:=xlUp
Range("a1").AutoFilter
End Sub
Manuel olarak yapmak isteseniz, otomatik filtre işlemi yaparken "özel"i seçin, ölçütünde de "içerir"i seçip * yazın.
tarih olmayan lar seçilmeyecektir.
seçilmeyen satırları seçip silin.