Notifications
Clear all

Combobox

6 Posts
3 Usuários
0 Reactions
1,320 Visualizações
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Bom dia!
Será que podem ajudar?
Tenho 5 planilhas “Avaliação1”, “Avaliação2”, “Avaliação3”, “Avaliação4” e “Avaliação5”. Em cada uma dessas planilhas tem um botão chamado “Avaliar outro aluno”. Quando clico nesse botão, abre uma userform que contem uma combobox com a lista de alunos que se encontra na planilha “Listadealunos” e um botão Ok.
O que pretendia era um código para navegar entre as planilhas, ou seja, ao selecionar um aluno da combobox, fosse para a sua planilha correspondente e que fechasse a userform.

 
Postado : 24/03/2014 3:26 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Não entendi como definir qual planilha, mas segue 2 exemplos de código que levam para a planilha selecionada. Basta adaptar para a seleção da planilha via userform:

Sub Escolher_Aluno_GT()
'Este exemplo oculta todas as planilhas e exibe apenas a planilha desejada
Dim ws_Aluno As Worksheet
ws_Aluno = Sheets("minhaplan") 'coloque aqui o nome da planilha desejada
ws_Aluno.Visible = -1
For Each Sheet In ThisWorkbook.Worksheets
    If Sheet = ws_Aluno Then
        Sheet.Visible = -1
    Else
        Sheet.Visible = 2
    End If
Next Sheet
End Sub
Sub Escolher_Aluno_GT()
'Este exemplo apenas seleciona a planilha desejada
Dim ws_Aluno As Worksheet
ws_Aluno = Sheets("minhaplan") 'coloque aqui o nome da planilha desejada
ws_Aluno.Activate
End Sub
 
Postado : 24/03/2014 5:25 am
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Desculpe gtsalikis, tinha um erro no ficheiro. Mas mesmo assim não percebo muito de VBA, estou a iniciar.
O que pretendo é que o 1º nome que aparece na combobox activea planilha "Avaliação1", o 2º nome da combobox activea planilha "Avaliação2", o 3º nome da combobox activea planilha "Avaliação3", etc...

O importante é poder alterar a lista de alunos da planilha "Listadealunos", e esta ser atualizada na combobox mas permanecer a mesma ligação, ou seja, 1º aluno activa a planilha "Avaliação1", 2º aluno activa a planilha "Avaliação2", etc...

 
Postado : 24/03/2014 7:04 am
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Vai uma ajuda?

 
Postado : 25/03/2014 10:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não tenho certeza de haver entendido porem experimente

 
Postado : 25/03/2014 11:02 am
(@vitors)
Posts: 31
Trusted Member
Topic starter
 

Valeu Reinaldo.
Era isso mesmo que queria.

 
Postado : 25/03/2014 11:17 am