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

Please Login or Register  to view this content.

[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)

Please Login or Register  to view this content.

[nickvdr]

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