Olá amigos,

Hoje falaremos um uma função em VBA muito interessante, a função MAX e MIN.

Porém antes de mais iniciarmos é importante deixar claro que o ideal quando estamos desenvolvendo uma ferramenta ou Dashboard é que nossas variáveis, cálculos matemáticos, regras de negócio e dados específicos fiquem armazenados em nosso código fonte e não em Sheets, desta forma manteremos a integridade do nosso projeto e deixamos ao usuário apenas as informações essenciais e de seu nível.

Muitas vezes quando estamos desenvolvendo um Dashboard temos a necessidade de utilizar formulas para chegar a resultado desejado.

Hoje vou escrever sobre a função Máximo(Max) e Mínimo (Mín), que muitas vezes utilizamos ao criar um Dashboard, um Ranking Personalizado ou afins.

[atencao]É importante citar que para que a função abaixo funcione a coluna que está referenciada no código tenha de ter números, caso contrário a função MAX e MIN retorna 0 (zero).[/atencao]

1 – Primeira forma.

[codigo]
Sub Maximo_Minimo()

maximo = Application.WorksheetFunction.Max(Sheets(“Plan1”).Range(“A1:A2000”))
minimo = Application.WorksheetFunction.Min(Sheets(“Plan1”).Range(“A1:A2000”))

MsgBox (“O valor máximo é: ” & maximo)
MsgBox (“O valor mínimo é: ” & minimo)

End Sub

[/codigo]

2- Segunda forma.

[codigo]

Sub Maximo_Minimo_2()

Dim Maxnumber As Integer, Range As Range

Set Range = Worksheets(“Plan1”).Range(“A1:A20”)

maximo = Application.WorksheetFunction.Max(Range)
minimo = Application.WorksheetFunction.Min(Range)

MsgBox (“O valor máximo é: ” & maximo)
MsgBox (“O valor mínimo é: ” & minimo)

End Sub

[/codigo]

Com este arquivo espero que sua dúvidas sejam sanadas e que você tenha pelo menos um norte para iniciar seus trabalhos no que refere-se a manipulação das funções Mínimo e Máximo, seja da forma tradicional ou com VBA.

Download do arquivo de Exemplo:
Faça download do arquivo de exemplo: Baixar árquivo .txt com o código.

Agradeço pela leitura e fico no aguardo de seus comentários e sugestões.

Um abraço.

Douglas Godoy