Boa tarde pessoal!
Estou criando um sistema de cadastro e nele contém uma opção de pequisa com mais de 10 colunas no ListBox. O código abaixo permite carregar o ListBox com mais de 10 colunas. Nesse código gostaria de acrescentar um código para filtrar no ListBox por: nomes, códigos e entre datas.
Private Sub UserForm_Initialize()
Dim arrayItems()
With Plan1
ReDim arrayItems(1 To .UsedRange.Rows.Count, 1 To .UsedRange.Columns.Count)
Me.ListBox1.ColumnCount = .UsedRange.Columns.Count
For linha = 1 To .UsedRange.Rows.Count
Me.ListBox1.AddItem
For coluna = 1 To .UsedRange.Columns.Count
arrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha
Me.ListBox1.List = arrayItems()
End With
End Sub
Alguém pode me ajudar?
Desde já muito obrigado pela atenção!
Att.
Luis Fernando
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ListBox para mais de 10 colunas
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: ListBox para mais de 10 colunas
Nando, bom dia e seja bem vindo ao fórum.
Cara, existem várias soluções para realização desse filtro no ListBox. A um tempo atrás, postei um modelo que faz esse tipo de análise, sem utilizar a Linguagem SQL. Acredito que seja a melhor solução para você. Segue o link abaixo:
- Modelo Cadastro v1 (sem SQL)
Dúvidas, estamos a disposição.
Abraços e excelente semana.
Cara, existem várias soluções para realização desse filtro no ListBox. A um tempo atrás, postei um modelo que faz esse tipo de análise, sem utilizar a Linguagem SQL. Acredito que seja a melhor solução para você. Segue o link abaixo:
- Modelo Cadastro v1 (sem SQL)
Dúvidas, estamos a disposição.
Abraços e excelente semana.
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Jan 24, 2019 11:14 pm
Re: ListBox para mais de 10 colunas
Boa Noite o problema da listbox com mais de 10 colunas eu resolvi segue os códigos abaixo
Sub carregalistboxcli()
Plan2.Select
Dim arrayItems()
With Plan2
ReDim arrayItems(2 To .UsedRange.Rows.Count + 1, 1 To .UsedRange.Columns.Count)
LBCLIENTE.ColumnCount = .UsedRange.Columns.Count
For linha = 2 To .UsedRange.Rows.Count + 1
LBCLIENTE.AddItem
For coluna = 1 To .UsedRange.Columns.Count
arrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha
LBCLIENTE.List = arrayItems()
End With
Sub carregalistboxcli()
Plan2.Select
Dim arrayItems()
With Plan2
ReDim arrayItems(2 To .UsedRange.Rows.Count + 1, 1 To .UsedRange.Columns.Count)
LBCLIENTE.ColumnCount = .UsedRange.Columns.Count
For linha = 2 To .UsedRange.Rows.Count + 1
LBCLIENTE.AddItem
For coluna = 1 To .UsedRange.Columns.Count
arrayItems(linha, coluna) = .Cells(linha, coluna).Value
Next coluna
Next linha
LBCLIENTE.List = arrayItems()
End With
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Jan 24, 2019 11:14 pm
Re: ListBox para mais de 10 colunas
agora eu preciso de uma ajuda, tenho duas planilhas uma de planos e outra de clientes , a de clientes carrega o código do plano que puxo da planilha plano, como eu faço para carregar os dados do plano em uma listbox junto com os dados da planilha de cliente, lembrando minha listbox vai ficar com 19 colunas.
Grato
Alexandre
Grato
Alexandre