VIVISO
Membros-
Total de itens
1 -
Registro em
-
Última visita
Sobre VIVISO
VIVISO's Achievements
0
Reputação
-
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: