Soru Satır Silme

[okan32]

Aşağıdaki kod ile F sütutunda değeri sıfır olan satırları silebiliyorum.İstediğim F sütutunda değeri sıfır ve bir olan satırları silmek istiyorum

SIFIR OLAN HÜCRELERİ SİL
Sub Boş_Hücre_Sil()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("F65536").End(3).Row To 2 Step -1
        If Cells(i, "F").Value = "0" Then
            Rows(i).Delete
        End If
    Next i
    Application.ScreenUpdating = True: i = Empty
    MsgBox "Boş Hücreler Silinmiştir...", vbCritical Or vbOKOnly, "**Ali Koç**"
End Sub

 

[hamitcan]

Bu şekilde deneyin.

If Cells(i, "F").Value = 0 or  Cells(i, "F").Value = 1 Then

 

[okan32]

TEŞEKKÜR EDERİM SAYIN HAMİTCAN

 

[mzsakall]

Ben bunu sadece 3 olanları silmek istediğim Şekle nasıl dönüştürüm yardımcı olur musunuz hata alıyorum sürekli

 

[Kasniç]

Ben bunu sadece 3 olanları silmek istediğim Şekle nasıl dönüştürüm yardımcı olur musunuz hata alıyorum sürekli

İlk koddaki
If Cells(i, "F").Value = "0" Then ibaresinde ki "0" ı "3" yapın