Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro que renomeie ...
 
Notifications
Clear all

Macro que renomeie todas as planilhas

 
2024 - VBA & Macros
Post Recente por fredjedi 8 anos atrás
4 Posts
3 Usuários
0 Reactions
985 Visualizações
RSS
 fredjedi
(@fredjedi)
Posts: 0
New Member
Topic starter
 

Tenho uma pasta com as planilhas:

01-03-2017, 02-03-2017, 03-03-2017.....e assim por diante....

Preciso de um código que renomeie essas planilhas, pois todo mês tenho que fazer manualmente e gasta um tempão:

01-04-2017, 02-04-2017, 03-04-2017....

Estou tentando assim:

Sub renomear()

For i = 1 To Sheets.Count

Sheets(i).Name = 01 + i
Next
End Sub

Mas não formata do jeito que preciso XX-XX-XXXX alguem pode me ajudar?

 
Postado : 17/02/2017 11:55 am
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde fred,

Teste o seguinte código:

Sub RenomearPlanilhas()
    
    Dim i As Byte
    
    Dim Nome
    
    For i = 1 To Sheets.Count
        
        Nome = Format(Sheets(i).Name, "dd-mm-yyyy")
        
        'Adicionar um dia a mais
        Nome = DateAdd("D", 1, Nome)
        
        Sheets(i).Name = Format(Nome, "dd-mm-yyyy")
            
    Next
    
End Sub

qualquer dúvida é só perguntar;

att,

 
Postado : 17/02/2017 1:10 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

fredjedi,

Boa tarde!

Segue minha sugestão.

Veja se é assim.

Renomar todas as planilhas.zip
 
Postado : 17/02/2017 1:57 pm
 fredjedi
(@fredjedi)
Posts: 0
New Member
Topic starter
 

Resolvido, agradeço ao brunoxro e ao wagner pela mãozinha!

 
Postado : 17/02/2017 6:21 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico