Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Procura em variaas Folhas do Livro

Ir para baixo 
2 participantes
AutorMensagem
nuno




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

Procura em variaas Folhas do Livro Empty
MensagemAssunto: Procura em variaas Folhas do Livro   Procura em variaas Folhas do Livro EmptyTer 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.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Procura em variaas Folhas do Livro Empty
MensagemAssunto: Re: Procura em variaas Folhas do Livro   Procura em variaas Folhas do Livro EmptyTer 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
Ir para o topo Ir para baixo
nuno




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

Procura em variaas Folhas do Livro Empty
MensagemAssunto: Resolvido   Procura em variaas Folhas do Livro EmptySex maio 03, 2013 2:23 pm

Resolvido. Muito obrigado pela vossa ajuda!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Procura em variaas Folhas do Livro Empty
MensagemAssunto: Re: Procura em variaas Folhas do Livro   Procura em variaas Folhas do Livro EmptySáb maio 04, 2013 2:45 am

Boa noite!!

Obrigado pelo retorno!!


Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Procura em variaas Folhas do Livro Empty
MensagemAssunto: Re: Procura em variaas Folhas do Livro   Procura em variaas Folhas do Livro Empty

Ir para o topo Ir para baixo
 
Procura em variaas Folhas do Livro
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Macro copiar colar - folhas diferentes sem espaços
» Preciso de ajuda com formulas de excel e configuração de algumas folhas
» Userform para inserir a data numa determinada célula de várias folhas.
» Procura seguinte
» Procuurar valores

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: