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.
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
İ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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.