Olá,

Tenho esse código que está pesquisando o nome que digito, porém, a partir da linha 175 ele não pesquisa ele não acha os dados.

Alguém sabe me dizer se esse código está com limite?

Private Sub Alterar_Click()

Dim empFound As Range

With Range("alunos")
Set empFound = .Find(Me.Nome_.Value)

If empFound Is Nothing Then
    MsgBox "Aluno não encontrado", vbCritical, "Busca de aluno"
    
    Me.Nome_.Value = ""
    Else
        With Worksheets("Cadastro").Range(empFound.Address)
        

.Offset(0, -1) = Me.Cod_.Value
.Offset(0, 0) = Me.Nome_.Value
.Offset(0, 1) = Me.Curso_.Value
.Offset(0, 2) = Me.Empresa_.Value
.Offset(0, 3) = Me.Bolsa_.Value
.Offset(0, 4) = Me.Valor_.Value
.Offset(0, 5) = Me.Funcoes_.Value
.Offset(0, 6) = Me.Periodo_.Value
.Offset(0, 7) = Me.Prorrogacoes_1.Value
.Offset(0, 8) = Me.Prorrogacoes_2.Value
.Offset(0, 9) = Me.Prorrogacoes_3.Value
.Offset(0, 10) = Me.Declaracao_.Value
.Offset(0, 11) = Me.Status_.Value