Mostrar valores unicos em ListBox

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Mostrar valores unicos em ListBox

Mensagem por alexandrevba em Qua Maio 14, 2014 10:08 am

Bom dia!!

Segue como Mostrar valores unicos em um ListBox

Código:
Private Sub UserForm_Initialize()
'Mostrar valores unicos em ListBox
Dim Rng As Range, Dn As Range
Dim Dic As Object
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
    Set Dic = CreateObject("scripting.dictionary")
        Dic.CompareMode = vbTextCompare
            For Each Dn In Rng: Dic(Dn.Value) = Empty: Next
With ListBox1
    .RowSource = ""
    .List = Application.Transpose(Dic.keys)
End With
End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum