Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, verifica todos os valores digitados,
localiza a última célula e insere o valor Máximo, desloca mais uma linha e insere
o valor mínimo da coluna(A)

Sub Valor_Maximo_Minimo()
Dim i As Single

i = 1

Do While Cells(i, 1) <> "" 'Retorna a posição da linha da primeira célula
i = i + 1 ' na coluna "A" vazia
Loop

Cells(i, 1).Select
ActiveCell.FormulaR1C1 = "=MAX(R[-" & i - 1 & "]C:R[-1]C)" 'Inseri a fórmula
Cells(i, 1).Select

Cells(i + 1, 1).Select
ActiveCell.FormulaR1C1 = "=MIN(R[-" & i - 1 & "]C:R[-1]C)"

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



    Baixe o exemplo de planilha contendo a macro acima:
Excel planilha vba formulas loop ultima celula retorna valor maximo minimo (18.32 kB)