VBA Help With an If Statement and having a Cell with multiple values to compare from

[smithk901]

Hello,

Need help on trying to use an if statement that will compare one cell to the other. The issue is one cell has multiple answers separated by a comma and I need it to treat each as its own answer to compare against. How would I write this code?

Basically trying to compare R50 to U33 if R50 contains the value in one of the commas it should display a 1 on U50 (See picture Below)

What I have now is:


Dim K As Integer
For K = 50 To 149

If Range("R" & K).Value = Range("U33").Value Then
Range("U" & K).Value = 1
Else
Range("U" & K).Value = 0
End If
Next K


This statement only helps if the Cells are an exact match

 

[kevin9999]

If a formula is an option, then the following principle can be applied:

Book1
	A	B	C	D
1	Selection	Option 1	Option 2	Option 3
2	Option 1, Option 2, Option 3	1	1	1
3	Option 2	0	1	0
4	Option, 2, Option 1	1	0	0
Sheet1

Cell Formulas
Range	Formula
B2:D4	B2	=COUNTIF($A2,"*"&B$1&"*")

 

[smithk901]

If a formula is an option, then the following principle can be applied:

Book1
	A	B	C	D
1	Selection	Option 1	Option 2	Option 3
2	Option 1, Option 2, Option 3	1	1	1
3	Option 2	0	1	0
4	Option, 2, Option 1	1	0	0
Sheet1

Cell Formulas
Range	Formula
B2:D4	B2	=COUNTIF($A2,"*"&B$1&"*")

this helps, but what about when you have an option 13 or 11? this formula will still mark it as a 1 even though it is not an exact match

 

[Marcelo Branco]

Maybe

Pasta1
	A	B	C	D
1	Selection	Option 1	Option 2	Option 3
2	Option 1, Option 2, Option 3	1	1	1
3	Option 2	0	1	0
4	Option, 2, Option 1	1	0	0
5	Option 11, Option 3, Option 21	0	0	1
Plan8

Cell Formulas
Range	Formula
B2:D5	B2	=--ISNUMBER(SEARCH(","&SUBSTITUTE(B$1," ","")&",",","&SUBSTITUTE($A2," ","")&","))

M.