Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / March 2006

Tip: Looking for answers? Try searching our database.

change cell colour if value in column = x??

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Simon Lloyd - 22 Mar 2006 15:23 GMT
Hi all,
I'm trying to get a cell in Colimn V to change colour if the value 5 i
found in a particular row....so if cell D2 contained value 5 then V
must turn yellow (or some such colour) if F2 contained 5 then cell V
will be yellow etc. every other column from D up to column U for aroun
30 rows, if the value of 5 is removed or is not present then the colou
of the cell should remain or get changed back to white. This is what
have been working with but of course its doesnt work!!!!

Any ideas?
Thanks,
Simon

Dim rng As Range
If Range("$D$2:$D$40") Or Range("$F$2:$F$40") O
Range("$H$2:$H$40").Value < 5 Then
ElseIf Range("$D$2:$D$40") Or Range("$F$2:$F$40") O
Range("$H$2:$H$40").Value = 5 Then
rng = rng("V2:V40")
With rng '("V2:V40")
.Select
.FormatConditions.Delete
.FormatConditions.Add _
Type:=xlExpression, _
Formula1:="=NOT(ISBLANK(V2))"
With .FormatConditions(1).Interior
.ColorIndex = 44
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End With
End If
End Su
Carim - 22 Mar 2006 15:38 GMT
Hi Simon,

Give a try to following :
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
Set Target = Range("D2:D20")
If Target Is Nothing Then
  Exit Sub
Else
   For Each Cell In Target
       If Cell.Value <> "" Then
          Cell.Offset(0, 18).Range("A1").Interior.ColorIndex = 6
       End If
       If Cell.Value = "" Then
          Cell.Offset(0, 1).Range("A1").Interior.ColorIndex = xlNone
       End If
   Next Cell
End If
End Sub

HTH
Carim
Peter T - 22 Mar 2006 15:41 GMT
Hi Simon,

You could do this with a Conditional format.

Select cell V2, in the CF dialog -

Formula Is : =MATCH(5,D2:U2,0)

Apply your pattern yellow format

Copy V2 down

Regards,
Peter T

> Hi all,
> I'm trying to get a cell in Colimn V to change colour if the value 5 is
[quoted text clipped - 35 lines]
> Simon Lloyd's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=6708
> View this thread: http://www.excelforum.com/showthread.php?threadid=525260
Carim - 22 Mar 2006 16:05 GMT
Hi Peter,

Excellent idea ...
I never thought of combining CF with the match function ...
I will use from now on ...

Thanks a lot

Carim
Simon Lloyd - 23 Mar 2006 08:00 GMT
Thanks for the replies, i will put them into practice when i am next i
work and post back here the results.......thanks for your time an
trouble!

Regards,

Simo
Simon Lloyd - 23 Mar 2006 08:00 GMT
Thanks for the replies, i will put them into practice when i am next i
work and post back here the results.......thanks for your time an
trouble!

Regards,

Simo
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.