Este fórum está sendo desativado

[marcinhovn]

Bom Dia...

Na planilha em anexo, tenho uma coluna com nomes de pessoas.
O que eu preciso fazer é criar uma lista suspensa que mostre todos os nomes dessas pessoas, porém em ordem alfabética e removendo todas as duplicatas.
Nesta lista estará sendo acrescentado mais nomes de pessoas constantemente, então a lista deverá sempre se atualizar automaticamente.

Alguém consegue ajudar?

lista_suspensa.rar

Obrigado.

[alexandrevba]

Boa tarde!!

Tente...

Código: Selecionar todos

Sub AleVBA-303()

Dim ObjDic   As Object
Dim F   As Range
    Set ObjDic = CreateObject("Scripting.Dictionary")
    For Each F In Range([A2], Range("A" & Rows.Count).End(xlUp))
        ObjDic.Item(F.Value) = Empty
    Next F
    Range("I1").EntireColumn.ClearContents
    Range("I1").Resize(ObjDic.Count, 1) = Application.Transpose(ObjDic.keys)
End Sub

Use o Gravador de Macros para classificar os dados.

Para formula tente

Código: Selecionar todos

=ÍNDICE($A$2:$A$15;CORRESP(0;ÍNDICE(CONT.SE($B$1:B1;$A$2:$A$15);0;0);0))

Arraste para baixo.

Att

[marcinhovn]

Olá alexandrevba...

Desculpe minha ignorância, mas não consegui fazer aqui.
Será que você poderia aplicar isto na minha planilha de exemplo, para que eu consiga compreender?

Obrigado.

[alexandrevba]

Boa tarde!!

Para incluir uma classificação além de remover as duplicidades ...

Código: Selecionar todos

=SEERRO(ÍNDICE($A$2:$A$300;CORRESP(0;CONT.SE($A$2:$A$300;"<"&$A$2:$A$300)-SOMA(CONT.SE($A$2:$A$300;$B$1:B1));0));"")

Finalizar com as teclas Ctrl+Shift+Enter

Att