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
viewtopic.php?t=4202
Desde já agradeço!
Muito Obrigado!