Comentários sobre: Navegar pelas planilhas de maneira elegante

Por: Reinaldo Coral

Reinaldo Coral — Sun, 27 Jun 2010 13:07:07 +0000

Robson,

Você pode definir manualmente as planilhas para cada combobox que você colocar no menu. Uma sugestão é você alterar o código que está no Evento Private Sub Wooksheet_Activate(), veja:

[code]
Private Sub Worksheet_Activate()
On Error GoTo Erro
Dim sh As Worksheet

'Limpa a combo
cbo_ExibePlanilha1.Clear
cbo_ExibePlanilha2.Clear

'Lista todas as planilhas para a 1a. combobox

cbo_ExibePlanilha1.AddItem "Nome da Planilha 1"
cbo_ExibePlanilha1.AddItem "Nome da Planilha 2"
cbo_ExibePlanilha1.AddItem "Nome da Planilha 3"

'Lista todas as planilhas para a 2a. combobox

cbo_ExibePlanilha2.AddItem "Nome da Planilha 4"
cbo_ExibePlanilha2.AddItem "Nome da Planilha 5"
cbo_ExibePlanilha2.AddItem "Nome da Planilha 6"

Exit Sub
Erro:
MsgBox Err.Description
Exit Sub
End Sub

Boa sorte, abrç

Por: Robson Azevedo

Robson Azevedo — Sun, 27 Jun 2010 03:15:24 +0000

Olá Pessoal?

Como faço uma Planilha (Menu) com dois COMBOBOX,
onde o primeiro Combobox navega pela Plan1 – Plan2 e Plan3.
Enquanto o segundo Combobox navega pela Plan4 – Plan5 e Plan6.

Alguém tem algum exemplo?

Grato,

Por: Robson

Robson — Fri, 25 Jun 2010 23:25:27 +0000

Alguem tem algum exemplo, de como colocar 2 combobox
em uma planilha? SENDO QUE O PRIMEIRO COMBOBOX
NAVEGA NA PLANILHA-1, 2 e 3. E SEGUNDO COMBOBOX NAVEGA PELA PLANILHA 4, 5 e 6.

Grato,

Por: Robson

Robson — Fri, 25 Jun 2010 23:05:10 +0000

Testei o exemplo e ficou beleza…

Agora, me der uma ideia se no caso eu colocasse
nesse mesmo projeto mais um combobox
para nome da escola.

No primeiro Combobox (Matematica etc…)
No segundo Combobox (Escola João etc…)

Como faço?

Por: Reinaldo Coral

Reinaldo Coral — Tue, 22 Sep 2009 17:43:29 +0000

Olá, Simone!

Para que a combobox seja carregada automaticamente quando o arquivo for aberto, basta colocar o mesmo código que está na ativação da planilha no método Workbook_Open da Pasta de Trabalho. Somente, tenha atenção para identificar o nome da combo e em qual planilha ela está. O código abaixo já está adaptado corretamente.

Insira-o no módulo de classe EstaPastaDeTrabalho, ok?!!

Private Sub Workbook_Open() On Error GoTo Erro Dim sh As Worksheet


    'Limpa a combo

    Worksheets("PlanInicio").cbo_ExibePlanilha.Clear
    'Lista todas as planilhas

    For Each sh In ThisWorkbook.Worksheets

        If sh.Name <> ActiveSheet.Name Then

            Worksheets("PlanInicio").cbo_ExibePlanilha.AddItem sh.Name

        End If

    Next sh

Exit Sub Erro: MsgBox Err.Description Exit Sub End Sub

Abraço!

Por: Simone Amorin

Simone Amorin — Tue, 22 Sep 2009 11:26:11 +0000

Bom dia!

Seu tutorial esta excelente e facil de entender.
Porém quando executo a comobobox não é carregada, tenho que clicar em outra planilha para carrega-la, existe a possíbilidade de carrega-la qndo abro o Excel.
Obrigada

Por: exceldoseujeito

exceldoseujeito — Fri, 10 Jul 2009 16:44:25 +0000

Não posso dizer com certeza o que está ocorrendo, pode ser a ausencia de algum controle ou o bloqueio deste, enfim, várias possibilidade.
Faça assim, comente a análise de erros no procedimento Worksheet_Activate, colando uma aspas simples (‘) antes de On Error GoTo Erro.
Rode a planilha. A linha que apresentar erro ficará destacada em amarelo.
Poste aqui que vou analisar.
A princípio na planilha de exemplo que eu testei está sem problemas aqui.

Abraço

Por: tertiussidney

tertiussidney — Fri, 10 Jul 2009 13:56:36 +0000

Só uma dúvida,

o que está ocorrendo pois aparece sempre a mensagem “o objeto é obrigatório” quando retorno a pagina inicial?

Por: exceldoseujeito

exceldoseujeito — Tue, 30 Jun 2009 13:51:53 +0000

Gabriel,

Você pode criar uma Rotina para ocultar as abas das planilhas ao abrir o arquivo (Workbook_Open) ou incluí-la na rotina, já existente, de ativação da planilha (Worksheet_Ativate). Assim:

ActiveWindow.DisplayWorkbookTabs = False

Isso faz com que as abas fiquem ocultas.

Espero ter ajudado.

Por: Gabriel

Gabriel — Tue, 30 Jun 2009 13:26:01 +0000

Muito obrigado… mas :P
nossa, to enchendo sua paciencia….
mas vamos lá,
a minha idéia inicial seria ocultar as abas somente para vizualização… de forma que só pudesse se mover pela planilha atravéz desse artifício (do jeito elegante)ou por botões, diminuindo as chances das pessoas ficarem brincando com a ordem das planilhas, ou fazendo besteiras… obrigado pela atenção novamente.