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

jcgmcs · 12 de fevereiro

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 · 14 de fevereiro

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 · 15 de fevereiro

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 · 15 de fevereiro

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

jcgmcs · 15 de fevereiro

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

Midori · 15 de fevereiro

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 · 15 de fevereiro

Tentei aqui com isso..

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

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

Midori · 15 de fevereiro

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 · 15 de fevereiro

Negativo.. não to conseguindo

Midori · 15 de fevereiro

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 · 15 de fevereiro

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 · 15 de fevereiro

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.