Saberexcel - Dicas MS Excel VBA

Macro do Aplicativo Microsoft Excel VBA, retorna o resutado de uma busca
de determinado nome e ou determinado número, selecionado os ítens escolhidos na folha de planilha.

Sub Seleciona_valores_ou_texto()
On Error Resume Next
Application.ScreenUpdating = False
Dim c As Range
Dim vMeuValor As String
Dim r As Long
Dim vMinhaArea As Range
Dim vCelulas As Range

Set vMinhaArea = ActiveSheet.UsedRange
vMeuValor = InputBox("Digite um valor ou palavra que deseja selecionar, Ex: 1450 ou Saberexcel", "Saberexcel- site das macros", "Saberexcel")

For Each c In vMinhaArea
If c.Text = vMeuValor Then
If r = 0 Then
Set vCelulas = c
r = 1
Else
Set vCelulas = Union(vCelulas, c)
End If
End If
Next c
vCelulas.Select
MsgBox "Selecionadas todos ítens: [ " & vMeuValor & " ]"
Application.ScreenUpdating = True
End Sub



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


   Baixe o exemplo de planilha da macro acima
 vba busca e seleciona determinada palavra ou numero na planilha (17.09 kB 2010-11-18 20:06:03)