Pesquisa no ListView utilizando Checkbox

[André LUCAS]

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 Julho 6, 2010 por kuroi
Adicionar tag CODE

[JoséA]

Mostra o seu arquivo, para verificarmos se está ao nosso alcance...

:rolleyes: