Excel VBA - Criar código para localizar conteudo da celula

[jcgmcs]

Boa tde!

Ajuda para Criar código VBA para localizar determinado conteudo da celula na coluna B.

Assim... Sempre que digitar uma informação tipo C0706 na celula "N1" e der Enter, ele segue pra esse valor que se localiza na coluna B à partir de "B5".

A coluna de pesquisa será sempre a "B" á partir da linha 5.

[Midori]

Pode efetuar a busca com Find,

 

https://learn.microsoft.com/en-us/office/vba/api/excel.range.find

 

Faça isso no evento Change e passe Target.Value para a função.

[jcgmcs]

Desculpe mas não entendi nada desses códigos.. rss

Poderia por gentileza montar o código pra mim conforme descrevi no anexo... Por favor...

[DJunqueira]

Olha, você poderia ter algo parecido com fórmulas no Excel. No exemplo da planilha você pode digitar parte do nome em D3 e depois clicar em F2 p/ ir até a célula q primeiro satisfaz a busca. você pode alterar isso p/ entrada do código integral tb.

F3 e F4 são células auxiliares q podem ser integradas à fórmula principal.

Avançar até linha.xlsx

[jcgmcs]

DJunqueira eu fiz isso... digitei ODAIR e dei F2 e nada aconteceu..

[DJunqueira]

Hehe, é p/ clicar na célula F2 q tem um hiperlink p/ redirecionar.

[jcgmcs]

obrigado mas não é isso... Quero simplesmente digitar na N1 e Enter...

Desse seu jeito é como usar o Localizar e Substituir do Excel... quero algo mais simples e prático tdeu!

[DJunqueira]

Tem esse código tb.
 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("D3").Address Then
    Cells.Find(What:=Range("D3").Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    End If

End Sub

 

Avançar até linha.zip

[OreiaG]

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim c As Range
  If Target.Address <> "$N$1" Then Exit Sub
  Set c = Range("B4:B" & Cells(Rows.Count, 2).End(3).Row).Find(Target.Value)
  If Not c Is Nothing Then c.Select Else: MsgBox "NÃO ENCONTRADO"
End Sub

 

[jcgmcs]

Boa tde... Obrigado!! Deu certo. Era assim mesmo q precisava...