DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
teşekkürlerMerhaba,
İlgili sütunda bahsi geçen verileri filtreleyerek silebilirsiniz..
teşekkürlerkodu deneyinizKod: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