Notifications
Clear all

Renomear as Abas da Planilha


marciamrv
(@marciamrv)
New Member Registered
Entrou: 3 meses atrás
Posts: 3
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


ResponderCitar (Quote)
Anderson
(@anderson)
Estimable Member Registered
Entrou: 1 ano atrás
Posts: 178
 
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 3 semanas 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.


ResponderCitar (Quote)
marciamrv
(@marciamrv)
New Member Registered
Entrou: 3 meses atrás
Posts: 3
Topic starter  

Anderson, bom dia! 

Você é fera, muito obrigada pois era exatamente o que eu precisava.

😀 😀 😀 


ResponderCitar (Quote)