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 | 
 

 Procura em variaas Folhas do Livro

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: Procura em variaas Folhas do Livro   Ter Abr 30, 2013 1:13 am


Boa noite precisava da vossa ajuda.

Tenho uma peiquena base de dados com 1 livro e tres folhas, em que um formularios tem um botao para cadastrar clientes, outro para eliminar e outro para procurar, Ao carregar neste bota ele faz-me a procura na folha activa. Eu quero que esse botao procurar, caso nao encontre o dado na folha activa procure nas outras folhas.


Como sera que posso fazer isso?


Precisava mesmo da vossa ajuda. De certeza que é simples, porem para mim (leigo na materia) torna-se bastante dificil.
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: Procura em variaas Folhas do Livro   Ter Abr 30, 2013 5:10 am

Boa noite!!

Teste para ver se isso te ajuda
Código:
Option Explicit


Public MyVal As String

Sub SuperFIND()
'Author:    Jerry Beaucaire
'Date:      8/13/2010
'Summary:  Searches all sheets for any text string, activates when found
Dim ws      As Worksheet
Dim vFIND  As Range

StartOver:
MyVal = Application.InputBox("Digite o nome", "Procura em todas as Planilha", MyVal, Type:=2)
If MyVal = "Falso" Then Exit Sub
On Error Resume Next

    For Each ws In Worksheets
        Set vFIND = ws.Cells.Find(MyVal, LookIn:=xlValues, LookAt:=xlPart)
        If Not vFIND Is Nothing Then
            ws.Activate
            vFIND.Select
            Set vFIND = Nothing
            Exit Sub
        End If
    Next ws
   
MsgBox "Não foi encontrado"
GoTo StartOver

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



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

MensagemAssunto: Resolvido   Sex Maio 03, 2013 2:23 pm

Resolvido. Muito obrigado pela vossa ajuda!
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: Procura em variaas Folhas do Livro   Sab Maio 04, 2013 2:45 am

Boa noite!!

Obrigado pelo retorno!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Procura em variaas Folhas do Livro   Hoje à(s) 4:43 pm

Voltar ao Topo Ir em baixo
 
Procura em variaas Folhas do Livro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Galera de BRASILIA O que precisar referente a xbox 360 me procura ae .
» [Exame.com] Cresce procura por programadores para smartphones e tablets
» Ricardo Silva - URGENTE: Procura-se companheiro para a Extreme XL Lagares
» Modo "Pré-Visualizar" nas folhas de estilo CSS
» Como mudar a versão do meu fórum sem perder as imagens e as folhas CSS

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: