VBA自动筛选-如果满足多个条件，请禁用单元格

Question

This autofilter filters cells so field 6 through 8 contain "yes":

With Range("F6:H500")
    .AutoFilter Field:=6, Criteria1:="yes"
    .AutoFilter Field:=7, Criteria1:="yes"
    .AutoFilter Field:=8, Criteria1:="yes"
End With

How can I achieve the opposite? I would like to have every combination, but NOT if every cell contains "yes". So "yes", "yes", blank.. or "yes", blank, blank

thanks.

update
tried this, but failed:

For Each r In rng.Rows
    If rng.Cells(r.Row, 1).Text Like "yes" Then
        r.EntireRow.Hidden = True
    End If
Next r

Answer 1

You can filter with:

Sub HideRows()
Dim ws As Worksheet
Set ws = Worksheets(1)

With ws
    For i = 6 To 500
        If .Cells(i, 6) Like "yes" And .Cells(i, 7) Like "yes" And .Cells(i, 8) Like "yes" Then
            .Rows(i).EntireRow.Hidden = True
        End If
    Next
End With
End Sub

And unhide with:

Sub ShowAllRows()
    Rows.EntireRow.Hidden = False
End Sub