ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Filtrar de planilhas diferentes

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Adonias
Manda bem
Manda bem
Mensagens: 155
Registrado em: Sáb Jun 02, 2012 12:55 pm

Filtrar de planilhas diferentes

Mensagem por Adonias » Qua Jan 09, 2013 12:10 pm

Pessoal o modelo que peguei com vocês me ajudou muito.
Agora preciso resolver esse problema.
Quero utilizar a mesma função para filtrar dados de planilhas diferentes.
A planilha será escolhida conforme o textbox em que se faz a pesquisa e os diversos textbos estarão em páginas diferentes de uma multipage.

Ah! ía esquecendo, não consegui fazer a mascara para o formato CEI: XX.XXX.XXXXX/XX

Espero ter-me feito entender.

Qualquer dúvida é só postar
Segue o modelo.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Adonias
Manda bem
Manda bem
Mensagens: 155
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Filtrar de planilhas diferentes

Mensagem por Adonias » Qua Jan 09, 2013 12:13 pm

Pessoal esqueci o arquivo. segue.

Valeu
Anexos
Teste.zip
Planilha excel
(15.15 KiB) Baixado 99 vezes



Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Filtrar de planilhas diferentes

Mensagem por Marciel Silva » Qua Jan 09, 2013 3:16 pm

Boa tarde!

Quanto a sua dúvida de formatação do CEI, é o seguinte:

Seleciona as celulas onde for digitar o CEI;
Depois com o botão direito do mouse vai em formatar células;
Em seguida vai na guia "Numero" e personalizado;
Onde estiver escrito "Geral", você vai digitar da seguinte maneira:
00"."000"."00000"/"00

Agora tente!!!

Abraços...


Marciel Silva
Se suas dúvidas foram esclarecidas, marque o tópico como [RESOLVIDO].
E agradeça aqueles que voluntariamente pôde te auxiliar clicando no joinha.
m-m@r7.com

Adonias
Manda bem
Manda bem
Mensagens: 155
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Filtrar de planilhas diferentes

Mensagem por Adonias » Qua Jan 09, 2013 6:51 pm

Maciel, não é esse tipo de formatação que me refiro. Falo de código VBA, mas tudo bem. Já resolvi.

Consegui usar apenas uma função e chamá-la de qualquer page e a busca será feita em planilhas diferentes.
Agora peço que quem souber como reduzo a quantidade de linhas código desse módulo sem alterar nada do procedimento

Agradeço

Por exemplo

If FrmPrincipal.MultiPage1.Value = 0 Then
FrmPrincipal.ListBox1.List = Lista
ElseIf FrmPrincipal.MultiPage1.Value = 1 Then
FrmPrincipal.ListBox2.List = Lista
ElseIf FrmPrincipal.MultiPage1.Value = 2 Then
FrmPrincipal.ListBox3.List = Lista
ElseIf FrmPrincipal.MultiPage1.Value = 3 Then
FrmPrincipal.ListBox4.List = Lista
End If


teria como fazer um for next ou outra função para reduzir essa rotina para menos linhas de código?

Aguardo

Obrigado



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Filtrar de planilhas diferentes

Mensagem por Mauro Coutinho » Qua Jan 09, 2013 9:07 pm

Adonias, como não colocou qual evento está utilizando, acredito que seja o Click, mas no seu caso não tem muito o que fazer para reduzi-la, o que podemos fazer alem da maneira que fez é utilizar a instrução Select Case, ficando assim :

Código: Selecionar todos

Private Sub MultiPage1_Click(ByVal Index As Long)

    Dim sMultipg As Long
    
    sMultipg = Index
    
    Select Case sMultipg
    
        Case 0
            FrmPrincipal.ListBox1.List = Lista
        
        Case 1
            FrmPrincipal.ListBox2.List = Lista
        
        Case 2
            FrmPrincipal.ListBox3.List = Lista
        
        Case 3
            FrmPrincipal.ListBox4.List = Lista

    End Select

End Sub
[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

Adonias
Manda bem
Manda bem
Mensagens: 155
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Filtrar de planilhas diferentes

Mensagem por Adonias » Qui Jan 10, 2013 7:02 am

Mauro, obrigado, mas eu estou tentando reduzir o número de linhas código.
Esse seu código tem mais linhas que o meu.

Eu queria enxugar esse código

Aguardo ajuda



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder