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