Validação de Campos - Preenchimento obrigatório

2024 - VBA & Macros

Post Recente por PeteParada 12 anos atrás

3 Posts

2 Usuários

0 Reactions

1,949 Visualizações

RSS

PeteParada

(@peteparada)

Posts: 18

Active Member

Topic starter

Pessoal

Gostaria que alguns campos de minha planilha fossem de preenchimento obrigatório. Fiz isso já a partir da utilzação If campo = empty then MsgBox...

Porém eu gostaria que, se houvesse algum campo obrigatório sem preenchimento, o form se mantivesse como está, ou seja, todos os campos que foram preenchidos até agora se mantivessem preenchidos, permitindo que a pessoa preencha apenas o que estiver restando, para depois salvar o form.

Vocês podem me ajudar?

Meu código está em anexo

Postado : 25/05/2013 9:43 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Use a pesquisa do fórum!!
viewtopic.php?f=10&t=5669
viewtopic.php?f=10&t=4037
viewtopic.php?f=23&t=2663
viewtopic.php?f=10&t=1553
Tente adptar

Dim obj As MSForms.Control
  For Each obj In Me.Controls
   If obj = "" Then
    MsgBox "Favor Preencher " & obj.Name
     Exit Sub
    End If
  Next

'Código para criar preenchimento obrigatório (neste caso em ComboBox)

Private Sub CommandButton1_Click()

Dim Msg
Msg = "Preenchimento Obrigatório"   ' Define a mensagem

    If ComboBox1.Value = "" Then
            strVazia = "NOME"
                MsgBox (strVazia & ",  INVALIDO"), vbCritical, Msg
                ComboBox1.SetFocus
                
        ElseIf ComboBox2.Value = "" Then
            strVazia = "SOBRENOME"
                MsgBox (strVazia & ",  INVALIDO"), vbCritical, Msg
                ComboBox2.SetFocus
        
        ElseIf TextBox1.Value = "" Then
            strVazia = "Matricula"
                MsgBox (strVazia & ",  INVALIDA"), vbCritical, Msg
                TextBox1.SetFocus
                
    Else
        
        'Se todos os Campos Preenchidos
        'Continua a Ação
        'COLOQUE AQUI SUA ROTINNA PARA CONTINUAR
        
    End If
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 26/05/2013 4:36 am