Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

César Seizo

Dificuldade Função AND no CommandButton

Mensagem Recomendada

Galera, boa noite!

Criei uma rotina VBA para um CommandButton, em que ele cumpre alguns critérios.

Funciona perfeitamente até o momento a função AND, em que caso dois OptionButtons estejam selecionados, deve-se esconder uma série de linhas e mostrar outras.

Não acusa erro algum, entretanto simplesmente não funciona, poderiam me dar um norte?

Estou inserindo o código abaixo:

Private Sub CommandButton1_Click()
If IsEmpty(Range("I22")) = True Or IsEmpty(Range("O22")) = True Then
MsgBox "Preencha os campos em amarelo!", vbCritical, "Cotador D&O"
ElseIf OptionButton2.Value = True Or OptionButton7.Value = True Or OptionButton9.Value = True Or OptionButton11.Value = True Then
MsgBox "Há requisitos que não foram cumpridos para cotação na ponta, favor enviar ao time de subscrição!", vbCritical, "Cotador D&O"
ElseIf OptionButton4.Value = True Or OptionButton5.Value = True Then
Rows("27:29").EntireRow.Hidden = True
Rows("32:34").EntireRow.Hidden = True
Rows("30:31").EntireRow.Hidden = False
ElseIf OptionButton3.Value = False And OptionButton6.Value = False Then
Rows("27:29").EntireRow.Hidden = True
Rows("30:32").EntireRow.Hidden = True
Rows("33:34").EntireRow.Hidden = False
Else
Rows("27:29").EntireRow.Hidden = False
Rows("30:34").EntireRow.Hidden = True
End If
End Sub

Abs,

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pessoal,

Consegui resolver aqui, foi até uma coisa bem besta.

Troquei a ordem das funções, deixei a rotina com AND antes da rotina com OR e funcionou direitinho.

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×