Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

A área de Remoção de Malwares está aberta na Comunidade BABOO. LEIA AQUI

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

×
×
  • Criar Novo...