Function FnCalcMed(pTotalkilo As Double, pTotalviagens As Integer) As Double
If pTotalviagens <> 0 Then
FnCalcMed = pTotalkilo / pTotalviagens
Else
FnCalcMed = 0
End If
End Function
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
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.