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

  • Postagens

    5
  • Desde

  • Última visita

Perfil

  • Estado
    São Paulo
  • Sexo
    masculino
  • Escolaridade
    Superior completo
  • Área Profissional
    Outros
  • Nível Profissional
    Profissional curso superior
  1. César Seizo

    Dificuldade Função AND no CommandButton

    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!
  2. César Seizo

    Dificuldade Função AND no CommandButton

    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,
  3. César Seizo

    VBA de exibir/ocultar linhas não funciona.

    Osvaldo, Desculpe pela demora, a planilha está funcionando perfeitamente! Obrigado pela ajuda! Abs,
  4. César Seizo

    VBA de exibir/ocultar linhas não funciona.

    Osvaldo, boa noite! Obrigado pela pronta resposta! Testei em minha planilha e não obtive resultado. Acha que por ser Excel 2016 pode ter algo a ver? De qualquer forma, envio aqui a planilha para que possa dar uma olhada, a aba em que a sintaxe está é a "Capa". Abs, Cálculo RCG.xlsm
  5. César Seizo

    VBA de exibir/ocultar linhas não funciona.

    Boa noite! Tenho uma linha de programação do VBA que condiciona exibir ou ocultar algumas linhas de acordo com o valor de quatro células mescladas. Utilizei a seguinte sintaxe, entretanto não tive resultado algum, embora tenha usado anteriormente em outra planilha: Private Sub Tipo_Apolice() If Range("F37").Value = "" Then Rows("38:42").EntireRow.Hidden = True End If If Range("F37").Value = "Apólice Anual" Then Rows("38:40").EntireRow.Hidden = True Rows("41").EntireRow.Hidden = False Rows("42").EntireRow.Hidden = False End If If Range("F37").Value = "Contrato Específico" Then Rows("38:42").EntireRow.Hidden = False End If End Sub Sabem me dizer onde estou errando? Para dar mais detalhes, o conteúdo da célula "F37" (Apólice Anual ou Contrato Específico) é informado por meio de uma lista dropdown (Validação de Dados). Além disso, o range inicia-se na F37 e vai até a I37. Obrigado!
×