Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Navegar pelas Abas ...
 
Notifications
Clear all

Navegar pelas Abas da Planilha

 
2024 - VBA & Macros
Post Recente por scainet 9 anos atrás
4 Posts
3 Usuários
0 Reactions
1,043 Visualizações
RSS
 scainet
(@scainet)
Posts: 33
Eminent Member
Topic starter
 

Tenho uma planilha com dezenas de abas e gostaria de facilitar a navegação.
Como cada planilha é nomeada por um código, eu queria colocar uma caixa de formulário em uma aba mestra, onde eu possa digitar o código da aba desejada e automaticamente sou direcionado para a aba.

Eu achei um código na internet que faz o serviço.
Porém ele dá uma mensagem de erro a cada caracter que eu digito e somente após o último número é que ela me transporta para a aba que quero.
Ela funciona corretamente se, por exemplo, eu der um Ctrl+V com o código completo da aba que quero.
Mas eu gostaria de poder digitar ele sem aparecer esse erro.

Segue em anexo a planilha.

NavegarEntreAbas.rar
 
Postado : 12/04/2016 8:16 am
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

Tente desta forma: 

Private Sub cbo_ExibePlanilha_Change()
On Error GoTo Erro

    'Se não for vazio
    If cbo_ExibePlanilha.Text <> "" Then
        'Seleciona a planilha escolhida
        If Len(cbo_ExibePlanilha.Text) = 4 Then
        ThisWorkbook.Worksheets(cbo_ExibePlanilha.Text).Select
        End If
    End If

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

Ou entao o Evento DblClick

Click em se a resposta foi util!

 
Postado : 12/04/2016 9:02 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Outra sugestão

Private Sub cbo_ExibePlanilha_Change()
On Error Resume Next
    'Se não for vazio
    If cbo_ExibePlanilha.Text <> "" Then
        'Seleciona a planilha escolhida
        ThisWorkbook.Worksheets(cbo_ExibePlanilha.Text).Select
    End If

End Sub

Troquei On Error GO TO para On Error Resume Next.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 12/04/2016 11:11 am
 scainet
(@scainet)
Posts: 33
Eminent Member
Topic starter
 

Muito obrigado @Basole e @MPrudencio.
Funcionou perfeitamente das duas formas.

 
Postado : 12/04/2016 11:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico