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

Inline image 1

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


Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias