Search occurrences in a range, and if not found skip their procedure

[APAL1]

Hello all,

My code starts with a range that the code filters and there supposed to be left 3 values after filtering.
Each value has its own sub-procedure. The range is column "B".
I would like the first sub, the one that filters, to check if what is left after filtering is actually there.
If not, the sub will not call the routine that takes care of it, and will go to the next one.
At the same time, it should check if the 2nd value is there after filtering and if not - it will not call the routine that takes care of it and the same with the 3rd one..
My values are: 205,219,218. and the may appear more than once.
so occurrences may be: 205,219,218; 205,218; 205,219; 219,218.
Would someone have an idea how to deal with this?
Thanks a lot, this site is really helpful!

 

[Yongle]

Try this

Sub CheckValues()

    Dim rng As Range: Set rng = Range("B:B").SpecialCells(xlCellTypeVisible)
    
    If Not rng.Find(what:=205) Is Nothing Then Call Procedure205
    If Not rng.Find(what:=218) Is Nothing Then Call Procedure218
    If Not rng.Find(what:=219) Is Nothing Then Call Procedure219
    
End Sub

where Procedure205 etc is the name of a sub

 

[Yongle]

If there are multiple values in one cell you may need to use:

Sub CheckValues2()

    Dim rng As Range: Set rng = Range("B:B").SpecialCells(xlCellTypeVisible)
    
    If Not rng.Find(what:=205, lookat:=xlPart) Is Nothing Then Call Procedure205
    If Not rng.Find(what:=218, lookat:=xlPart) Is Nothing Then Call Procedure218
    If Not rng.Find(what:=219, lookat:=xlPart) Is Nothing Then Call Procedure219
    
End Sub

 

[Yongle]

and this looks to match the value of the cell as a whole

Sub CheckValues4()

    Dim rng As Range: Set rng = Range("B:B").SpecialCells(xlCellTypeVisible)
    
    If Not rng.Find(what:=205, lookat:=xlWhole) Is Nothing Then Call Procedure205
    If Not rng.Find(what:=218, lookat:=xlWhole) Is Nothing Then Call Procedure218
    If Not rng.Find(what:=219, lookat:=xlWhole) Is Nothing Then Call Procedure219
    
End Sub

Correct option to use depends on what the individual cells contain
Need to choose one that does not give false positives (eg 205 would be found within 2051 etc)
If you are struggling, please provide the values of a representative sample of "typical" filtered cells
- there are various methods avalable including MATCH, COUNTIF etc

 

[APAL1]

Thanks Yongle!
I'll try the first solution!
Cheers!

 

[APAL1]

Thanks Yongle, the 1st solution works