Olá Matheus, bom dia!
Troque o atual código da Sub buscapersonalizada por este:
Private Sub buscapersonalizada(ByVal chave As String)
Dim primoc As String
Dim resultado As String
With Worksheets("Matrícula").Range("F:F")
Set busca = .Find(what:=chave, LookIn:=xlValues, LookAt:=xlPart, _
searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=True, searchformat:=False)
If Not busca Is Nothing Then
primoc = busca.Address
resultado = busca.Row
Do
Set busca = Worksheets("Matrícula").Range("F:F").FindNext(after:=busca)
If Not busca.Address = primoc Then
resultado = resultado & ";" & busca.Row
End If
Loop Until busca.Address Like primoc
matriz = Split(resultado, ";")
SpnResult.Max = UBound(matriz)
SpnResult.Enabled = True
LblQuant.Caption = "1 de " & UBound(matriz) + 1
Me.TxtMatricula.Text = Worksheets("Matrícula").Cells(matriz(0), 5).Text
Me.TxtNomePesq.Text = Worksheets("Matrícula").Cells(matriz(0), 6).Text
Me.TxtEtnia.Text = Worksheets("Matrícula").Cells(matriz(0), 9).Text
Me.TxtData.Text = Worksheets("Matrícula").Cells(matriz(0),
.Text
Me.TxtCurso.Text = Worksheets("Matrícula").Cells(matriz(0), 7).Text
Else
Me.TxtMatricula.Text = ""
Me.TxtNomePesq.Text = ""
Me.TxtEtnia.Text = ""
Me.TxtData.Text = ""
Me.TxtCurso.Text = ""
MsgBox "Nenhum resultado para o nome informado.", 16, "Pesquisa de alunos"
Me.TxtNome.Text = ""
Me.TxtNome.SetFocus
Exit Sub
End If
End With
End Sub
Abraço.....