Ir para conteúdo

Pesquisar na Comunidade

Mostrando resultados para as tags ''CommandButton''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • WINDOWS
    • Windows 10: INSTALAÇÃO, ATIVAÇÃO, REDE E DRIVERS
    • Windows 10: GERAL
    • Windows 10: SEGURANÇA
    • Windows 10: DESEMPENHO
    • Windows 10: TUTORIAIS, GUIAS E DICAS
    • Windows 8.1 e anteriores: GERAL
    • Windows 8.1 e anteriores: TUTORIAIS
    • Windows Server
    • Microsoft Office
  • Remoção de vírus e malware pelo Mr.Million
    • Remoção de vírus e malware
    • Tópicos Resolvidos
    • Tópicos Arquivados
  • Vídeos e Cursos do BABOO
    • Espaço do Baboo
    • Vídeos do BABOO
    • Cursos Online
    • Windows Lento e Inseguro NUNCA MAIS!
  • Arquivo
    • Tópicos Antigos
  • BABOO
    • Notícias do site BABOO
    • Comentários, infos e novidades

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


URL do site ou blog


LinkedIn


Facebook


Twitter


Google+


Skype


Idade


Nível de conhecimento de Windows


Nível de conhecimento de Segurança Digital


Sistema operacional que vc utiliza no dia-a-dia

Foram encontradas 1 postagem

  1. 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,
×