INSERIR COLUNA E FILTRAR LISTBOX
Tenho planilha em excel onde seus dados são exibidos em um listbox. Um textbox tem a função que filtrar os dados listados a medida que o usuário digita. Até aà blz. Porém ele tem duas colunas, uma com o código e outra com a descrição, só que no listbox só aparece uma coluna com a descrição.
Queria que o listbox tivesse a mesma função atual, porém, mostrasse as duas colunas de código e descrição. Segue abaixo código utilizado no textbox que é chamado no evento de inicialização do userform.
Private Sub tbxFind_Change()
Dim i As Long
Dim item As Variant
Dim sCrit As String
Dim colNomes As New Collection
Dim nome As Range
sCrit = UCase(Me.tbxFind.Text) & [Ô]*[Ô]
i = 0
On Error Resume Next
With Me.lbxCustomers
For Each nome In Range([Ô]filmes[Ô])
If UCase(nome) Like sCrit Then colNomes.Add nome, nome
Next nome
.RowSource = [Ô][Ô]
.Clear
For i = 1 To colNomes.Count
.AddItem colNomes.item(i)
Next
End With
Set colNomes = Nothing
End Sub
Desde já agradeço
Queria que o listbox tivesse a mesma função atual, porém, mostrasse as duas colunas de código e descrição. Segue abaixo código utilizado no textbox que é chamado no evento de inicialização do userform.
Private Sub tbxFind_Change()
Dim i As Long
Dim item As Variant
Dim sCrit As String
Dim colNomes As New Collection
Dim nome As Range
sCrit = UCase(Me.tbxFind.Text) & [Ô]*[Ô]
i = 0
On Error Resume Next
With Me.lbxCustomers
For Each nome In Range([Ô]filmes[Ô])
If UCase(nome) Like sCrit Then colNomes.Add nome, nome
Next nome
.RowSource = [Ô][Ô]
.Clear
For i = 1 To colNomes.Count
.AddItem colNomes.item(i)
Next
End With
Set colNomes = Nothing
End Sub
Desde já agradeço
No listbox você não consegue colocar duas colunas. O máximo que você poderia fazer era concatenar os dois valores com um espaço entre eles.
Também não entendi porque você adiciona primeiro pra coleção, pra só depois adicionar no ListBox. Você poderia adicionar direto na lista.
E pra finalizar, você deve englobar no [Ô]Range([Ô]filmes[Ô])[Ô] a outra coluna, que até então... você está adicionando só o [Ô]nome[Ô] à coleção.
Abraços!
Também não entendi porque você adiciona primeiro pra coleção, pra só depois adicionar no ListBox. Você poderia adicionar direto na lista.
E pra finalizar, você deve englobar no [Ô]Range([Ô]filmes[Ô])[Ô] a outra coluna, que até então... você está adicionando só o [Ô]nome[Ô] à coleção.
Abraços!
Tópico encerrado , respostas não são mais permitidas