Match Function(Code modification)

[Todd Huttenstine\(Remote\)]

Hey guys,

If Application.CountIf(.Range("IV1:IV100"), "Add Stat Name Here") > 0 Then
Range("area22").Interior.ColorIndex =
Range("IV1").Interior.ColorIndex
Else
Range("area22").Interior.ColorIndex = 2
End If

Above is a working code that will color a Named Range of cells a specified
color if the value "Productivity" is found in Range ("IV1:IV100"). In this
example the named range is "area22" and the specified color is associated
with the variable "Range("IV1").Interior.ColorIndex". Also in this example
the Value "Productivity is located in cell A4. If the value "Productivity"
is not found in Range ("IV1:IV100"), then Range "area22" will be shaded
color 2.

In the above example, in order for the code to work, you must specify what
value to look for in Range ("IV1:IV100"). Instead, what I would like is for
the code to look in Range ("IV1:IV100") and if it finds the value of cell
A4, then color Range "area22" the variable
"Range("IV1").Interior.ColorIndex". If it does not find the value, then
color Range "area22" color 2.


Thank you


Todd Huttenstine

 

[Nigel]

Todd, try this

If Application.CountIf(Range("IV1:IV100"), Range("A4")) > 0 Then
Range("area22").Interior.ColorIndex = Range("B1").Interior.ColorIndex
Else
Range("area22").Interior.ColorIndex = 2
End If

Cheers
N

 

[Nigel]

correction in line 2 to read "IV1" not "B1"


If Application.CountIf(Range("IV1:IV100"), Range("A4")) > 0 Then
Range("area22").Interior.ColorIndex = Range("IV1").Interior.ColorIndex
Else
Range("area22").Interior.ColorIndex = 2
End If

Todd, try this

If Application.CountIf(Range("IV1:IV100"), Range("A4")) > 0 Then
Range("area22").Interior.ColorIndex = Range("B1").Interior.ColorIndex
Else
Range("area22").Interior.ColorIndex = 2
End If

Cheers
N







----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption

=---

 

[Todd Huttenstine\(Remote\)]

thanx

it worked.

correction in line 2 to read "IV1" not "B1"


If Application.CountIf(Range("IV1:IV100"), Range("A4")) > 0 Then
Range("area22").Interior.ColorIndex = Range("IV1").Interior.ColorIndex
Else
Range("area22").Interior.ColorIndex = 2
End If


Encryption
=---




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption

=---