Ir para conteúdo
Fórum Script Brasil
  • 0

Pesquisa no ListView utilizando Checkbox


André LUCAS

Pergunta

Boa noite amigos...

Este é meu terceiro tópico e como sempre com perguntas dificeis!!

Em minhas pesquisas na net encontrei o seguinte código, e adicionei a ele umas CheckBox.

A intenção das CheckBox é determinar quais as colunas podem ou não aparecer na pesquisa...

Eu mesmo fiz umas adaptações nele tentando determinar quais os campos que podem ser exibidos...

O problema é que só funciona se eu marca todas as checkbox quando eu marco uma checkbox sim outra não e outra sim ele simplismente só mostra as duas primeiras colunas...

O que eu tenho que fazer para que ele mostre todas as que eu marcar??

E o que eu tenho que fazer para que ele mostre na ordem sem deixar colunas em branco no meio das colunas que serão exibidas??

Private Sub TextBox5_Change()
Dim strObjetoBuscar As String
Dim lngResultado As Long
Dim lngColumna As Long, lngFila As Long
Dim x As Integer, n As Integer
ListView1.ListItems.Clear
strObjetoBuscar = TextBox5.Value
If strObjetoBuscar = "" Then GoTo 99
strObjetoBuscar = LCase(strObjetoBuscar)
    For a = 2 To 2010
        lngResultado = InStr(1, Folha1.Cells(a, 2), strObjetoBuscar, vbTextCompare)
            If lngResultado > 0 Then
                ListView1.ListItems.Add 1, , Format(Folha1.Range("B" & a).Value, "000")
            
                If lngResultado > 0 Then
                If CheckBox1 = True Then
                ListView1.ListItems(1).ListSubItems.Add 1, , Folha1.Range("C" & a).Value
                          
                If lngResultado > 0 Then
                If CheckBox2 = True Then
                ListView1.ListItems(1).ListSubItems.Add 2, , Folha1.Range("D" & a).Value

                
                If lngResultado > 0 Then
                If CheckBox3 = True Then
                ListView1.ListItems(1).ListSubItems.Add 3, , Format(Folha1.Range("E" & a).Value, "#,##0.00")

                
                If lngResultado > 0 Then
                If CheckBox4 = True Then
                ListView1.ListItems(1).ListSubItems.Add 4, , Folha1.Range("F" & a).Value
                End If
                End If
                End If
                End If
                End If
                End If
                End If
                End If
            End If
    Next a
99:
End Sub
Private Sub UserForm_Initialize()
   With ListView1
        .FullRowSelect = True
        .View = lvwReport
        .Gridlines = True
    End With
End Sub

A paz esteja com vocês!!

Editado por kuroi
Adicionar tag CODE
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...