Guru do Excel e Power BI

Private Sub TextBox1_AfterUpdate()

'código sai da macro caso seja atualizado o campo vazio
If Me.TextBox1 = "" Then
Exit Sub
End If
   
Dim Linha As Integer
Dim codigo As String

codigo = TextBox1.text

On Error GoTo nao_encontrado

'Localiza um registro
Linha = Sheets("Plan1").Range("A:A").Find(codigo).Row
                    
  TextBox2 = Sheets("Plan1").Cells(Linha, 2)
  TextBox3 = Sheets("Plan1").Cells(Linha, 3)
  TextBox4 = Sheets("Plan1").Cells(Linha, 4)
  TextBox5 = Sheets("Plan1").Cells(Linha, 5)
   
Exit Sub
 
nao_encontrado:

    'Limpar Controles
    TextBox1.text = ""
    TextBox2.text = ""
    TextBox3.text = ""
    TextBox4.text = ""
    TextBox5.text = ""
          
End Sub

Private Sub btnAtualizar_Click()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Plan1") 

Dim ultimalinha As Object
Dim codigo As Integer
Set ultimalinha = Plan1.Range("A6000").End(xlUp)

Linha = 2
codigo = TextBox1

ws.Select

Linha = ws.Range("A:A").Find(codigo).Row

With ws
           
     .Cells(Linha, 1) = TextBox1.text
     .Cells(Linha, 2) = TextBox2.text	
     .Cells(Linha, 3) = TextBox3.text
     .Cells(Linha, 4) = TextBox4.text
     .Cells(Linha, 5) = TextBox5.text
          
End With
     
    MsgBox ("Dados Atualizados Com Sucesso !"), vbInformation, "Atenção!"

    'Limpar Controles
    TextBox1.text = ""
    TextBox2.text = ""
    TextBox3.text = ""
    TextBox4.text = ""
    TextBox5.text = ""
    
End Sub

'Altera

If optAlterar.Value Then -> aqui pergunta se o botão de opções estiver "marcado"
Dim Result As VbMsgBoxResult
Result = MsgBox("Deseja salvar a alteração no registro nº " & txtCodigo.Text & " ?", vbYesNo, "Confirmação") -> aqui é para confirmar se sim ou não...!

If Result = vbYes Then -> aqui é a resposta...se for sim (if) então (then)
End If -> fim do código (End If)

deixe esse "End If" como comentário para ver o que acontece

'End If

Private Sub btnSalvar_Click()
Dim proximoId As Long
Dim b As Range

txtDirecao_Chefia = TextConverte(txtDirecao_Chefia.Text)
txtSecretario_Supervisor = TextConverte(txtSecretario_Supervisor.Text)
txtEndereco = TextConverte(txtEndereco.Text)
txtCidade = TextConverte(txtCidade.Text)

'Altera

If optAlterar.Value Then
    Dim Result As VbMsgBoxResult
    Result = MsgBox("Deseja salvar a alteração no registro nº " & txtCodigo.Text & " ?", vbYesNo, "Confirmação")
    Result = vbYes
    
    Call SalvaRegistro(CLng(txtCodigo.Text), indiceRegistro)
End If
'Novo
If optNovo.Value Then

'Para verificar também na hora de SALVAR a Alteração se o nome já está cadastrado (Duplicidade)
Plan2.Select
Plan2.Range("B2").Select
With Worksheets("Secretaria_Educacao").Range("B:B")
'Set c = .Find(txtNome.Value, LookIn:=xlValues, LookAt:=xlWhole)
'Set c = Plan2.range("C:C").Find(Me.txtNome, LookIn:=xlValues, LookAt:=xlWhole)
Set b = .Find(txtNome.Value, LookIn:=xlValues, LookAt:=xlWhole)
End With
    If Not b Is Nothing Then
        MsgBox "Alteração não será completada pois já existe um cadastro com esse nome", vbInformation, "Agenda"
        Exit Sub
    Else
    '    Call SalvaRegistro(CLng(txtCodigo.Text), indiceRegistro)
       'lblMensagem.Caption = "Registro salvo com sucesso"
    '    MsgBox "Registro alterado com sucesso", vbInformation, "Confirmação"
        If txtSalaNum = Empty Or txtNome = Empty Or txtTel = Empty Or txtTel1 = Empty Or txtTel2 = Empty _
                              Or txtTel3 = Empty Or txtCel = Empty Or txtCel1 = Empty _
                              Or txtWhatsApp = Empty Or txtEmail = Empty Or txtEmail1 = Empty _
                              Or txtDirecao_Chefia = Empty Or txtSecretario_Supervisor = Empty _
                              Or txtEndereco = Empty Or txtCidade = Empty Or txtUF = Empty Or txtCEP = Empty Then
            
            Result = MsgBox("Salvar o registro mesmo sem o preenchimento de todos os campos?", vbYesNo, "Confirmação")
    
            If Result = vbNo Then
                Call DesabilitaControles
                Call CarregaDadosInicial
                Call HabilitaBotoesAlteracao
                Exit Sub
            ElseIf Result = vbYes Or txtSalaNum <> txtNome <> Empty And txtTel <> Empty And txtTel1 <> Empty _
                            And txtTel2 <> Empty And txtTel3 <> Empty And txtCel <> Empty And txtCel1 <> Empty _
                            And txtWhatsApp <> Empty And txtEmail <> Empty And txtEmail1 <> Empty And txtDirecao_Chefia <> Empty _
                            And txtSecretario_Supervisor <> Empty And txtEndereco <> Empty And txtCidade <> Empty _
                            And txtUF <> Empty And txtCEP <> Empty Then
            End If
        End If
    End If

    proximoId = PegaProximoId
    'pega a próxima linha
    Dim proximoIndice As Long
    proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
    Call SalvaRegistro(proximoId, proximoIndice)
    txtCodigo = proximoId
    'lblMensagem.Caption = "Registro salvo com sucesso"
    MsgBox "Registro incluido com sucesso", vbInformation, "Confirmação"
End If


'Excluir
If optExcluir.Value Then
    'Dim result As VbMsgBoxResult
    Result = MsgBox("Deseja excluir o registro nº " & txtCodigo.Text & " ?", vbYesNo, "Confirmação")

    If Result = vbYes Then
        wsCadastro.Range(wsCadastro.Cells(indiceRegistro, colCodigo), wsCadastro.Cells(indiceRegistro, colCodigo)).EntireRow.Delete

        'lblMensagem.Caption = "Registro excluído com sucesso"
        MsgBox "Registro excluído com sucesso", vbInformation, "Confirmação"

        Call CarregaDadosInicial
    End If
End If

Call HabilitaBotoesAlteracao
Call DesabilitaControles
    'Exit Sub
End Sub