Boa noite,

Disponibilize um arquivo modelo.

Ola obrigado pela resposta. segue o arquivo modelo

Boa tarde =nan=,

Em anexo coloquei um arquivo com o que montei, de uma olhada.

Enquanto montava, notei que que para fiz práticos você irá ter um problema.
A sua base real deve conter o nome completo dos alunos (Nome + Sobrenome), e essa macro em anexo não separa os nomes dos sobrenomes.

Outro problema que tem é que a macro trás apenas um nome, ou seja se dois nomes tiver 2 ocorrências a macro só vai trazer um.

Você pode olhar os comando que usei no módulo 2 e no botão Buscar.

Se tiver alguma dúvida avise.

Att,

Cole uma cópia do código abaixo no módulo do Form

Private Sub ComboBox1_Change()
 Dim k As Long, rng As Range
  k = [A:A].Find(ComboBox1.Value).Row
  Set rng = Range(Cells(k, 2), Cells(k, Cells(k, Columns.Count).End(1).Column))
  Me.TextBox1.Text = Evaluate("INDEX(" & rng.Address & ",MODE(MATCH(" & rng.Address & _
   "," & rng.Address & ",0)))")
End Sub

boa tarde brunoxro

agradeço sua resposta. Deu tudo certo para o que eu preciso. era exatamente isso.
obrigado!!

att. -=nan=-