Problema com pesquisa em listbox

Question

Private Sub Filtro()

  
    Dim linha As Integer
    Dim linhalistbox As Integer
    Dim valor_celula As String
    
    linhalistbox = 0
    linha = 9 'começa a pesquisa nesta linha
     
    ListBox1.Clear
    
    With Plan1
        While .Cells(linha, 3).Value <> ""
            valor_celula = .Cells(linha, 3).Value
            
            If UCase(valor_celula) Like "*" & UCase(txtof.Text) & "*" Then
                
             With ListBox1
             .AddItem
             .List(linhalistbox, 0) = Plan1.Cells(linha, 1) 'data
             .List(linhalistbox, 1) = Plan1.Cells(linha, 2) 'cliente
             .List(linhalistbox, 2) = Plan1.Cells(linha, 3) 'sobrenome / fantasia
             .List(linhalistbox, 3) = Plan1.Cells(linha, 4) 'UF
             .List(linhalistbox, 4) = Plan1.Cells(linha, 5) 'Cidade
             .List(linhalistbox, 5) = Plan1.Cells(linha, 6) 'Cidade
             .List(linhalistbox, 6) = Plan1.Cells(linha, 7) 'Cidade
             .List(linhalistbox, 7) = Plan1.Cells(linha, 8) 'Cidade
             .List(linhalistbox, 8) = Plan1.Cells(linha, 9) 'Cidade
             .List(linhalistbox, 9) = Plan1.Cells(linha, 10) 'Cidade
             .List(linhalistbox, 10) = Plan1.Cells(linha, 11) 'Cidade
             
              linhalistbox = linhalistbox + 1
              End With
                            
            End If
            linha = linha + 1
        Wend
    End With
    
 End Sub

Private Sub txtof_Change()
Call Filtro
End Sub


Private Sub UserForm5_Initialize()
Call Filtro
End Sub

Gente quando compilo aparece um erro de depuração em relação a linha.... ListBox1.Clear!

Eu realmente nao sei o que pode ser e nem sei como corrigir!

Estou aprendendo e agradeço qualquer ajuda que possam me dar!

Answer 1

Seu código roda normalmente pra mim.

Provavelmente você atribui algum valor à propriedade RowSource de ListBox1. Verifique se há algum valor lá e apague.

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

Answer 2

Felipe, agora um novo problema! 

.List(linhalistbox, 10) = Plan1.Cells(linha, 11) 'nf di

essa é a ultima linha que preenche o listbox, e com ela dá erro, quando retiro ela fica normal!

Se puder ajudar agradeço

Answer 3

Tente:

.List(linhalistbox, 10) = Plan1.Cells(linha, 11).Value2 'nf di

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG