Procuurar valores

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.

Grato pela vossa atenção

Boa tarde!!

Tem como postar seu arquivo modelo?

Att

Vou postar neste link um ficheiro modelo. 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.

https://www.dropbox.com/s/t10f7f7vtc205ub/Procurar%20na%20folha%20inteira.xlsm


Agradeço a ajuda.

Só falta esta para que as minhas questões fiquem resolvidas!!!

Bom dia!!

Sinceramente eu refiz uma leitura enquanto olhava seu arquivo, mas eu ainda não entendi o que você deseja.
    

Att

Bom dia

Espero conseguir explicar melhor. No ficheiro que mandei ao carregar no botão, ele abre a caixa para introduzir um valor a procurar em toda a sheet. Quando encontra ele indica que esse valor esta associado ao valor correspondente da coluna anterior. Vamos supor que procura o nº12051819056 (nº da segurança social) que neste caso esta na coluna F (NISSº) ele retorna uma mensagem a indicar que esse valor pertence a 1000000. Este valor 1000000 esta na coluna anterior mas eu gostaria que me indicasse sempre o nome da pessoa a quem pertence.


Obrigado.

Boa tarde!!

Mas você pretende selecionar a coluna adjacente anterior?

Código:

Private Sub CommandButton1_Click()
Dim r As Range

    Dim c As Range
    Dim s As String
    Dim ms As String
   
    Set r = Range("A1", Range("g65536").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).Select
    Next c

End Sub

Boas Alexandre

Não é a coluna adjacente anterior. Isto é, seja em que coluna encontrar o resultado eu quero que me retorne o valor que esta na coluna 2 (Nome).

Eu preciso disto para o seguinte efeito: somos uma comunidade terapeutica.. tenho um form onde cadastro a entrada de um jovem, com nome, nissº, nifº, nissº do representante etc. Quando recebemos um pagamento ele vem associado a um niss nº mas esse niss nº tanto pode ser do jovem como como do seu representante. Isto permitia-me saber a quem pertence esse pagamento venha ele com com o niss do jovem ou do seu representante. Acontece que este numero tanto pode estar na coluna (3), niss do jovem como na coluan do nissº do representante. Eu gostava de saber sempre a quem pertence o pagamento.

Obrigado

nissº= nº da segurança social em Portugal

Bom dia!!

Poderia postar seu arquivo modelo?

Por favor indique as postagens cruzadas!!
http://www.tomasvasquez.com.br/forum/viewtopic.php?f=6&t=3079

Att