Boa Tarde!
Sou novo no VBA Excel e não entendi onde colocar o comando para validar o Campo.
Segue abaixo meus comandos, obrigado pela ajuda!
Private Sub txtSalvarCadastro_Click()
UltimaLinha = 2
Do Until Sheets("Usuario").Cells(UltimaLinha, 1) = ""
UltimaLinha = UltimaLinha + 1
Loop
Sheets("Usuario").Cells(UltimaLinha, 1) = txtCadastroUsuario.Text
Sheets("Usuario").Cells(UltimaLinha, 2) = txtCadastroSenha.Text
MsgBox "Usuário e Senha Cadastrados com Sucesso!", vbOKOnly, "AME"
Resposta = MsgBox("Deseja Cadastrar outro Usuário?", vbYesNo, "AME")
If Resposta = vbYes Then
txtCadastroUsuario = ""
txtCadastroSenha = ""
txtCadastroUsuario.SetFocus
Else
Unload frmCadastroUser
End If
End Sub
------------------
Private Function ValidaCamposCadastroUser() As Boolean
If frmCadastroUser.txtCadastroUsuario.Value = "" Then
frmCadastroUser.txtCadastroUsuario.SetFocus
MsgBox " O Usuário é um campo obrigatório. ", vbOKOnly, " Campo Obrigatório "
ValidaCamposCadastroUser = False
Exit Function
ElseIf frmCadastroUser.txtCadastroSenha.Value = "" Then
frmCadastroUser.txtCadastroSenha.SetFocus
MsgBox " A Senha é um campo obrigatório.", vbOKOnly, " Campo Obrigatório "
ValidaCamposCadastroUser = False
Exit Function
Else
ValidaCamposCadastroUser = True
End If
End Function