Ir ao conteúdo
  • Cadastre-se
BernardorValle

RESOLVIDO Numerar Guia de Excel

Recommended Posts

Bom dia,

 

gostaria de saber qual a maneira mais prática para colocar números em cada guia do excel

 

 

trabalho com uma planilha que será impressa e coloco os números das páginas nas guias

 

e quando configuro a planilha coloco nome da guia

 

 

mas gostaria de saber qual a maneira mais prática para fazer isso.

 

 

algum macro que "enumere" os nomes das planilhas também acredito que servirá.

 

Obrigado

Duvida numerar planilha.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

O código abaixo renomeia todas as planilhas com números, iniciando com 1.

Sub NomeiaPlans()
  Dim ws As Worksheet, x As Long
    x = 1
      For Each ws In ThisWorkbook.Worksheets
        On Error Resume Next
        ws.Name = x
        x = x + 1
      Next ws
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

No caso as planilhas são duplicadas,

 

:confused:   :confused:      :eek:      :eek:

 

 

Sub NomeiaPlans()

   Dim ws As Worksheet, x As Long, r As Boolean

     x = 1

       For Each ws In ThisWorkbook.Worksheets

         On Error Resume Next

         If Not r Then

          ws.Name = x

          r = Not r

         Else: ws.Name = x & "f"

          r = Not r

          x = x + 1

        End If

       Next ws

 End Sub

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×