ListBox para mais de 10 colunas

[nandopg10]

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

[Mikel Silveira Fraga]

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.

[alexandreantonio1]

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

[alexandreantonio1]

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