Navegar pelas Abas da Planilha

2024 - VBA & Macros

Post Recente por scainet 9 anos atrás

4 Posts

3 Usuários

0 Reactions

1,053 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)

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