Ajuda como achar o maior e menor numero digitado !

[Rafaelxz]

1.: Construa um programa em visual basic que solicite dez números e ao clicar em um botão de comando, o computador deve mostrar qual é o maior valor digitado e qual é o menor valor. O programa deve verificar também se não existem valores repetidos, ou seja, não podem existir dois números iguais na lista digitada pelo usuário, se isso acontecer, o programa deve pedir ao usuário que digite novos números nas caixas de texto correspondentes.

[zinhovba]

Boa noite!!

Veja se da para tirar proveito dessa rotina...

Sub ValorMinimo()

Dim Minimo

Dim i As Long

Minimo = "A"

For i = 1 To ActiveSheet.UsedRange.Rows.Count

If Cells(i, "D").Value <> 0 And Cells(i, "D").Value <> "" Then

If Minimo = "A" Then

Minimo = Cells(i, "D").Value

Else

If Cells(i, "D").Value < Minimo Then

Minimo = Cells(i, "D").Value

End If

End If

End If

Next

MsgBox "Mínimo: " & Minimo

End Sub

Att..