none
Validação de Dados - Onde Inserir o Comando? RRS feed

  • Pergunta

  • 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

    domingo, 3 de agosto de 2014 20:52

Todas as Respostas

  • 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



    segunda-feira, 4 de agosto de 2014 11:00