Error aleatorio al copiar y guardar hoja
Saludos expertos!
Mi consulta es la siguiente:
Tengo en un libro varias macros que realizan diferentes tareas a traves de formularios. En un punto de uno de ellos debe guardar en un nuevo libro una hoja seleccionada.
Lo desconcertante del asunto, y por esto mi pregunta, es que el error ocurre solo algunas veces y aparentemente sin un patrón recurrente.
El código que estoy utilizando en el punto que da error (error 1004) es el siguiente:
rutaOCexcel= "String con la ruta"
Sheets("ORDEN DE COMPRA").Copy 'En este punto salta el error
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=rutaOCexcel, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True
El otro error que surge "a veces" es pasar la misma hoja a PDF:
On Error Resume Next
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaOCexcel, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'rutaOCexcel, _
'Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
':=False, OpenAfterPublish:=False
Antes de saltarme el error con la instrucción "On Error Resume Next" efectivamente guardaba el pdf sin problema pero se disparaba el error.
A quienes hayan tenido la paciencia de leer les agradecería muchísimo me den una mano, ya he encontrado buenísimas respuestas antes en todexpertos y esta es la primera vez que formulo una pregunta.... Gracias!
Mi consulta es la siguiente:
Tengo en un libro varias macros que realizan diferentes tareas a traves de formularios. En un punto de uno de ellos debe guardar en un nuevo libro una hoja seleccionada.
Lo desconcertante del asunto, y por esto mi pregunta, es que el error ocurre solo algunas veces y aparentemente sin un patrón recurrente.
El código que estoy utilizando en el punto que da error (error 1004) es el siguiente:
rutaOCexcel= "String con la ruta"
Sheets("ORDEN DE COMPRA").Copy 'En este punto salta el error
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=rutaOCexcel, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close Savechanges:=True
El otro error que surge "a veces" es pasar la misma hoja a PDF:
On Error Resume Next
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaOCexcel, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
'rutaOCexcel, _
'Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
':=False, OpenAfterPublish:=False
Antes de saltarme el error con la instrucción "On Error Resume Next" efectivamente guardaba el pdf sin problema pero se disparaba el error.
A quienes hayan tenido la paciencia de leer les agradecería muchísimo me den una mano, ya he encontrado buenísimas respuestas antes en todexpertos y esta es la primera vez que formulo una pregunta.... Gracias!
