A sütununda bulunan bazı verilere göre satır silme

[xp45s]

Merhaba,

Gerekli detaylı açıklamayı ekte belirttim.Listemdeki a sütununda bulunan bazı verilerin oldugu satırları temizle butonuna basarak sildirmek istiyorum.Fakat listeki yerler sürekli degişmektedi.Yardımlarınızı rica ediyorum.

 

[Ömer]

Merhaba,

C sütunun da sayı olmayan verileri siler. Dosya düzeni buna uygun olduğu için bu şekilde yazdım. Belirlediğiniz iki ölçüte göre de yapılabilir..

Sub Sil()
Application.ScreenUpdating = False
Dim i As Long, son As Long
son = [A65536].End(3).Row
    For i = son To 1 Step -1
        If IsNumeric(Cells(i, "c")) = False Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
Application.ScreenUpdating = True
End Sub

.

 

[xp45s]

sn.ömer yardımlarınız için çok teşekkürler tam istedigim gibi çalışıyor.Emeginize sağlık..

 

[xp45s]

merhaba;

Şimdide ektede belirtmiş oldugum gibi L1 hücresine silinmesini istedigim tarihi manuel olarak girip tarih silme butonuna bastıgım zaman ilgili listenin D sütununda bulunan satırların silinmesi gereklidir.
Tekrar yardımlarınızı rica ediyorum.

 

[Ömer]

Bu şekilde deneyiniz..

Sub Sil()
Application.ScreenUpdating = False
Dim i As Long, son As Long
son = [A65536].End(3).Row
    For i = son To 1 Step -1
        If Cells(i, "d") = Range("L1") Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next i
Application.ScreenUpdating = True
End Sub

.

 

[xp45s]

sn.ömer uzmanım tekrar teşekkürler..