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 WorksheetFor Each wk In ThisWorkbook.Sheetswk.SelectIf ActiveWindow.SplitRow = 0 And ActiveWindow.SplitColumn = 0 ThenApplication.Goto Range("a1")Exit SubElseApplication.Goto Range(Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Address)End If
NextActiveWorkbook.SaveEnd Sub
Tags: VBA, Excel, Navegue, Goto first, cell, firts cell, each worksheet
Nenhum comentário:
Postar um comentário