TextBox obrigatório em um userform

Question

OLÁ PESSOAL!
Boa Noite!!!

To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."

Espero anciosa uma dica de vcs. Como sempre! rsrs

Abraços, fiquem com Deus!

Answer 1

OLÁ PESSOAL!
Boa Noite!!!

To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."

Espero anciosa uma dica de vcs. Como sempre! rsrs

Abraços, fiquem com Deus!

if textbox.text=""then

msgbox("precisa ser prienchido")

end if

---

Just Be Humble Malange!

Answer 2

Olá...Faça assim

Private Sub CommandButton1_Click()
    If TextBox1.Text = "" Then
        MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
        TextBox1.SetFocus
        Exit Sub
    End If
    If TextBox2.Text = "" Then
        MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
        TextBox2.SetFocus
        Exit Sub
    End If
    'restante do seu código
End Sub

O setfocus serve para dar foco ao controle...
Até....