Coloured Cells

Is it possible to use a formula to return a value of True if a cell you refer
to is coloured or not? What I want to do is: If Sheet1 A1 is shaded red,
then I want a cell in Sheet2 to return P for paid, if not stay blank?

Thanx

Becks

If you are willing to use a small UDF, then you can test for color. Enter
this UDF:

Function IsRed(r As Range) As Integer
IsRed = 0
If r.Interior.ColorIndex = 3 Then
IsRed = 1
End If
End Function

Then in A1 in Sheet2 enter:

=IF(IsRed(Sheet1!A1)=1,"P","")
--
Gary's Student


"Becks" wrote:

> Is it possible to use a formula to return a value of True if a cell you refer
> to is coloured or not? What I want to do is: If Sheet1 A1 is shaded red,
> then I want a cell in Sheet2 to return P for paid, if not stay blank?
>
> Thanx
>
> Becks

How do I enter the UDF? I've never used them before.

Thanks

"Gary''s Student" wrote:

> If you are willing to use a small UDF, then you can test for color. Enter
> this UDF:
>
> Function IsRed(r As Range) As Integer
> IsRed = 0
> If r.Interior.ColorIndex = 3 Then
> IsRed = 1
> End If
> End Function
>
> Then in A1 in Sheet2 enter:
>
> =IF(IsRed(Sheet1!A1)=1,"P","")
> --
> Gary's Student
>
>
> "Becks" wrote:
>
> > Is it possible to use a formula to return a value of True if a cell you refer
> > to is coloured or not? What I want to do is: If Sheet1 A1 is shaded red,
> > then I want a cell in Sheet2 to return P for paid, if not stay blank?
> >
> > Thanx
> >
> > Becks

I have entered the UDF, and it works initially. But if the colour is cleared
or added later the formula doesn't update?

"Becks" wrote:

> How do I enter the UDF? I've never used them before.
>
> Thanks
>
> "Gary''s Student" wrote:
>
> > If you are willing to use a small UDF, then you can test for color. Enter
> > this UDF:
> >
> > Function IsRed(r As Range) As Integer
> > IsRed = 0
> > If r.Interior.ColorIndex = 3 Then
> > IsRed = 1
> > End If
> > End Function
> >
> > Then in A1 in Sheet2 enter:
> >
> > =IF(IsRed(Sheet1!A1)=1,"P","")
> > --
> > Gary's Student
> >
> >
> > "Becks" wrote:
> >
> > > Is it possible to use a formula to return a value of True if a cell you refer
> > > to is coloured or not? What I want to do is: If Sheet1 A1 is shaded red,
> > > then I want a cell in Sheet2 to return P for paid, if not stay blank?
> > >
> > > Thanx
> > >
> > > Becks