Koşullu satır silme

[sameterim]

ekteki dosyada, " K " hücresi " 0,00 " olan tüm satırları silmesini istiyorum yardımcı olabilir misiniz?

 

[sameterim]

dosya büyük olduğu için eklenmiyor malesef

 

[Korhan Ayhan]

Merhaba,

İlgili sütunda bahsi geçen verileri filtreleyerek silebilirsiniz..

 

[okan32]

Sub Sil()
    Dim i As Long
    Dim sonSatir As Long
    sonSatir = Cells(Rows.Count, "K").End(xlUp).Row
    For i = sonSatir To 1 Step -1
        If Cells(i, "K").Value = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

kodu deneyiniz

 

[sameterim]

Merhaba,

İlgili sütunda bahsi geçen verileri filtreleyerek silebilirsiniz..

teşekkürler

 

[sameterim]

Sub Sil()
    Dim i As Long
    Dim sonSatir As Long
    sonSatir = Cells(Rows.Count, "K").End(xlUp).Row
    For i = sonSatir To 1 Step -1
        If Cells(i, "K").Value = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

kodu deneyiniz

teşekkürler