Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problemas com Check...
 
Notifications
Clear all

Problemas com CheckBox e Função

 
2024 - VBA & Macros
4 Posts
1 Usuários
0 Reactions
462 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal,
Na planilha anexa estou precisando de ajuda:

Nas CheckBox:

1) Quando clicar em DINHEIRO, que ocultar Todas as células em Verde, Bloqueando-as.

2) Quando clicar em CHEQUE, desbloquear as Células Y17, Z18, Y19, Y20 e Z21, e ocultar o intervalo para TRANSFERENCIA BANCÁRIA, bloqueando-o.

3) Quando clicar em TRANSFERENCIA BANCÁRIA, desbloquear as células O18, P19 e O20, E ocultar o intervalo sobre CHEQUES, bloqueando-o.

Obs: A Pasta precisa continua protegida.

Na Planilha Locatario: Não consegui fazer funcionar o Módulo ModLimparCelulas. Após clicar no Botão INCLUIR, o cursor para no lugar certo. Quero usar a função para limpar as células desta Linha, no caso do usário deixar de Incluir o Nome. É para limpar limpar toda a linha. A função aparenemente está correta, mas não deleta as células.

Private Sub Worksheet_Change(ByVal Target As Range)
Call LimparCelulas(Target) ----> não está fucionando
End Sub

Acho os problemas têm relação com a Proteção.

Obrigado,
Pedro

 
Postado : 29/03/2014 11:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

1) Quando clicar em DINHEIRO, que ocultar Todas as células em Verde, Bloqueando-as.

Não há células em verde!

2) Quando clicar em CHEQUE, desbloquear as Células Y17, Z18, Y19, Y20 e Z21, e ocultar o intervalo para TRANSFERENCIA BANCÁRIA, bloqueando-o.

Lembre se que suas CheckBox's estão nas linhas que serão ocultas, não é adequando.

Veja como ficaria

Private Sub CheckBox1_Click()
        Dim Rnd As Range '<-Linha acrescentada
        Set Rng = Range("15:21") '<-Linha acrescentada
        
    If CheckBox1.Value = True Then
        ActiveSheet.Unprotect
        Rng.Rows.Hidden = CheckBox2.Value '<-Linha acrescentada
        CheckBox2.Value = False
        CheckBox2.Enabled = False
        CheckBox3.Value = False
        CheckBox3.Enabled = False
        
        Range("C2").Select
        ActiveSheet.Protect
    Else
        ActiveSheet.Unprotect
        CheckBox2.Enabled = True
        CheckBox3.Enabled = True
        Range("C2").Select
        ActiveSheet.Protect
    End If
End Sub

Att

 
Postado : 30/03/2014 5:40 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre,
Coloquei as células em verde no arquivo anexo.
Ao clicar em DINHEIRO, dá o erro de pasta protegida, e não percebi outra mudança.
Grato,
Pedro

 
Postado : 30/03/2014 7:07 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Você testou o meu código? nele eu só acrescentei para ocultar (não valera de nada ocultar, sendo que suas checkbox's estão nas mesmas linhas que serão ocultadas), eu não verifiquei os detalhes de sua rotina.

Eu recomento que você faça uma revisão, pois quando a guia ou arquivo recebe bloquei, fica complicado.

Att

 
Postado : 30/03/2014 7:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico