Opa!!!

=DESLOC($A$1;CORRESP($D$20;$C$1:$C$1000;0)-1;0;CONT.SE($C$1:$C$1000;$D$20)-1;1)

é...
o Leo foi mais rápido, e mais preciso...
hahahahah

mas já que fiz, vai o anexo aí...

Qualquer coisa da o grito...

Só fazendo uma correção na fórmula....(tirando o -1 final)

=DESLOC(Plan1!$A$1;CORRESP(Plan1!$D$20;Plan1!$C$1:$C$1000;0)-1;0;CONT.SE(Plan1!$C$1:$C$1000;Plan1!$D$20);1)

Agora, somente para futuras pesquisas, tbem pode fazer assim...
=DESLOC(Plan1!$A$1;MÍNIMO(SE(Plan1!$C$1:$C$1000=Plan1!$D$20;LIN(Plan1!$C$1:$C$1000)))-1;0;MÁXIMO(SE(Plan1!$C$1:$C$1000=Plan1!$D$20;LIN(Plan1!$C$1:$C$1000)))-MÍNIMO(SE(Plan1!$C$1:$C$1000=Plan1!$D$20;LIN(Plan1!$C$1:$C$1000)))+1;1)

ou

=INDIRETO("A"&MÍNIMO(SE(Plan1!$C$1:$C$1000=Plan1!$D$20;LIN(Plan1!$C$1:$C$1000)))&":A"&MÁXIMO(SE(Plan1!$C$1:$C$1000=Plan1!$D$20;LIN(Plan1!$C$1:$C$1000))))

Agradeço aos dois...!
Sempre digo que vocês não são normais!! hehehe

Mas ainda não deu certo... na verdade, quase... mas não consegui ajustar de maneira a funcionar em qualquer lista...

Incluí uma Caixa de Combinação(ActiveX) e disponibilizo a versão de cada um (não estou anexando este último exemplo do Leonardo, mas também não respondeu para as duas listas...).

Edson...

Eu lembro q já passei por isso....
Nas combobox eu precisava fechar a planilha e abrir denovo pra atualizar!!!

Não me lembro bem como foi resolvido mas foi algo mais + ou - assim....

ComboBox1.ListFillRange = ""
ComboBox1.ListFillRange = "RD"

Vou fuçar aki

só se for isso que o Leo falou...

é algum problema na list box, pois na fórmula está tudo certo...
até criei outro range:

=INDIRETO("A"&CORRESP($F$1;RANGE;0)&":A"&MÁXIMO(SE($F$1=RANGE;LIN(RANGE))))

certinho, mas não funcionou na list box

OK... !
Problema com este controle, mas atendendo perfeitamente no UserForm!

Valeu, amigos!!

Resolvido!