ComboBox obrigatóri...
 
Notifications
Clear all

ComboBox obrigatório se valor de uma célula >0

4 Posts
2 Usuários
0 Reactions
1,091 Visualizações
(@jrodrig7)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde.

Tenho um formulário multipage onde, na primeira página, se encontram duas ComboBoxes (1 e 2), que determinam se o preenchimento das TextBoxes 22, 23 e 24 (que se encontram na segunda página) será obrigatório ou não.
Atribui macros de clique para as ComboBoxes para que o valor delas seja postado nas células B1 e C1 da minha Sheet 6 assim que alteradas e esses valores são utilizados em uma fórmula if/se na célula B3 da mesma aba, gerando um resultado 0 ou 1. Caso o resultado seja 01, eu precisaria que essas textboxes fossem de preenchimento obrigatório, não permitindo avanço para a próxima página.

O critério de análise é aplicado quando o botão para avançar página é clicado.

O código atual que estou usando é o seguinte:
Private Sub CommandButton2_Click()

If Sheet6.Cells(3, 2) <> 0 And TextBox22.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Then
MsgBox "Preencha os campos referentes aos contratos 'Antes do último ano'"
TextBox22.SetFocus
Me.MultiPage1.Value = 1
End If
If Sheet6.Cells(3, 2) = 0 Then
Me.MultiPage1.Value = 2
End If
End Sub

O que estou fazendo de errado?

 
Postado : 19/10/2015 1:49 pm
(@alvaro)
Posts: 0
New Member
 

Boa noite jrodrig.
Qual o erro que esta dando?

 
Postado : 19/10/2015 5:19 pm
(@jrodrig7)
Posts: 0
New Member
Topic starter
 

Bom dia, Álvaro.

Quando o valor é =0, ele ainda exibe a msgbox e avança normalmente para a próxima página.

 
Postado : 20/10/2015 5:53 am
(@jrodrig7)
Posts: 0
New Member
Topic starter
 

Resolvi...

Precisava ficar dessa maneira:

Private Sub CommandButton2_Click()

If Sheet6.Cells(3, 2) <> 0 And TextBox22.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Then
MsgBox "Preencha os campos referentes aos contratos 'Antes do último ano'"
TextBox22.SetFocus
Me.MultiPage1.Value = 1
ElseIf Sheet6.Cells(3, 2) = 0 Then
Me.MultiPage1.Value = 2
End If
End Sub

 
Postado : 22/10/2015 6:02 am