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 Microsoft Excel VBA(Saberexcel)

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 Microsoft Excel VBA(Saberexcel)

Saberexcel - Site das Macros

Essa macro e procedimentos do Aplicativo Microsoft Excel VBA, tem por finalidade abrir a Caixa de Diálogo do próprio Aplicativo Excel com auxlílio de macros e eventos vba, neste caso temos o evento change, ao digitar na coluna( C) e também o Evento Auto_Open, que abrirá a caixa de diálogo Localizar na abertura do Livro.

Respondendo a uma Dúvida da nossa amiga e aluna Flávia (S.Paulo)
Caro Senhor Marcondes,
P - há como inserir em uma macro a abertura do sistema de buscas do próprio excel isto é, a caixa de diálogo Localizar, quando eu clicar na coluna(C) . Agradeço, Flavia Corrente

R - Há como sim Flávia e é muito simples, veja os procedimentos.
observem que usando o Evento_Change,( ao escrever), na coluna C, abrirá a caixa de diálogo Localizar do Aplicativo, também usei o procedimento no Auto_Open, quando abrir a planilha, irá abrir a Caixa de Diálogo Localizar.

clique para ampliar
' macro que abre a caixa de diálogo localizar do aplicativo excel
Sub abrir_caixa_dialogo_localizar()
Application.CommandBars.FindControl(, 1849).Execute
End Sub

clique para ampliar
'neste caso uso usamos o evento Worksheet_Change(ao digitar) na coluna( c ) (3)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Application.CommandBars.FindControl(, 1849).Execute
End If
End Sub

clique para ampliar
'usando o evento auto-open na folha de código do objeto workbook
Private Sub Workbook_Open()
Application.CommandBars.FindControl(, 1849).Execute
End Sub




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