Function FnCalcMed(pTotalkilo As Double, pTotalviagens As Integer) As Double
If pTotalviagens <> 0 Then
FnCalcMed = pTotalkilo / pTotalviagens
Else
FnCalcMed = 0
End If
End Function
Function FnCalcMed(pTotalkilo As Double, pTotalviagens As Integer) As Double
If pTotalviagens <> 0 Then
FnCalcMed = pTotalkilo / pTotalviagens
Else
FnCalcMed = 0
End If
End Function
Fala Vandeir, tudo bem?
Aparentemente o código está certo. Veja se os valores nas células realmente são numéricos e se o Total de Viagens é realmente um número inteiro.
Outra coisa que pode influenciar é o "formato" do número da célula, ou o próprio valor.
Caso nada disso ajude, tente colocar um "break point" e olhar passo a passo para ver onde está o erro.
Nos conte os detalhes.
Abraços,
Sabino.