Agradeço desde já a disponibilidade para me ajudar.
Vou tentar explicar melhor o problema.
Tenho 5 planilhas "Avaliação1", "Avaliação2", "Avaliação3", "Avaliação4" e "Avaliação5" e todas elas terão a mesma função (navegar entre as planilhas através de uma combobox).
Nas 5 planilhas, uni e centrei da célula "B4" a "I4" e criei uma combobox list.
Coloquei o seguinte código VBA, que me foi fornecido através deste fórum:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$B$4" Or Target.Value = "" Then Exit Sub
Select Case Target.Value
Case Range("M3").Value
Sheets("Avaliação1").Select
Case Range("M4").Value
Sheets("Avaliação2").Select
Case Range("M5").Value
Sheets("Avaliação3").Select
Case Range("M6").Value
Sheets("Avaliação4").Select
Case Range("M7").Value
Sheets("Avaliação5").Select
End Select
'Sheets(CStr([B4])).Activate
Application.EnableEvents = True
End Sub
Sub teste()
Application.EnableEvents = True
End Sub
Até aqui funciona bem, ou seja, ao selecionar o aluno pretendido, paço para a planilha correspondente, mas o problema é que na combobox não aparece o nome do aluno. Exemplo: Estou na plan "Avaliação1" e na combobox seleciono o aluno Carlos António. Passo para a plan correspondente ao aluno Carlos António "Avaliação3" mas na combobox, desta nova plan, aparece a branco ou então com o nome de outro aluno.
Postado : 27/02/2014 3:28 am