Excel - guardar pdf y excell al mismo tiempo

   
Vista:

guardar pdf y excell al mismo tiempo

Publicado por unicornio siempreununicornio@hotmail.com (10 intervenciones) el 06/01/2016 19:54:56
Tengo una macro que he armado de varios sitios y adaptandola, no manejo macro ni nada por el estilo todo fue por instinto, por lo que no se que pasa con esta macro, ya que al proteger la hoja "Imprimir" guarda el arrchivo si pero se queda colgado, y cuando intento abrir el archivo guardado, me sale error que no tienen el formato y la extencion no coinciden. podrian ayudarme con esto

Les paso la macro y el archivo adjunto


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Imprimir_Click()
Sheets("IMPRIMIR").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("IMPRIMIR").Range("B1:N82").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\#CEsteves\Documentos CEsteves\Inspecciones de Hojalata\" & Range("k7") & " " & Range("e9") & " " & Range("f9") & " " & Range("g9") & " " & Range("h9") & " " & Range("k9") & " " & Range("k11").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Listo.Se Guardo en PDF", vbInformation
Sheets("IMPRIMIR").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\#CEsteves\Documentos CEsteves\Inspecciones de Hojalata\" & Range("k7") & " " & Range("e9") & " " & Range("f9") & " " & Range("g9") & " " & Range("h9") & " " & Range("k9") & " " & Range("k11") & ".xls"
MsgBox "Listo.Se Guardo en excell", vbInformation
ActiveWorkbook.Close
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

guardar pdf y excell al mismo tiempo

Publicado por unicornio (10 intervenciones) el 08/01/2016 14:48:42
adjunto el archivo original, esta en el boton de la hoja "IMPRIMIR"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

guardar pdf y excell al mismo tiempo

Publicado por unicornio (10 intervenciones) el 16/01/2016 16:31:06
123123123123
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Gean

guardar pdf y excell al mismo tiempo

Publicado por Gean (9 intervenciones) el 08/01/2016 21:48:08
Te comento que a mi me ejecutó bien. Aun cuando botaba ese error que mencionas.
Sin embargo, le cambie la extensión del archivo que guardabas a

1
....& Range("k11") & ".xlsx"

Y ya no me botó el error.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
3
Comentar

guardar pdf y excell al mismo tiempo

Publicado por unicornio (10 intervenciones) el 09/01/2016 05:29:58
te ejecuta bien aun protegiendo la hoja Imprimir?, no se te cuelga?, ya que tengo que protegerla para evitar cambios, ya que esa hoja a veces la maneja otro personal
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

guardar pdf y excell al mismo tiempo

Publicado por JoaoM (161 intervenciones) el 09/01/2016 20:20:34
Coloca al inicio de la macro
ActiveSheet.UnProtect Password = "tu clave"

al final
ActiveSheet.Protect Password = "tu clave"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

guardar pdf y excell al mismo tiempo

Publicado por unicornio (10 intervenciones) el 11/01/2016 15:06:56
gracias, se me solucionó, llevaba una semana intentandolo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

guardar pdf y excell al mismo tiempo

Publicado por unicornio (10 intervenciones) el 11/01/2016 15:07:38
gracia, por todo se me corrigio el error gracias por todo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar