Excel alterar código vba de busca

[deejaywesley]

Boa Noite amigos!

 

Preciso da ajudas dos mestres em vba, tenho este código!

Sub teste()
 Dim EncontraString As String
    Dim Intervalo As Range
    EncontraString = Range("J1").Value 'InputBox("Informe o valor a procurar")
    If Trim(EncontraString) <> "" Then
        With Sheets("saldos_estoque").Range("B:D")
            Set Intervalo = .Find(What:=EncontraString, _
                                  After:=.Cells(1), _
                                  LookIn:=xlValues, _
                                  LookAt:=xlWhole, _
                                 SearchOrder:=xlByRows, _
                                 SearchDirection:=xlPrevious, _
                                 MatchCase:=False)
            If Not Intervalo Is Nothing Then
                Application.Goto Intervalo, True
            Else
                MsgBox "Não Localizado"
            End If
        End With
    End If
End Sub

ele pega o valor em J1 e procura o mesmo na coluna B:D, está funcionando beleza, só que precizo que quando ele encontre o valor ele selecione a celula na coluna J na mesma linha em que ele encontrou o valor de j1...

 

algue, pode quebra essa ai pra mim, tentei de algumas formas aqui mas funcionou nao... 

[Edson Luiz Branco]

Boa noite, @deejaywesley

Naquele trecho, substitua por:

 

...
   If Not Intervalo Is Nothing Then
      Application.Goto .Worksheet.Cells(Intervalo.Row, "J"), True
   End If
...

 

Ou:

 

...
   If Not Intervalo Is Nothing Then
      .Worksheet.Cells(Intervalo.Row, "J").Select
   End If
...

 

[deejaywesley]

Bom Dia @Edson Luiz Branco

testei as duas opções aqui e funcionam perfeitamente!

era o que precisava!

 

Muito obrigado pela ajuda amigo, forte abraço!

Ótimo domingo pra você!

[deejaywesley]

Boa tarde @Edson Luiz Branco

Desculpe incomoda-lo novamente, mas é que fiz uns testes aqui e o MEU código não esta fazendo o que preciso, pois, ele busca só informações completas na célula, e preciso que busque parte dentro das células também, igual ao localizar, achei este outro na internet (aparentemente está fazendo o que preciso), poderia alterar ele para selecionar a célula na coluna J como fez no outro, por favor!

ah! e caso nao encontre mostrar uma mensagem como o outro fazia...

Sub teste()
    Cells.Find(What:=CStr(Cells(1, 10).Value), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
End Sub

 

Muito obrigado pela atenção!

[Edson Luiz Branco]

No seu primeiro código seria só alterar de  LookAt:=xlWhole,  para LookAt:=xlPart