Este fórum está sendo desativado

[eloirfabio]

Boa tarde.
Estou fazendo uma planilha, para auxiliar no setor da SESMT da minha empresa.
Possuo experiência com o excel em si, porém, na parte do VBA sou apenas um entusiasta.
Então é o seguinte, tenho uma tela de cadastro de funcionários, já está praticamente pronta (com a ajuda do pessoal aqui do Fórum), porém necessita de alguns ajustes, dos quais não estou conseguindo arrumar:
- A exclusão de funcionários não está funcionando. Antes estava dando erro ao excluir, aí eu mexi em algumas linhas e o erro sumiu, porém, agora ela está excluindo as linhas da página inicial, não no Efetivo;
- Está havendo duplicidade nos cadastros (conforme consta na planilha Efetivo);
- Ah! E se possível, a formatação de dd/mm/aaaa, nas caixas de texto que possuem datas (só se não der muito trabalho).

No mais, tudo está funcionando perfeitamente.

Agradeço imensamente se puderem me ajudar.

[fcarlosc2018]

Veja se é dessa forma...!?
Fiz algumas alterações adicionais.

[eloirfabio]

Veja se é dessa forma...!?
Fiz algumas alterações adicionais.

Boa tarde. Ficou perfeito.
Estou pesquisando agora como colocar a advertência ao tentar incluir um contrato existente.
Muito obrigado.

[fcarlosc2018]

Private Sub cmdPequisar_Click()
'Verificar se foi digitado um nome na primeira caixa de texto
If txtCont.Text = "" Then
MsgBox "Digite o contrato do funcionário"
txtCont.SetFocus
GoTo linha1
End If

With Worksheets("Efetivo").Range("A:A")
Set c = .Find(txtCont.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then

If MsgBox("Funcionário já cadastrado, deseja editar os dados ?", vbYesNo, "Confirmação") = vbYes Then

Me.cmdAlterar.Enabled = True
cmdGravar.Enabled = False
cmdExcluir.Enabled = True

'c.Activate
txtCont.Value = c.Value
txtNome.Value = c.Offset(0, 1).Value
cboCargo.Value = c.Offset(0, 2).Value
cboSetor.Value = c.Offset(0, 3).Value
cboPosto.Value = c.Offset(0, 8).Value
txtAdm.Value = c.Offset(0, 4).Value
txtRG.Value = c.Offset(0, 5).Value
txtNasc.Value = c.Offset(0, 6).Value

'Carregando o botão de opção
If c.Offset(0, 7) = "Masculino" Then
OptionButton1.Value = True
Else
OptionButton2.Value = True
End If

Else

txtCont.Text = Empty
txtCont.SetFocus

Me.cmdAlterar.Enabled = False
cmdGravar.Enabled = False
cmdExcluir.Enabled = False

End If
End If
End With
linha1:
End Sub