Notifications
Clear all

Variável Global

3 Posts
2 Usuários
0 Reactions
2,300 Visualizações
(@glauber1988)
Posts: 5
Active Member
Topic starter
 

Não estou conseguindo colocar a variável global, para que quando agente selecionar o mês, ele mude os valores referente a planilha do mês selecionado. Segue a planilha em anexo. Espero que me ajudem.

 
Postado : 24/01/2012 9:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

glauber, vamos ver se entendi, fiz uma adaptação associada só ao mes de Janeiro, pois você tem muitos formulários, mas é só fazer as adaptações para os outros :

No Módulo1 adicione :

'Esta váriavel valerá para todas as rotinas da Pasta
Public QualPlan As Worksheet

No Formulário meses, no Botão Janeiro, coloque :

Private Sub janeiro_Click()
    
    Dim sMes As String 'Declaramos a Variável
    
    sMes = janeiro.Caption 'Armazenamos o mes que está no Botão na Variável
    
    'Definimos e atribuimos a Variavel QualPlan a qual aba nos referimos
    Set QualPlan = ActiveWorkbook.Worksheets(sMes)
    
        principalcapa.Show

End Sub

A instrução acima abrirá o Formulário principalcapa e ao clicar no Botão (CommandButton15) - GESTÃO EXECUTIVA - será aberto o formulário gestão1 :
Neste formulário (gestão1), troque a rotina do envento UserForm_Initialize pela a abaixo :

Private Sub UserForm_Initialize()

    QualPlan.Activate 'Ativa a planilha expecifica
    
        lbgestao.ColumnCount = 26
       ' Sheets("abril").Select - apague esta linha, senão ira selecionar sempre a abril
        lbgestao.RowSource = "A10:A35" '

End Sub

Faça os testes e qq duvida retorne.

[]s

 
Postado : 24/01/2012 1:03 pm
(@glauber1988)
Posts: 5
Active Member
Topic starter
 

Como sempre, muito prático e eficiente, muito Obrigado. RESOLVIDO

 
Postado : 25/01/2012 7:24 am