Validação de Dados - Onde Inserir o Comando?

Question

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

Answer 1

João Victor,

Da maneira que está já está bom, mas segue abaixo minha sugestão:

Private Sub txtSalvarCadastro_Click()
  
  If ValidaCamposCadastroUser = True Then
  
    prcGravarDados
  
  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

Sub prcGravarDados()

'  UltimaLinha = 2
'
'  Do Until Sheets("Usuario").Cells(UltimaLinha, 1) = ""
'    UltimaLinha = UltimaLinha + 1
'  Loop
  
  ultimalinha = Sheets("Usuario").Range("A1048576").End(xlUp).Row + 1 'Isso torna a identificação da última linha mais rápida

  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