Saberexcel - site das macros
Macro do Aplicativo Microsoft Excel VBA, seleciona um determinado intervalos de números baseados em um valor máximo e um valor mínimo, auxiliado por inputboxes(entrada de dados)
Sub Seleciona_intervalo_minimo_maximo()
On Error Resume Next
Application.ScreenUpdating = False
Dim Sb As Range
Dim vMeuValorI As Long
Dim vMeuValorII As Long
Dim r As Long
Dim vMinhaArea As Range
Dim vCelulas As Range
Set vMinhaArea = ActiveSheet.UsedRange
corrigir_teste
vMeuValorI = InputBox("Entre com o numero mínimo para seleção", "Saberexcel", 12)
vMeuValorII = InputBox("Entre com o numero máximo para seleção", "Saberexcel", 32)
For Each Sb In vMinhaArea
If Sb.Value >= vMeuValorI And Sb.Value <= vMeuValorII Then
If r = 0 Then
Set vCelulas = Sb
r = 1
Else
Set vCelulas = Union(vCelulas, Sb)
End If
End If
Next Sb
vCelulas.Select
vCelulas.Font.ColorIndex = 3
MsgBox ("Selecionado intervalo de números entre") & " [ " & vMeuValorI & "] e [ " & vMeuValorII & " ]"
Application.ScreenUpdating = True
End Sub
Aprenda Microsoft Excel VBA. (Saberexcel)
Baixe o exemplo de planilha contendo a macro acima
vba busca intervalos de busca numeros minimo e maximo (18.95 kB)
