Este fórum está sendo desativado

[luizpaps]

Bom dia pessoal, eu trabalho na Prefeitura de Papagaios/MG e estou desenvolvendo um sisteminha para quando o pessoal for fazer solicitação de diárias, mas estou tendo problemas com o código para alterar o cadastro, quando clico em alterar fiz a depuração dai quando chega nessa linha abaixo ele pula para outra sub que não tem nada a ver:

Código: Selecionar todos

Private Sub btnAlterar_Click()
Dim r, c

If tbNome.Text = "" Then
    MsgBox "Selecione um Cadastro!", vbExclamation + vbOKOnly, "Atenção!!"
    Exit Sub
End If
Worksheets("bdDiarias").Select
r = 2: c = 1

Do While Cells(r, c) <> ""
    If Cells(r, c) = tbCpf.Text Then
        Cells(r, c) = tbCpf.Text 'NESSA LINHA PULA PRA OUTRA SUB
        Cells(r, c + 1) = tbNome.Text
        Cells(r, c + 2) = tbCargo.Text
        Cells(r, c + 3) = cbSecretaria.Text
        Cells(r, c + 4) = cbBanco
        Cells(r, c + 5) = tbAgencia
        Cells(r, c + 6) = tbConta
    End If
    r = r + 1
    'DoEvents
Loop

MsgBox "Cadastro alterado com sucesso", vbInformation + vbOKOnly, "Sucesso!"
LimparTextbox
Me.cbPesquisa.RowSource = "[SisDiariasPMP.xlsm]bdDiarias!dbDiarias"

End Sub

estou enviando a plan em anexo para acessar a plan duplo clique no "desenvolvido por" a senha é 123
desde já agradeço a atenção de todos