Procurar valor em coluna baseado em célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Procurar valor em coluna baseado em célula

Mensagem por alexandrevba em Qua Fev 13, 2013 5:48 pm

Boa noite!!

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
'Procura na coluna D, o valor digitado em F1
Dim vFIND As Range

On Error Resume Next

If Not Intersect(Target, Range("F1")) Is Nothing Then
    Set vFIND = Range("D:D").Find(Range("F1").Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not vFIND Is Nothing Then
        vFIND.Activate
    Else
        MsgBox "Não encontrado."
    End If
End If

End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Procurar valor em coluna baseado em célula

Mensagem por Afonso Serri em Sex Fev 15, 2013 4:37 am

Bom dia.

Muito legal esse código ! Obrigado por publica-lo.

Abs.

Afonso Serri
Iniciante
Iniciante

Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum