On Nov 8, 7:05*am, Don Guillett <dguille...@gmail.com> wrote:
> On Nov 7, 6:19*pm, gary <gcott...@hotmail.com> wrote:
>
>
>
>
>
>
>
>
>
> > On Nov 7, 4:15*pm, gary <gcott...@hotmail.com> wrote:
>
> > > On Nov 7, 4:07*pm, Don Guillett <dguille...@gmail.com> wrote:
>
> > > > On Nov 7, 5:56*pm, gary <gcott...@hotmail.com> wrote:
>
> > > > > How can I write a formula to compare the contents of two cells and do
> > > > > one thing if the font colors are the same and do a different thing if
> > > > > the font colors are different?
>
> > > > How did the fonts become colored, manually, or by conditional
> > > > formatting?
> > > > Also, which version of excel ________?
>
> > > Manually.
>
> > Microsoft Office Excel 2007.
>
> Sub ifManualColor()For Each c In Range("R1:R6")'MsgBox
> c.Interior.ColorIndexIf c.Interior.ColorIndex = 36 ThenMsgBox
> cElse'whatEnd IfNext cEnd Sub
OK you did ask for font color and a formula. How about a UDF?
Put this in a REGULAR module and then simply use =ic(a2) to check for
blue font
Function ic(x As Range)
If x.Font.ColorIndex = 5 Then
ic = "blue"
Else
ic = "notblue"
End If
End Function
|
