Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 01-08-2012, 11:33 PM
ruby_2014 ruby_2014 is offline If color is red then active Windows 7 32bit If color is red then active Office 2010 32bit
Novice
If color is red then active
 
Join Date: Jan 2012
Posts: 1
ruby_2014 is on a distinguished road
Default If color is red then active

Hi,



could anyone help me with the formula, i have cells with red,green and yellow colors..

if the celll is red the display expired and yellow display about to expire and green to active.

any help is appreciated.

thanks
Reply With Quote
  #2  
Old 01-09-2012, 12:05 AM
Pecoflyer's Avatar
Pecoflyer Pecoflyer is offline If color is red then active Windows XP If color is red then active Office 2003
Expert
 
Join Date: Nov 2011
Location: Brussels Belgium
Posts: 2,779
Pecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant futurePecoflyer has a brilliant future
Default

Hi and welcome to the board

When cross posting please add a link to your other posts

http://www.excelforum.com/excel-prog...n-message.html

Read this to understand why this is necessary
__________________
Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post
Reply With Quote
  #3  
Old 01-09-2012, 01:41 AM
Catalin.B Catalin.B is offline If color is red then active Windows Vista If color is red then active Office 2010 32bit
Expert
 
Join Date: May 2011
Location: Iaşi, Romānia
Posts: 386
Catalin.B is on a distinguished road
Default

You can use the UDF below:
Code:
Function CellColorIndex(InRange As Range, Optional _
    OfText As Boolean = False) As Integer

Application.Volatile True
If OfText = True Then
    CellColorIndex = InRange(1, 1).Font.ColorIndex
Else
    CellColorIndex = InRange(1, 1).Interior.ColorIndex
End If

End Function
Then in the cell: =If(cellcolorindex(A4)=3;"Expired";"")
Reply With Quote
Reply



Similar Threads
Thread Thread Starter Forum Replies Last Post
If color is red then active Word VBA: add borders to active table tinfanide Word VBA 2 12-02-2011 05:53 AM
Can I keep a drawing tool active? sandy Drawing and Graphics 0 11-13-2009 09:58 AM
Help on option button active X aligahk06 Excel 0 11-03-2009 11:39 PM
Active Directory ababc Misc 0 09-19-2006 06:18 AM
Active Directory nukkumatti Misc 0 11-16-2005 08:42 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 11:26 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft