Renomear as Abas da Planilha

2024 - VBA & Macros

Post Recente por marciamrv 4 anos atrás

3 Posts

2 Usuários

0 Reactions

1,514 Visualizações

RSS

marciamrv

(@marciamrv)

Posts: 5

Active Member

Topic starter

Olá pessoal!

Tenho essa macro que copia dados da planilhas e cria outra com as abas que preciso, mas gostaria de definir o nome das abas e não deixar o nome já existente. Alguém consegue me ajudar?

Sub Copiar_Planilhas ()

Dim ABA1, ABA2, Excluir As String

ABA1 = Plan1.Nome

ABA2 = Plan2.Nome

Excluir = thisworkbook.Path & “\” & “Copia.xls”

On Error Resume Next

Kill Excluir

Set Arquivo = Application.Workbooks.Add

ThisWorkbook.Sheets(Array(ABA1, ABA2)). Copy Before:=Arquivo.Sheets(1)

Arquivo.SaveAs TisWorkbook.Path & “\” & “Copia” & “.xls”

Arquivo.Close

MsgBox “Cópia criada com sucesso”

End Sub

Postado : 29/04/2021 11:19 pm

Anderson

(@anderson)

Posts: 203

Reputable Member

Sub Copiar_Planilhas ()

Dim ABA1 AS STRING, ABA2 AS STRING,  Excluir As String

ABA1 = Plan1.Nome

ABA2 = Plan2.Nome

Excluir = thisworkbook.Path & “\” & “Copia.xls”

On Error Resume Next

Kill Excluir

Set Arquivo = Application.Workbooks.Add

ThisWorkbook.Sheets(Array(ABA1, ABA2)). Copy Before:=Arquivo.Sheets(1)
ARQUIVO.SHEETS(1).NAME = "NOME1"
ARQUIVO.SHEETS(2).NAME = "NOME2"
Arquivo.SaveAs TisWorkbook.Path & “\” & “Copia” & “.xls”


Arquivo.Close

MsgBox “Cópia criada com sucesso”

End Sub

https://youtu.be/n4CinybnQ8Q

https://youtu.be/YB2JLRO1l6A

https://youtu.be/yzbj8vFseqY

Sub RENOMEARABAS()

Dim I As Long


For I = 1 To ThisWorkbook.Sheets.Count

If Sheets(I).Name <> "1 MÊS" Then
If Sheets(I).Name <> "2 MÊS" Then

Sheets(I).Name = "TESTE " & I - 2

End If
End If

Next I


End Sub

Este post foi modificado 4 anos atrás 6 vezes por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Postado : 30/04/2021 6:26 am