Notifications

Clear all

Combobox VBA

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

7 Posts

3 Usuários

0 Reactions

1,607 Visualizações

RSS

vitors

(@vitors)

Posts: 31

Eminent 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!!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/01/2014 11:14 am

vitors

(@vitors)

Posts: 31

Eminent 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: 0

Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 15/01/2014 12:52 pm

vitors

(@vitors)

Posts: 31

Eminent 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: 0

Illustrious Member

Case Range("A3").Value
        Sheets("Avaliação2").Select

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 15/01/2014 6:22 pm