Copiar una hoja con formatos a un archivo existente
El archivo existente esta cerrado
Tengo este código:
Sub CHoja()
Dim Carpeta As String
Carpeta = "C:\empresa\"
MesAño = shtTurnos.[e5] + shtTurnos.[f5]
nombreaforo = "Af e Ing" & "(" & MesAño & ")"
dia = shtTurnos.[d5]
shtAfeIng.[a1:e50].Copy
Workbooks.Open Filename:=(Carpeta & nombreaforo)
Set nuevah = Worksheets.Add
With nuevah
.Name = "Dia " & dia
.[a1].PasteSpecial Paste:=xlPasteAll
'al pegar la información esta toda amontonada
'copiar la hoja con bordes, ancho de fila y de columna
End With
[f1].Activate
ActiveWorkbook.Close savechanges:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
1 respuesta
Prueba copiando la hoja completa para que te respete todos los formatos.
Sub CHoja()
'Act.Por Dante Amor
Dim Carpeta As String
Carpeta = "C:\empresa\"
Carpeta = "C:\trabajo\"
MesAño = shtTurnos.[e5] & shtTurnos.[f5]
nombreaforo = "Af e Ing" & "(" & MesAño & ")"
dia = shtTurnos.[d5]
Set l2 = Workbooks.Open(Filename:=(Carpeta & nombreaforo))
shtTurnos.Copy after:=l2.Sheets(l2.Sheets.Count)
Set nuevah = l2.ActiveSheet
nuevah.Name = "Dia " & dia
[f1].Activate
ActiveWorkbook.Close savechanges:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
excelente copia la hoja completa solo un detalle me dice que la hoja ya existe y me manda varios mensajes antes de copiar la hoja
y cuando abro el archivo para confirmar que se grabo me manda este otro mensaje
pero si esta copiando la hoja completamente.
ante todo muchas gracias por la pronta respuesta.
Al principio de la macro pon esta línea
application.displayalerts = false
Y para lo de los vínculos tienes que quitar esa seguridad en las opciones de excel
