VBA Excel - Navegue através de todas as pastas de uma planilha, posicionando-se na primeira célula - Navigate through all the worksheet and Press Ctrl + Home . Goto first cell in each worksheet

Termo de Responsabilidade

Quando estamos trabalhando com muita velocidade em planilhas e temos certa urgência, algumas facilidades são bem vindas para agilizar a nossa produtividade.

Este código tem este propósito, tornar a nossa interação com uma planilhas que contém muitas pastas, mais ágil.

Sub goto_first_cell_in_each_worksheet()

Dim wk As Worksheet

For Each wk In ThisWorkbook.Sheets

wk.Select

If ActiveWindow.SplitRow = 0 And ActiveWindow.SplitColumn = 0 Then

Application.Goto Range("a1")

Exit Sub

Else

Application.Goto Range(Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address)

End If

Next

ActiveWorkbook.Save

End Sub

Reference: Excelvbamacros.com

Tags: VBA, Excel, Navegue, Goto first, cell, firts cell, each worksheet