Excel planilha vba busca intervalos de busca numeros minimo e maximo

Qui, 18 de Novembro de 2010 18:28 Expedito Marcondes
Imprimir

 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)

 

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:14