Procurar valor em todos os campos da folha

[nuno]

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

[vbalexandre]

Bom dia!!

Por favor indique as postagens cruzadas!!
http://profwillianexcel.forumeiros.com/ ... lores#2965

Att