compare value in cell with multiple

[nickvdr]

hey,
i have next code:
it looks for :xStr = "W" but now i wan't to look for W and/or "MV" how do i adjust?
if it founds W or /and MV it does notting, else entire row is hidden.



Dim telrij As Range
Dim bereik As Range
Dim Workbereik As Range
Dim xStr As String

On Error Resume Next



Set Workbereik = Range("G6:z400")

xStr = "W"

Application.ScreenUpdating = False
For i = Workbereik.Rows.Count To 1 Step -1
Set telrij = Workbereik.Rows(i)
Set bereik = telrij.Find(xStr, LookIn:=xlValues)
If bereik Is Nothing Then
telrij.Hidden = True

End If
Next
Application.ScreenUpdating = True


End Sub

[davsth]

Not elegant but the following should work

Dim telrij As Range
Dim bereik As Range
Dim Workbereik As Range
Dim xStr As String

On Error Resume Next
Set Workbereik = Range("G6:z400")
Application.ScreenUpdating = False
For i = Workbereik.Rows.Count To 1 Step -1
xStr = "W"
Set telrij = Workbereik.Rows(i)
Set bereik = telrij.Find(xStr, LookIn:=xlValues)
If bereik Is Nothing Then
xStr="MV"
Set bereik = telrij.Find(xStr, LookIn:=xlValues)
If bereik Is Nothing Then
telrij.Hidden = True
End if
End If
Next
Application.ScreenUpdating = True


End Sub

[meabrams]

Or Try this

Please remember next time to put code tags around your macro (click the # sign on the format bar for the post)

Sub Test()
Dim telrij As Range
Dim bereik1 As Range, bereik2 As Range
Dim Workbereik As Range
Dim xStr(1 To 2) As String

Application.ScreenUpdating = False
On Error Resume Next

Set Workbereik = Range("G6:z400")

xStr(1) = "W"
xStr(2) = "MV"

For i = Workbereik.Rows.Count To 1 Step -1
    Set telrij = Workbereik.Rows(i)
    Set bereik1 = telrij.Find(xStr(1), LookIn:=xlValues)
    Set bereik2 = telrij.Find(xStr(2), LookIn:=xlValues)
    
    If bereik1 Is Nothing And bereik2 Is Nothing Then
        telrij.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

[nickvdr]

okay,
i will try to remember..
ps THANKS that was realyyyyy fast