Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Filtrar de planilhas diferentes

Mensagem por Adonias »

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: 167
Registrado em: Sáb Jun 02, 2012 12:55 pm

Re: Filtrar de planilhas diferentes

Mensagem por Adonias »

Pessoal esqueci o arquivo. segue.

Valeu
Anexos
Teste.zip
Planilha excel
(15.15 KiB) Baixado 197 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 »

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...


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

Re: Filtrar de planilhas diferentes

Mensagem por Adonias »

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 »

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


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

Re: Filtrar de planilhas diferentes

Mensagem por Adonias »

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