Function fnCalculaMediaPeso(pTotalKilos As Double, pQtdViagens As Integer) As Double
If pdQtdViagens <> 0 Then
fnCalculaMediaPeso = pTotalKilos / pQtdViagens
Else
fnCalculaMediaPeso = 0
End If
End Function
// Estou usando essa mesma função e quando vou executar ela na planilha, a media de peso fica sempre dando o resultado 0.
Alguem consegue me ajudar ?
Olá Estudante, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
Isso está acontecendo por um pequeno detalhe de sintaxe. Na cláusula if você deve utilizar a variável pQtdViagens, porém, você utiliza pdQtdViagens - com a letra "d" a mais. Para corrigir, basta retirar a letra "d" e o código será executado corretamente.
Deixo abaixo o código completo com a correção:
Function fnCalculaMediaPeso(pTotalKilos As Double, pQtdViagens As Integer) As Double
If pQtdViagens <> 0 Then
fnCalculaMediaPeso = pTotalKilos / pQtdViagens
Else
fnCalculaMediaPeso = 0
End If
End Function
Após a alteração, salve o código VBA e tente executar novamente.
Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.
Em caso de dúvidas estou à disposição.
Abraços e bons estudos!