SANDWICH PROJECT 2016 - VBA Excel - VBA Excel: Navegando entre as abas
No caso abaixo, além de avançarmos as pastas o botão ainda posicionará na mesma célula em que estávamos na planilha corrente.
Essa facilidade de navegação é interessante. Experimente!
Sub DOSSC()
' André Bernardes 16/09/2008 14:33 bernardess@gmail.com
' Move-se para a esquerda, quando não houver mais pastas avisa automaticamente.
' DOSSC=down one sheet same cell
On Error Resume Next
Application.Goto Reference:=ActiveWorkbook.Sheets(ActiveSheet.Index - 1).Range(ActiveCell.Address)
' Caso ocorra um erro, aborta a Sub e envia mensagem.
If Err.Number = 0 Then Exit Sub
MsgBox ("Não é possível retornar mais, você está posicionado na primeira pasta, (" & Application.ActiveSheet.Name & ")") 'Caso o usuário esteja na primeira past (sheet).
End Sub
Sub UOSSC()
' Author: Date: Contact:
' André Bernardes 16/09/2008 14:39 bernardess@gmail.com
' Move-se para a direita, quando não houver mais pastas avisa automaticamente.
' UOSSC=up one sheet same cell
On Error Resume Next
Application.Goto Reference:=ActiveWorkbook.Sheets(ActiveSheet.Index + 1).Range(ActiveCell.Address)
' Caso ocorra um erro, aborta a Sub e envia mensagem.
If Err.Number = 0 Then Exit Sub
MsgBox ("Não é possível avançar mais, você está posicionado na última pasta, (" & Application.ActiveSheet.Name & ")") 'Caso o usuário esteja na primeira past (sheet).
End Sub
Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.
