VBA Excel - Listando todas as worksheets existentes na planilha.

Inline image 1


Em muitas ocasiões, pelos mais diversos motivos, precisamos saber os nomes de todas as worksheets disponíveis em nossas planilhas.

Function ListSheets()
    ' Author:                 Date:                       Contact:                           URL:
    ' André Bernardes  08/08/2010 08:33    bernardess@gmail.com    http://al-bernardes.sites.uol.com.br/
    ' Lista todas as planilhas existentes no Workbook.


    Dim ws As Worksheet
    Dim x As Integer
    Dim nSheet As String

    Let Application.ScreenUpdating = False
    Let Application.DisplayAlerts = False
    Let Application.EnableEvents = False

    Let nSheet = "Analyse"            ' Worksheet que receberá a lista com os nomes.
    Let x = 3

    Sheets(nSheet).Select
    Sheets(nSheet).Range("C:C").Clear

    For Each ws In Worksheets
        Let Sheets(nSheet).Cells(x, 3) = ws.Name
        Let x = x + 1
    Next ws

    Let Application.ScreenUpdating = True
    Let Application.DisplayAlerts = True
    Let Application.EnableEvents = True
End Function




Tags: Excel, worksheet, list, listsheet




Nenhum comentário:

Postar um comentário

diHITT - Notícias