Copiar valores y formato
Publicado por Dani (1 intervención) el 23/08/2018 14:45:28
Hola,
Tengo este código que me copia los valores de una hoja excel a un libro excel distinto:
El problema es que únicamente me copia el código, perdiendo el formato. ¿Cómo puedo hacerlo para que no pierda el formato en copiar?
Muchas gracias,
Dani
Tengo este código que me copia los valores de una hoja excel a un libro excel distinto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TrExport()
Dim tBook, sBook As WorkbookApplication.ScreenUpdating = False
Set sBook = ThisWorkbookSet tBook = Workbooks.Add
tBook.SaveAs ThisWorkbook.Path & "\TrExport.xls"
sBook.ActivateSheets("Sheet1").Select
Cells.SpecialCells(xlCellTypeVisible).Copy Workbooks(tBook.Name).Sheets(1).Range("A1")
tBook.ActivateCells.EntireColumn.AutoFit
tBook.SaveSet sBook = NothingSet tBook = NothingApplication.ScreenUpdating = True
End Sub
Muchas gracias,
Dani
Valora esta pregunta
0
