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 ?
hoje, com a Alura e o Google Gemini
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!