Segue a minha implementação para exibir o maior valor em um intervalo, inclusive para intervalos negativos.
Function maiorNoIntervalo(intervalo As Range) As Double
aux = intervalo.Cells(1, 1).Value
For Each valor In intervalo
If valor > aux Then
aux = valor
End If
Next
maiorNoIntervalo = aux
End Function
Olá Marcos, tudo bem? Espero que sim!
Muito bom Marcos, ficou muito bem feito e funciona perfeitamente.
Somente nos casos em que a célula é vazia, o valor é entendido como 0, então é necessário tomar cuidado com essa parte, caso existam somente valores negativos e células vazias.
Bons estudos!