Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Filtrar de planilhas diferentes
Filtrar de planilhas diferentes
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.
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.
Re: Filtrar de planilhas diferentes
Pessoal esqueci o arquivo. segue.
Valeu
Valeu
- Anexos
-
- Teste.zip
- Planilha excel
- (15.15 KiB) Baixado 197 vezes
-
- Colaborador
- Mensagens: 98
- Registrado em: Qui Nov 01, 2012 2:37 pm
Re: Filtrar de planilhas diferentes
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...
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...
Re: Filtrar de planilhas diferentes
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
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
- Mauro Coutinho
- 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
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 :
[]s
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
Re: Filtrar de planilhas diferentes
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
Esse seu código tem mais linhas que o meu.
Eu queria enxugar esse código
Aguardo ajuda