Snasui Excel Forum

Code: Select all

Dim WorkArea As Range
Do
    Set WorkArea = Range("A1:D10").Find("Fail", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)
    If Not WorkArea Is Nothing Then Rows(WorkArea.row).EntireRow.Hidden = True
Loop Until WorkArea Is Nothing

Code: Select all

'Other code
Dim t As String
Dim r As Range
For Each r In Range("a1:d10")
    If r.Value = "fail" Then
        t = t & "," & r.Address
    End If
Next r
Range(Mid(t, 2)).EntireRow.Hidden = True
'Other code

Code: Select all

Sub test()

Dim t As String
Dim r As Range

For k = 1 To 10

Set r = Range("A" & k & ":D" & k).Find("Fail", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)
        If r Is Nothing Then Rows(k).Hidden = True
        
Next k
 
End Sub

Code: Select all

Sub test()
For i = 1 To 10
If Application.CountIf(Range(Cells(i, "A"), Cells(i, "D")), "fail") = 0 Then Rows(i).Hidden = True
Next
End Sub