none
Problema com pesquisa em listbox RRS feed

  • Pergunta

  • 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!

    sexta-feira, 31 de março de 2017 23:57

Respostas

  • 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

    sábado, 1 de abril de 2017 12:36
    Moderador
  • Tente:

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


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

    domingo, 2 de abril de 2017 12:41
    Moderador

Todas as Respostas

  • 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

    sábado, 1 de abril de 2017 12:36
    Moderador
  • 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

    sábado, 1 de abril de 2017 22:19
  • Tente:

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


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

    domingo, 2 de abril de 2017 12:41
    Moderador