Ir para conteúdo
Fórum Script Brasil

VIVISO

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que VIVISO postou

  1. VIVISO

    Me ajudem por favor!

    Olá pessoal, muito obrigada pelo interesse em me ajudar, espero conseguir explicar minha dúvida. Estou trabalhando em um formulário em excel, que tem 3 opções de questionário: A, B e C. Eu coloquei Check Box nessas opções. A princípio, todas as questões estão visíveis, as variações são as seguintes: - clicar na opção A - questões relativas ao B e ao C devem ser ocultadas; - clicar na opção B - questões relativas ao A e C devem ser ocultadas; - clicar na opção C - questões relativas ao A e B devem ser ocultadas; - clicar na opção A e B - questões relativas ao C devem ser ocultadas; - clicar na opção A e C - questões relativas ao B devem ser ocultadas; - clicar na opção B e C - questões relativas ao A devem ser ocultadas. Pesquisando aqui e ali, perguntando e estudando consegui montar uma programação que faz perfeitamente as 3 primeiras variações, mas nas 3 últimas não estou conseguindo. Vou colocar abaixo o código que funciona direitinho e o que estou com problemas. Por favor, vocês que têm experiência na área, me ajudem, preciso concluir esse questionário e não tenho ninguém pra me ajudar. Trabalho sozinha num escritório e minha função não tem nada a ver com programação. * Código que funciona (comecei o projeto usando caixas de verificação, essa é a rotina para quando se escolhe apenas uma das opções) Sub Caixadeverificação2031_Clique() If Rows("569:615").Hidden = True Then Rows("569:615").Hidden = False Else Rows("569:615").Hidden = True End If End Sub * Código que não está dando certo (passei a testar com Check Box, essa é a rotina para quando se escolhe duas opções) Private Sub CheckBox2_Click() If CheckBox1.Value = True Then Rows("569:615").Hidden = False If Rows("563:568").Hidden = True Then Rows("563:568").Hidden = False If Rows("590:615").Hidden = True Then Rows("590:615").Hidden = False End If Else Rows("569:615").Hidden = True Rows("563:568").Hidden = True Rows("590:615").Hidden = True End End If End If End Sub Aguardo retorno de alguém, mesmo que seja negativo! Ou alguma indicação de quem pode me ajudar! Muito obrigada pela atenção. :huh:
×
×
  • Criar Novo...