Me ajudem por favor!

[VIVISO]

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:

Editado Abril 24, 2009 por kuroi
Adicionar tag CODE

[kuroi]

você diz q não funciona, mas o q exatamente acontece de errado??

acho q você so deveria copiar esse codigo q tava certo pra dentro da nova sub q você ta fazendo:

If Rows("569:615").Hidden = True Then
        Rows("569:615").Hidden = False
Else
        Rows("569:615").Hidden = True
End If[/code]

[Fernando Hernandes]

você diz q não funciona, mas o q exatamente acontece de errado??

acho q você so deveria copiar esse codigo q tava certo pra dentro da nova sub q você ta fazendo:

If Rows("569:615").Hidden = True Then
        Rows("569:615").Hidden = False
Else
        Rows("569:615").Hidden = True
End If

Sim extamente , a unica coisa a se fazer é extamente um Copy & Paste para uma nova Sub

[joabnm]

não sei se entendi exatamente o que você quer mas eu usei o botao de opcao... com o seguinte codigo:

Sub exibe_oculta(r1, r2)

Rows("6:10").Hidden = True

Rows(r1 & ":" & r2).Hidden = False

End Sub

Sub Botãodeopção16_Clique()

Call exibe_oculta(6, 6)

End Sub

Sub Botãodeopção19_Clique()

Call exibe_oculta(7, 7)

End Sub

Sub Botãodeopção20_Clique()

Call exibe_oculta(8, 8)

End Sub

Sub Botãodeopção21_Clique()

Call exibe_oculta(9, 9)

End Sub

Sub Botãodeopção22_Clique()

Call exibe_oculta(10, 10)

End Sub

Espero de uma luz aí pra você, se quiser, eu posso mandar o arquivo no seu e-mail para ver o codigo funcionando...

abraço