Olá tenho o seguinte código vba que é uma função que recebe três parâmetros e calcula as funções bult-in tendência e rquad e a depender do resultado ela retorna tendência ou a média dos ultimos valores.
Function CAPACIDADEPORT(KY As Range, KX As Range, UX)
Dim RQUAD As Double
Dim TENDE As Variant
RQUAD = Application.WorksheetFunction.RSq(KY.Value, KX.Value)
TENDE = Application.WorksheetFunction.Trend(KY.Value, KX.Value, UX.Value)
If RQUAD > 0.6 Then
CAPACIDADEPORT = TENDE
Else:
CAPACIDADEPORT = Application.WorksheetFunction.Average(KY.Cells(KY.Cells.Count).Offset(-4).Resize(5))
End If
End Function
Essa função acima funciona normalmente. O problema é quando eu adiciono mais um teste no if(TENDE > 0), após eu mudar ela sempre retorna erro de valor sendo que os dados que eu passo como parametro para as duas são os mesmos.
Function CAPACIDADEPORT(KY As Range, KX As Range, UX)
Dim RQUAD As Double
Dim TENDE As Variant
RQUAD = Application.WorksheetFunction.RSq(KY.Value, KX.Value)
TENDE = Application.WorksheetFunction.Trend(KY.Value, KX.Value, UX.Value)
If RQUAD > 0.6 AND TENDE > 0 Then
CAPACIDADEPORT = TENDE
Else:
CAPACIDADEPORT = Application.WorksheetFunction.Average(KY.Cells(KY.Cells.Count).Offset(-4).Resize(5))
End If
End Function
Gostaria de saber o que pode estar levando a esse erro. Grato desde já.
As Range
, o que está indo pra ele?