Alteração de Registros pulando para outras subs
Enviado: 04 Mar 2016 às 09:34
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:
desde já agradeço a atenção de todos
Código: Selecionar todos
estou enviando a plan em anexo para acessar a plan duplo clique no "desenvolvido por" a senha é 123Private 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
desde já agradeço a atenção de todos