CONHEÇA o BABOO PRO e a Comunidade BABOO que substituirão o site BABOO e esse fórum

Ir para conteúdo
  • Cadastre-se
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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...