satır gizleme (koşula göre)

[bugüven]

merhabalar
ekteki örnek tabloda belirtiğim gibi hücre değeri 0 (sıfır) yada teklif yok yazan satırın tümünü gizleyebilirmiyim

 

[usubaykan]

Merhaba;
"FİMUK2" sayfanızda aşağıdaki kodu denermisiniz?

Sub teklif_yok()
Dim hücre As Range
Cells.EntireRow.Hidden = False
For Each hücre In Range("M6:M" & Cells(Rows.Count, "B").End(3).Row)
    If hücre = "Teklif yok" Or hücre = "" Then
        hücre.EntireRow.Hidden = True
    End If
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "Sn: " & Application.UserName
End Sub