Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Executar macro conforme resultado caixa de seleção (formulário)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Antonio Junior



Mensagens : 2
Data de inscrição : 11/02/2015

MensagemAssunto: Executar macro conforme resultado caixa de seleção (formulário)   Qua Fev 11, 2015 2:26 pm

Muito bom dia a todos.
Sou novo no fórum e já começo com um pedido de auxílio para um projeto excel + vba.

Gostaria que determinadas macros fossem executadas conforme resultado de uma caixa de seleção de um controle de formulário.
Trata-se de uma planilha de orçamento x realizado de jan a dez. Inseri controles (caixa de seleção) para cada mês e gostaria que, quando tirasse o flegue de cada mês, este ficasse oculto e quando flegasse novamente, exibiria o mês...

Exemplo: tiro o fleg do controle de formulário referente a janeiro: executa macro que oculta colunas de janeiro; coloco fleg no formulário: executa outra macro que exibe as colunas que foram ocultas de janeiro... assim para cada mês...

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Executar macro conforme resultado caixa de seleção (formulário)   Qua Fev 11, 2015 2:48 pm

Bom dia!!

Fica complicado adivinha a estrutura que você está usando, você deveria postar seu arquivo modelo. Twisted Evil

Quanto ao controle ele é do tipo Userform, correto?
Exemplo 1:
Código:
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Columns("A").EntireColumn.Hidden = True
    Else
        Columns("A").EntireColumn.Hidden = False
    End If
End Sub
Exemplo 2:
Código:
Sub CommandButton1_Click()
    
    If CheckBox1 = True Then Range("1").EntireColumn.Hidden = True
    If CheckBox2 = True Then Range("2").EntireColumn.Hidden = False
    If CheckBox3 = True Then Range("3").EntireColumn.Hidden = False
    If CheckBox4 = True Then Range("4").EntireColumn.Hidden = False
    If CheckBox5 = True Then Range("5").EntireColumn.Hidden = False

End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Antonio Junior



Mensagens : 2
Data de inscrição : 11/02/2015

MensagemAssunto: Executar macro conforme resultado caixa de seleção (formulário)   Qua Fev 11, 2015 3:14 pm

... da coluna D até BJ estão os valores para cada mês (meta, real, variação, etc)
na coluna A tem as caixas de seleção para cada mês e nesta mesma coluna, a partir da linha 17, o vínculo de cada opção.

Quando tiro o fleg de JAN, o resultado da célula A17 será FALSO: executa macro que oculta colunas D:G;
Quando coloco o fleg de JAN, o resultado da célula A17 será VERDADEIRO: executa macro que exibe colunas D:G;
assim para cada mês...


Link do arquivo
w w w.sendspace.com/file/lugybu
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Executar macro conforme resultado caixa de seleção (formulário)   Hoje à(s) 8:54 am

Voltar ao Topo Ir em baixo
 
Executar macro conforme resultado caixa de seleção (formulário)
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Mudar cor da caixa de seleção
» Aumentar o tamanho ou deixar um tamanho padrão de uma caixa de seleção - html
» Executar Macro excel pelo Access
» [Resolvido]Caixa de Seleção (sim/não)
» Executar macro sem pedir confirmações

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: