Segue um exemplo de como eu utilizo.
Eu não costumo preencher uma listbox utilizando intervalos de planilha. Quando se trabalha com muitos dados a melhor coisa a se fazer é utilizar uma array para preencher a listbox.
O código a seguir preenche uma listbox e uma combobox(auxilio) com uma array(intervalo de planilha) e filtra os dados pesquisados em uma textbox em tempo real.
Eu utilizo uma combobox como bando de dados no lugar de uma planilha e uma array para devolver o resultado e preencher a listbox com os dados pesquisados.
Quando a pesquisa retorna apenas um item a array passa a ser Bidimensional. Ai que entra o motivo da discussão.
Nesse código, quando array retornar um item após a pesquisa, não ha necessidade de fazer a referência a uma planilha antes de utilizar o additem porque no evento Initialize do Userform já contém referência a um intervalo de uma planilha, mas quando eu preencho
uma listbox com um resultado de uma query de um banco de dados, a referência a um intervalo de planilha não existe. Ocorrerá um erro na hora que eu fizer uma pesquisa, onde o retorno será apenas um item.
Private Sub UserForm_Initialize()
dados = sBanco.Cells(1).CurrentRegion.Offset(1).Resize(sBanco.Cells(1).CurrentRegion.Rows.Count - 1).Value
With UserForm1
.ListBox1.ColumnCount = UBound(dados, 2)
.ListBox1.List = dados
.ComboBox1.List = dados
End With
End Sub
Private Sub TextBox1_Change()
Dim textoDigitado As String
lista_efetivo = Me.ComboBox1.List
indice = 0
textoDigitado = Me.TextBox1
ReDim n(UBound(lista_efetivo), 11)
For i = 0 To UBound(lista_efetivo)
If InStr(1, UCase(lista_efetivo(i, 1)), UCase(textoDigitado)) <> 0 Then
n(indice, 0) = lista_efetivo(i, 0)
n(indice, 1) = lista_efetivo(i, 1)
n(indice, 2) = lista_efetivo(i, 2)
n(indice, 3) = lista_efetivo(i, 3)
n(indice, 4) = lista_efetivo(i, 4)
n(indice, 5) = lista_efetivo(i, 5)
n(indice, 6) = lista_efetivo(i, 6)
n(indice, 7) = lista_efetivo(i, 7)
n(indice, 8) = lista_efetivo(i, 8)
n(indice, 9) = lista_efetivo(i, 9)
n(indice, 10) = lista_efetivo(i, 10)
n(indice, 11) = lista_efetivo(i, 11)
indice = indice + 1
End If
Next
If indice = 0 Then
Me.ListBox1.Clear
Exit Sub
End If
For lin = 0 To UBound(n)
For col = 0 To UBound(n, 2)
If IsNull(n(lin, col)) Then
n(lin, col) = ""
End If
Next
Next
n = Application.Transpose(n)
ReDim Preserve n(1 To 12, 1 To indice)
n = Application.Transpose(n)
On Error GoTo pula
If UBound(n, 2) Then
Me.ListBox1.Clear
Me.ListBox1.List = n
Exit Sub
pula:
Me.ListBox1.Clear
Me.ListBox1.AddItem n(1)
Me.ListBox1.List(0, 1) = n(2)
Me.ListBox1.List(0, 2) = n(3)
Me.ListBox1.List(0, 3) = n(4)
Me.ListBox1.List(0, 4) = n(5)
Me.ListBox1.List(0, 5) = n(6)
Me.ListBox1.List(0, 6) = n(7)
Me.ListBox1.List(0, 7) = n(8)
Me.ListBox1.List(0, 8) = n(9)
Me.ListBox1.List(0, 9) = n(10)
Me.ListBox1.List(0, 10) = n(11)
Me.ListBox1.List(0, 11) = n(12)
End If
End Sub
Renato MDSP
