Boa tarde darliane,

Cells(LastRow, 1).Value = Me.Cod_ faz com que salve na Sheet que está ativa.
indique a Sheet que quer que seja salva inserindo na frente Worksheets("Cadastro").Cells(LastRow, 1).Value = Me.Cod_

Na alteração também... Indique a Sheet.

Qualquer coisa da o grito.
Abraço

Olá Bernardo,

Deu certo uffa... valeu demais obrigada, porém, no botão pesquisar para não carrega os nomes onde que eu tenho q alterar você sabe no alterar eu modifiquei como indicado mas não deu pra testar já que não pesquisa..

Fico no aguardo e desde já agredeço demais

Private Sub Pesquisar_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"
    
     Worksheets("Cadastro").Me.Nome_.Value = ""
    Else
        With Range(empFound.Address)
        
Me.Cod_ = .Offset(0, -1)
Me.Curso_ = .Offset(0, 1)
Me.Empresa_ = .Offset(0, 2)
Me.Bolsa_ = .Offset(0, 3)
Me.Valor_ = .Offset(0, 4)
Me.Funcoes_ = .Offset(0, 5)
Me.Periodo_ = .Offset(0, 6)
Me.Prorrogacoes_1 = .Offset(0, 7)
Me.Prorrogacoes_2 = .Offset(0, 8)
Me.Prorrogacoes_3 = .Offset(0, 9)
Me.Declaracao_ = .Offset(0, 10)
        
End With
End If
End With
Set empFound = Nothing
      
End Sub

Estou no celular... Então procura essa linha:

With Range(empFound.Address)

E cooca o worksheets("") antes do Range.

Qualquer coisa da o grito.
Abraço

Agora deu certo muito obrigada