CONDICAO EM UMA PESQUISA NO LISTVIEW

ANDRELUCAS 06/07/2010 03:57:02
#346607

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