Bom dia, Tenho um ficheiro e preciso que os campos data, processo/assunto, tipo documento e funcionario sejam de preenchimento obrigatorio. Se algum destes campos ficar em branco, dar uma mensagem que faltam preencher campos. Eu tenho este codigo, mas dá um erro:
Private Sub Workbook_BeforeSave(Cancel As Boolean)
If Data = "" Or IsNull(Data) Then
MsgBox "O campo deve ser preenchido", vbCritical
Data.SetFocus
Else
If Processo / Assunto = "" Or IsNull(Processo / Assunto) Then
MsgBox "O campo deve ser preenchido", vbCritical
ProcessoAssunto.SetFocus
Else
If TipoDocumento = "" Or IsNull(TipoDocumento) Then
MsgBox "O campo deve ser preenchido", vbCritical
ProcessoAssunto.SetFocus
Else
If NomeFuncionário = "" Or IsNull(NomeFuncionário) Then
MsgBox "O campo deve ser preenchido", vbCritical
NomeFuncionário.SetFocus
Else
Pergunta
Teresa Teixeira
Bom dia,
Tenho um ficheiro e preciso que os campos data, processo/assunto, tipo documento e funcionario sejam de preenchimento obrigatorio.
Se algum destes campos ficar em branco, dar uma mensagem que faltam preencher campos.
Eu tenho este codigo, mas dá um erro:
Private Sub Workbook_BeforeSave(Cancel As Boolean)
If Data = "" Or IsNull(Data) Then
MsgBox "O campo deve ser preenchido", vbCritical
Data.SetFocus
Else
If Processo / Assunto = "" Or IsNull(Processo / Assunto) Then
MsgBox "O campo deve ser preenchido", vbCritical
ProcessoAssunto.SetFocus
Else
If TipoDocumento = "" Or IsNull(TipoDocumento) Then
MsgBox "O campo deve ser preenchido", vbCritical
ProcessoAssunto.SetFocus
Else
If NomeFuncionário = "" Or IsNull(NomeFuncionário) Then
MsgBox "O campo deve ser preenchido", vbCritical
NomeFuncionário.SetFocus
Else
End If
End If
End If
End If
End Sub
Alguém pode dar uma ajuda? Obrigada.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.