SandroLima,

Boa tarde!

Não vi sua rotina do botão pesquisar e também não entendi porque quando você carrega o formulário, ele já vem com o registro 3 preenchido...

A melhor forma de fazer busca, realmente, não é pelo nome. Dessa forma, fiz uma rotina buscando pelo número do cadastro já que podem existir cadastros que não possuem CPF.

Veja se é assim.

Boa tarde, Wagner

Obrigado pela intenção de ajudar.

Preciso que o range de busca fique restrito à "TB_Cadastro" uma vez que a posição dela pode mudar na planilha.

Então em vez de uma busca do tipo:

Dim i As Long
    Dim UltimaLinha As Long
    
    Application.ScreenUpdating = False
    
    UltimaLinha = Sheets("CADASTRO").Cells(Cells.Rows.Count, 2).End(xlUp).Row
    If UltimaLinha < 5 Then UltimaLinha = 5
    
    For i = 5 To UltimaLinha

Talvez fosse melhor selecionar a tabela:

Dim TabeladeBusca As ListObject
'    Dim Nome As String
'
'    Set TabeladeBusca = wsh_Cadastro.ListObjects("TB_Cadastro")
'    Nome = txt_Nome.Value

Não vi sua rotina do botão pesquisar

Não tinha enviado a rotina de pesquisar pq a planilha final é bem mais ampla. Basicamente ele abre um formulário de pesquisa onde informo o CPF ou Nome e ele retorna para o formulário de cadastro com todos os textbox preenchidos.

não entendi porque quando você carrega o formulário, ele já vem com o registro 3 preenchido

Mandei ele preenchido com um dos exemplos da tabela para tentar facilitar o teste da alteração... uma vez que feito a pesquisa ele retornaria o formulário como está preenchido no exemplo. Só queria testar a alteração (sem criar novo cadastro).

Com esse código implementado por você verifiquei que não é possível alterar o próprio campo do nome (ele passa a informar cadastro não localizado)... o que pode ser necessário caso haja um sobrenome trocado ou erro de digitação no cadastro.

OBS

Dentro do código que enviei acho que o melhor seria complementar para achar o número da linha onde o Nome foi encontrado
Com isso eu poderia chegar ao resultado pretendido da seguinte maneira:

Me.txt_Cadastro.Value = Tabela.range(Linha, 1).Value
'        Me.txt_Data = Tabela.range(Linha, 2).Value
'        Me.txt_ID = Tabela.range(Linha, 3).Value
'        Me.txt_Nome = Tabela.range(Linha, 4).Value
'        Me.cbb_Sexo = Tabela.range(Linha, 5).Value
'        Me.txt_DataNasc = Tabela.range(Linha, 6).Value
'        Me.cbb_EstadoCivil = Tabela.range(Linha, 8).Value
'        Me.txt_CPF = Tabela.range(Linha, 9).Value

Preciso que o código identifique o número da linha onde o nome foi encontrado.

Boa tarde, pessoal

Cheguei nessa linha de raciocínio para o botão alterar de uma tabela de cadastro:

Private Sub cmb_Alterar_Click()
    
    Application.ScreenUpdating = False
       
    Dim Tabela As ListObject
    Dim NCad As Long
    
    Set Tabela = wshCadastro.ListObjects("TB_Pacientes")
    NCad = frm_Cadastro.txt_Cadastro.Value
    
    Tabela.ListRows(1).Range(1, 1).Select
    
    Do While ActiveCell.Value <> "" 'Percorre todas as células da coluna 1 da tabela "TB_Cadastro"
        If ActiveCell.Value = NCad Then
            Tabela.ListRows(ActiveCell).Range(0, 1) = Me.txt_Data.Value
            Tabela.ListRows(ActiveCell).Range(0, 2) = Me.cbb_Profissao.Value
                       MsgBox "Cadastro alterado com sucesso!"
            Exit Do
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
           
    Set Tabela = Nothing
    
    wshCadastro.Select
                  
    Application.ScreenUpdating = True
    
End Sub

Essa parte é para ilustrar o que preciso que é localizar a linha onde se encontra o valor procurado.

Tabela.ListRows(ActiveCell).Range(0, 1) = Me.txt_Data.Value

Seria a linha referente ao ActiveCell. Como faço para achar o número da linha. O valor procurado o código localiza com o loop mas como definir a linha para substituir a expressão "ActiveCell" da linha de comando acima?

Podem me ajudar?