Ir para conteúdo
Fórum Script Brasil

VIVISO

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre VIVISO

VIVISO's Achievements

0

Reputação

  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...