Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Combobox VBA
 
Notifications
Clear all

Combobox VBA

 
2024 - VBA & Macros
7 Posts
3 Usuários
0 Reactions
1,602 Visualizações
RSS
 vitors
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Boa tarde!

Criei uma combobox com lista de alunos. Criei um código VBA para que quando selecionar um determinado aluno, abra a planilha correspondente, mas o código dá erro.
Sub Listapendente1_Alteração()

Dim Navegar
Navegar = Range("A1")

Select Case 2
Worksheets("Folha2").Activate

Select Case 3
Worksheets("Folha3").Activate

End Select

Será que alguém pode ajudar?

Livro1.xlsm
 
Postado : 15/01/2014 8:35 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde vitors,

Só lembrando que os anexos devem ser compactados conforme regras do fórum.

Segue um exemplo que fiz, teste e diga se é exatamente o que pretende!!

 
Postado : 15/01/2014 11:14 am
 vitors
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Olá Marciel,

É isso mesmo que eu quero. A única diferença é que as planilhas não estão com o nome dos alunos, mas sim "Avaliação1", "Avaliação2"...
Ou selecionar o aluno Pedro, pretendo que ele vá para a planilha "Avaliação2", o aluno João para a planilha "Avaliação2" etc...

Será que dá para ajudar neste campo?

 
Postado : 15/01/2014 12:05 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

vitors,

Boa Tarde!

Apenas complementando o código do colega Marciel, segue com as modificações.

Detalhe: como você só cita os dois alunos João e Pedro cujas abas a ser direcionada deve ser Avaliação2, fiz dessa forma. Entretanto, você pode adaptar facilmente o código de maneira a que possa acrescentar outros alunos e outras abas.

Exemplo15_01_14.zip
 
Postado : 15/01/2014 12:52 pm
 vitors
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Boa tarde Wagner,

Pretendia realizar uma alteração ao código.
Em vez de:
case "Pedro"
Sheets("Avaliação2").Select

fosse buscar o nome Pedro à célula A3

 
Postado : 15/01/2014 1:14 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 
Case Range("A3").Value
        Sheets("Avaliação2").Select
 
Postado : 15/01/2014 6:22 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 16/01/2014 11:13 am
Forum Jump:
  Tópico Anterior
Próximo Tópico