Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Procuurar valores

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



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Procuurar valores   Qua Abr 16, 2014 7:53 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Procuurar valores   Qua Abr 16, 2014 9:19 pm

Boa tarde!!

Tem como postar seu arquivo modelo?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Procuurar valores   Qui Abr 17, 2014 1:08 pm

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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Procurar valores   Seg Abr 28, 2014 4:30 pm

Só falta esta para que as minhas questões fiquem resolvidas!!!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Procuurar valores   Seg Abr 28, 2014 4:47 pm

Bom dia!!

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

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Procurar valores   Seg Abr 28, 2014 5:12 pm

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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Procuurar valores   Seg Abr 28, 2014 7:29 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



Mensagens : 62
Data de inscrição : 27/02/2013

MensagemAssunto: Procura de valores   Seg Abr 28, 2014 11:29 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Procuurar valores   Dom Maio 18, 2014 5:10 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Procuurar valores   Hoje à(s) 10:15 pm

Voltar ao Topo Ir em baixo
 
Procuurar valores
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Guardar valores de variaveis locais - -'
» È possível unir tópicos e mensagens á seus valores?
» Formula para interpolação de valores
» restauro honda cr 125r 1995 By: Febre
» Limpeza de garagem

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: