Find Text in Range

[ddub25]

How would I write VBA code to do the following:

IF "P1" is evident in Range CX85:CX94 Then
Return "Place..." in CN73

 

[seguin85]

How would I write VBA code to do the following:

IF "P1" is evident in Range CX85:CX94 Then
Return "Place..." in CN73

If "P1" or the value that is in cell P1?

 

[Rick Rothstein]

Assuming that P1 is text and, when present, is the only text in the cell...

[table="width: 500"]
[tr]
	[td]If Application.CountIf(Range("CX85:CX94"), "P1") Then Range("CN73").Value = "Place..."[/td]
[/tr]
[/table]

 

[ddub25]

Thanks Rick. How do I adapt it further to add the condition that "P2" cannot be evident in the range?

If Application.CountIf(Range("CX85:CX94"), "P1")

And Application.CountIf(Range("CX85:CX94"), DOES NOT CONTAIN "P2")

Then Range("CN73").Value = "Place..."

 

[seguin85]

If Application.CountIf(Range("CX85:CX94"), "P1") And Application.CountIf(Range("CX85:CX94"), "P2") = 0 Then Range("CN73").Value = "Place..."

 

[ddub25]

Thanks very much seguin85