Nome da aba como data

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

702 Visualizações

RSS

Judiado

(@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

(@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