Custom function - Help please

[[email protected]]

Hello,

I created this function but I don't know why it doesn't work properly.
Any help appreciate.
Thank you.

Regards,
Thierry

Function Tps(Livrele As Range, Requispour As Range)
Dim Delay As Integer
Delay = Range(Requispour).Value - Range(Livrele).Value
If Delay < 0 Then
Range(Requispour.Column + 1).Interior.ColorIndex = 55
Range(Requispour.Column + 1).Font.ColorIndex = 0
Else
Range(Requispour.Column + 1).Interior.ColorIndex = 0
Range(Requispour.Column + 1).Font.ColorIndex = 1
End If
End Function

[Leith Ross]

Hello mrjaune,

Change your code to this...

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[Alvin]

you didn't specify the row reference.
Range(Requispour.Column + 1).Interior.ColorIndex = 55

try:
Requispour.Offset(0,1).Interior.ColorIndex = 55

"[email protected]" wrote:

> Hello,
>
> I created this function but I don't know why it doesn't work properly.
> Any help appreciate.
> Thank you.
>
> Regards,
> Thierry
>
> Function Tps(Livrele As Range, Requispour As Range)
> Dim Delay As Integer
> Delay = Range(Requispour).Value - Range(Livrele).Value
> If Delay < 0 Then
> Range(Requispour.Column + 1).Interior.ColorIndex = 55
> Range(Requispour.Column + 1).Font.ColorIndex = 0
> Else
> Range(Requispour.Column + 1).Interior.ColorIndex = 0
> Range(Requispour.Column + 1).Font.ColorIndex = 1
> End If
> End Function
>
>

[Norman Jones]

Hi Thierry,

Firstly, change:

> Delay = Range(Requispour).Value - Range(Livrele).Value
to:
Delay = Requispour.Value - Livrele.Value

You have already declared Requispour and Livrele as ranges.

It is not clear to me what range you are attempting to define in the
expression:

> Range(Requispour.Column + 1)

Perhaps you could describe the range in words?

It should also be noted that, if you intend to use your function as a
worksheet function (UDF), the UDF cannot change the format of cells other
than the calling cell.

---
Regards,
Norman



<[email protected]> wrote in message
news:[email protected]...
> Hello,
>
> I created this function but I don't know why it doesn't work properly.
> Any help appreciate.
> Thank you.
>
> Regards,
> Thierry
>
> Function Tps(Livrele As Range, Requispour As Range)
> Dim Delay As Integer
> Delay = Range(Requispour).Value - Range(Livrele).Value
> If Delay < 0 Then
> Range(Requispour.Column + 1).Interior.ColorIndex = 55
> Range(Requispour.Column + 1).Font.ColorIndex = 0
> Else
> Range(Requispour.Column + 1).Interior.ColorIndex = 0
> Range(Requispour.Column + 1).Font.ColorIndex = 1
> End If
> End Function
>

[[email protected]]

Hi Norman,
And thanks for your help.

I want do for example:
Delay = cell H11 - cell F11
and if the result is negative (the result is in cell J11)
I want the cell J11 fill in orange and the result in white.
Otherwise, if the result is positive I want no fill and text in black.
And next I can copy my Tps function to a J12:J650 range.

I can't use a conditional formating because I can't copy the formula to
a range.
I tried it before.

In my mind I want write this formula in cell J11: =Tps(F11,H11)

Regards,
Thierry

[Norman Jones]

Hi Thierry,

> I can't use a conditional formating because I can't copy the formula to
> a range.
> I tried it before.

Select cells J11:J650
Format | Conditional Formatting
Formula Is =$H11-$F11<0 Fill color: Orange, Font color: White

worked for me.

---
Regards,
Norman



<[email protected]> wrote in message
news:[email protected]...
> Hi Norman,
> And thanks for your help.
>
> I want do for example:
> Delay = cell H11 - cell F11
> and if the result is negative (the result is in cell J11)
> I want the cell J11 fill in orange and the result in white.
> Otherwise, if the result is positive I want no fill and text in black.
> And next I can copy my Tps function to a J12:J650 range.
>
> I can't use a conditional formating because I can't copy the formula to
> a range.
> I tried it before.
>
> In my mind I want write this formula in cell J11: =Tps(F11,H11)
>
> Regards,
> Thierry
>