Excel VBA - Fazer ComboBox listar na ListView somente "ON" ou "OFF"

[jcgmcs]

Boa tarde!

Fazer ComboBox listar na ListView apenas Status "ON" ou "OFF" conforme o item selecionado.

Instruções na Plan3.

obrigado!

 

VBA Impressão - Listar Itens ON ou OFF coluna Listview_Dados Fictícios.xls

[Midori]

No seu procedimento Carregar_Dados você pode colocar um parâmetro para escolher isso, p.ex,

 

Enum dtStatus
    dtTodos
    dtON
    dtOFF
End Enum

Sub Carregar_Dados(Optional Status As dtStatus = dtTodos)

Dim Carrega As Boolean

On Error GoTo Erro

...

With ListView1
    Carrega = True
    If Status = dtON And Plan1.Cells(Linha, 14).Value <> "ON" Then
        Carrega = False
    ElseIf Status = dtOFF And Plan1.Cells(Linha, 14).Value <> "OFF" Then
        Carrega = False
    End If

    If Carrega = True Then
        Set Lista = ListView1.ListItems.Add(Text:=Plan1.Cells(Linha, 2).Value) 'Cód. "B"
    
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 3).Value 'Cliente "C"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 4).Value 'Contato "D"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 5).Value 'Fixo/Celular "E"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 6).Value 'WhatsApp "F"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 7).Value 'Cidade "G"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 8).Value 'Bairro "H"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 9).Value 'HáDias "I"
        'Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 6).Text 'Col. com formatação R$ - Valor "G"
        'Lista.ListSubItems.Add Text:=VBA.Format(Plan1.Cells(Linha, 7).Value, "Currency") 'Col. sem formatação R$ - Valor "G"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 10).Text 'Cont.Dia "J"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 11).Value 'Observações "K"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 12).Text 'OnlineDia "L"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 13).Text 'ComprDia "M"
        Lista.ListSubItems.Add Text:=Plan1.Cells(Linha, 14).Text 'StatusZap "N"
    End If
    
...

 

E no Combo,

Private Sub cbStatusZAP_Change()
    If cbStatusZAP.Value = "ON" Then
        Call Carregar_Dados(dtON)
    Else
        Call Carregar_Dados(dtOFF)
    End If
End Sub

 

[jcgmcs]

Midori obrigado pelo retorno...

Desculpe a ignorância mas não to conseguindo adaptar seu código.

Na vdd até consegui fazer funcionar mas, tá fazendo as filtagens mas tbém tá duplicando os cabeçalhos da List, tipo do primeiro até o último e depois duplica os mesmos novamente mas vazios e não sei onde to errando.

Por gentileza, poderia me reenviar o anexo já com seu código adaptado... acho q só assim entenderei o erro. Rsrs

[Midori]

Para não duplicar chame o procedimento Clear, membro de ColumnHeaders.

[jcgmcs]

Vixii... e como faço isso?? To aprendendo ainda veii... rsrs

[Midori]

ColumnHeaders é uma classe. Quando você adicionou as colunas, chamou Add que é membro dela assim como Clear também é. No caso de Add você passou argumentos, mas Clear não tem nenhum. Então é só fazer a chamada de Clear antes de Add.

[jcgmcs]

Tentei aqui com isso.. 

.ColumnHeaders.Clear.Add Text:="ID", Width:=35, Alignment:=0

em todas as 13 linhas e não funcionou.. afff

[Midori]

Assim não vai funcionar porque Clear é o procedimento e não a classe.

 

O VBA mostra os membros de uma classe assim,

 

 

Se digitar o ponto depois de Clear o VBA não tem como listar algo.

 

Então é simples, basta chamar Clear uma única vez.

[jcgmcs]

Negativo.. não to conseguindo

[Midori]

With ListView1
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
.MultiSelect = True

.ColumnHeaders.Clear
.ColumnHeaders.Add Text:="ID", Width:=35, Alignment:=0
.ColumnHeaders.Add Text:="Cliente", Width:=220, Alignment:=0 'Alinh. Esquerda
...

 

[jcgmcs]

Affff era só isso...!!???

tá... e é assim mesmo essas listagens por coluna da esquerda pra direita??

E como fazer pro Listview não dar essas piscadeiras na tela enquanto faz as listagens..?

[Midori]

Uma alternativa para a questão das listagens é usar RowSorce no lugar de Add, mas para isso teria que trocar o ListView por ListBox já que o View não tem essa propriedade.

[jcgmcs]

tá blzz... Funcionando como eu preciso tá bom demais... Ficou show!

Agradecido ae a sua colaboração Blzz..

Abç!!