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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 24/01/2012 1:03 pm