Fóruns
Microsoft Excel - 2...
Datas & Horas
PESQUISAR CÉLULA PO...
 
Notifications
Clear all

PESQUISAR CÉLULA POR MACRO

 
Datas & Horas
Post Recente por EdsonBR 6 anos atrás
2 Posts
2 Usuários
0 Reactions
1,236 Visualizações
RSS
 tuliogomes
(@tuliogomes)
Posts: 2
New Member
Topic starter
 

Boa tarde,

Gostaria de saber se poderiam me ajudar em uma macro que pesquise um valor.

O que eu preciso:

Tenho duas abas: "Formulários" e "Clientes"

Na célula L2, digito o que procuro (parte dele)
Ele pesquisa essa palavra na aba "Clientes" (tentei gravando macro com CTRL+L)
Ela localiza a célula e a seleciona
Na hipótese dela surgir em C5, ou D8, E1 ... ela selecione essa linha, na coluna A (sempre na coluna A). Ex.: A5, A8, A1...
Esse valor (somente valor) será copiado e colado em: "Formulários" - célula O2

No caso, esse seria o código do cliente...
Eu tentei tudo isso gravando a macro, mas não consegui deslocar a célula selecionada pela pesquisa para a coluna A.

Muito obrigado !!!

 
Postado : 17/08/2018 10:39 am
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Boa noite, Tulio

Experimente...

Sub LocalizaCódCli()
  Dim rg As Range
  Set rg = Worksheets("Clientes").Cells
  Set rg = rg.Find(What:=Worksheets("Formulários").Range("L2").Value, After:=rg.Cells(rg.Rows.Count, rg.Columns.Count), _
                   LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
  If Not rg Is Nothing Then
    Worksheets("Formulários").Range("O2").Value = rg.EntireRow.Columns(1).Value
    rg.Worksheet.Activate: rg.Select 'Essa linha é desnecessária, a menos que queira mesmo selecionar a célula encontrada.
  Else
    Worksheets("Formulários").Range("O2").Value = "Não encontrado"
  End If
End Sub

 
Postado : 18/08/2018 4:27 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico