Descricao: |
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)

|