Início
Últimas imagens
Procurar
Registar
EntrarProcurar valor em coluna baseado em célula
2 participantes
Página 1 de 1
Procurar valor em coluna baseado em célula
por alexandrevba 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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Re: Procurar valor em coluna baseado em célula
por Afonso Serri Sex Fev 15, 2013 4:37 am
Bom dia.
Muito legal esse código ! Obrigado por publica-lo.
Abs.
Muito legal esse código ! Obrigado por publica-lo.
Abs.
Afonso Serri- Iniciante
- Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville
Tópicos semelhantes» Procurar e Destacar (pintar) valor em célula
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Colorir Valor Duplicado Comparando outra Coluna
» Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro
» Como copiar um intervalo repetidas vezes, baseado em um célula
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Colorir Valor Duplicado Comparando outra Coluna
» Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro
» Como copiar um intervalo repetidas vezes, baseado em um célula
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos|
|
|