Boa tarde
Necessitava de ajuda. Tenho um formulário com varias opções entre as quais um botão procurar o valor introduzido na input box em toda a folha de excel:
Dim r As Range
Dim c As Range
Dim s As String
Dim ms As String
Set r = Range("A1", Range("AE65536").End(xlUp))
ms = "O valor foi encontrado pertence a "
s = InputBox("Procurando valores", "Procurar", "Digite um valor")
For Each c In r.Cells
If c = s Then MsgBox ms & c.Offset(0, -1).Value
Next c
Com este comando ele devolve o valor da célula antes. Porém eu gostaria que me devolvesse sempre o valor da coluna C onde consta o nome, independentemente da coluna onde esta o valor encontrado.
Os campos da folha de excel são:
Código Nome NomeGestor Telefone CC nº Niss SNS
Da maneira que esta, ao clicar no procurar valores, posso introduzir qualquer valor, ele procura-o e devolve o campo da coluna anterior, mas eu queria que me devolvesse sempre o Nome (Coluna 2) correspondente.
Grato pela vossa atenção
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Procurar valor em todos os campos da folha
- vbalexandre
- Manda bem
- Mensagens: 122
- Registrado em: Sáb Dez 11, 2010 6:57 pm
Re: Procurar valor em todos os campos da folha
Bom dia!!
Por favor indique as postagens cruzadas!!
http://profwillianexcel.forumeiros.com/ ... lores#2965
Att
Por favor indique as postagens cruzadas!!
http://profwillianexcel.forumeiros.com/ ... lores#2965
Att