Notifications
Clear all

Nome da aba como data

4 Posts
2 Usuários
0 Reactions
693 Visualizações
(@judiado)
Posts: 2
New Member
Topic starter
 

Fala galera,
É o seguinte, vou copiar uns dados de uma tabela para outra. Na tabela de destino a macro cria uma nova aba, cola os dados e renomeia a aba com a data digitada.
O problema é que não consigo mudar o formato da data com as "/", aí não renomeia. E essas datas são usadas para fazer contas, se eu mudo a formatação da célula para texto, por exemplo, as contas não dão mais certo.
O código esta assim:

Dim nome_aba As String
nome_aba = Sheets("REVISAO").Range("B7")
Sheets("REVISAO").Select
Range("A12:D52").Copy
Workbooks.Open Filename:=ThisWorkbook.Path & "" & placa & ".xlsx"
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
ActiveSheet.Name = nome_aba
ActiveWorkbook.Save
Windows(placa & ".xlsx").Close

 
Postado : 23/07/2014 6:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente mudar o formato da guia renomeada
Exemplo fictício

.Name = Range("D2").Value & " " & Format(Range("D3").Value, ("dd-mm-yy"))

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/07/2014 6:41 am
(@judiado)
Posts: 2
New Member
Topic starter
 

Valeu cara!
Não consegui formatar a aba, não aceitava, não sei se por causa da variável, mas deu uma luz aqui ehehhe
Fiz meio q serviço de português mas ta funcionando.
Copiei a data pra outra célula, formatei ela do jeito que vc falou e atribui o valor dela a variável, aí foi!
Obrigado!!!

 
Postado : 23/07/2014 7:12 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu fico feliz por ter ajudado, obrigado pelo retorno!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/07/2014 7:15 am