List View (não duplicar registros)

[rogertn]

Boa tarde pessoal,

Estou precisando de uma ajuda de vocês.

Tenho uma aplicação onde criei uma listview, a mesma é preenchida com os registros de uma planilha chamada "BD".
Os registros da planilha BD, podem ter repetições, por que uma EMPRESA pode cadastrar vários eventos.

Dentro da ListView quero que mostre somente os dados da EMPRESA, porém eu gostaria que mostrasse somente 1 REGISTRO POR EMPRESA. O que acontece atualmente é que como ele puxa todos os dados, são listados dados repetidos.

Exemplificando:

Dentro da planilha BD:
Empresa
A
A
A
B
B
B
C
C
C

Dentro da ListView quero que fique assim:
A
B
C

o código referente à popular a ListView que estou usando atualmente é:
Poderiam adaptar esse código abaixo para minha necessidade, ou até mesmo quem sabe refazê-lo por inteiro.

Código: Selecionar todos

Sub carregarDadosListView()
    
    Dim linha, linhalist As Integer
    Dim ultimalinha As Variant
    
    linhalist = 0
    linha = 3
    
    frmPesquisarEmpresa.ListaBD.ListItems.Clear
    Sheets("BD").Select
    
    With Sheets("BD")
        While .Cells(linha, 1).Value <> Empty
        ultimalinha = Cells(Rows.Count, "a").End(xlUp).Row
        
        With ListaBD
            Set Lista = frmPesquisarEmpresa.ListaBD.ListItems.Add(Text:=Cells(linha, "e").Value)
            Lista.ListSubItems.Add Text:=Cells(linha, "f").Value
            Lista.ListSubItems.Add Text:=Cells(linha, "g").Value
            Lista.ListSubItems.Add Text:=Cells(linha, "h").Value
            Lista.ListSubItems.Add Text:=Cells(linha, "i").Value
            Lista.ListSubItems.Add Text:=Cells(linha, "j").Value
            Lista.ListSubItems.Add Text:=Cells(linha, "k").Value
        
        End With
        
        linhalist = linhalist + 1
        linha = linha + 1
        Wend
        
    End With

End Sub

Dentro do fórum, já encontrei postagem bem parecidas com a minha dúvida, como esta, porém tentei adaptar esse código que foi usado para solucionar o meu problema, porém sem sucesso.
viewtopic.php?t=4202


Desde já agradeço!
Muito Obrigado!

[Wagner Morel]

rogertn,

Boa noite!

Uma das formas de resolver o problema é essa. Veja se pode ser assim.

[rogertn]

Muito Obrigado Wagner.
Deu certo para o que eu preciso!