Quitar de macro la parte que crea un xlsx
De tu macro, quitar la parte que menciona el titulo solamente
NO CABE toda la macro, en una respuesta dejo lo que falta de la macro
Sub GuardaSinMacros() 'guarda una copia .xlsx TOTALMENTE protegida, una copia PDF, elimina botones,
'desprotege y protege la origen
Dim ruta As String
Dim nombre As String
Dim wb As Object
Dim i As Long
Dim d As String
ruta = "D:\Datos Mecanicos\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Unprotect "By Jot@"
With ThisWorkbook.Sheets(1)
Set h1 = ActiveSheet
nombre = Ini(Quitar(.Range("G4"))) & "_" & h1.Name & " " & Format(.Range("H3"), "20-0000") & _
" " & .Range("C11") & "_" & .Range("C13") & "_" & .Range("D13") & "_" & .Range("H13") & _
"_" & .Range("I13") & " " & .Range("J13").Value
'XXXXXXXX
'El cuadro dialogo abre en la carpeta de rut Guardar copia desde el cuadro dialogo
With Application.FileDialog(msoFileDialogFolderPicker) 'Abre el cuadro dialogo
.Title = "Selecciona destino"
.AllowMultiSelect = False
.InitialFileName = ruta
'Si cancela sale de la macro
If .Show <> -1 Then Exit Sub
ruta = .SelectedItems(1) & "\"
End With
'XXXXXXXX
.Copy
End With
Set wb = Workbooks(Workbooks.Count)
With wb
With .Sheets(1)
For i = .Shapes.Count To 1 Step -1
d = .Shapes(i).TopLeftCell.Address(False, False)
Select Case d
Case "J2": .Shapes(i).Delete
Case "J3": .Shapes(i).Delete
Case "L3": .Shapes(i).Delete
Case "L4": .Shapes(i).Delete
End Select
'wb.Sheets(1).DisplayHorizontalScrollBar = False
Next
'¿?¿?¿? DESDE AQUI
.SaveAs Filename:=ruta & nombre & ".xlsx", FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
'¿?¿?¿? HASTA AQUI
With .Range("B2:J60")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A2").Select 'DEseleccionar el rango en la copia
End With
With .Cells
.Locked = True
.FormulaHidden = False
End With
Hola Cher.
No, esa es la única macro para el fin de crear el xlsx y pdf
Gracias por contestar
Y ¿la o las líneas?
Aquí lo que falta a la macro
.Protect Password:="By Jot@", DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlNoSelection 'Restringe todo, seleccion y escritura
End With
.SaveAs Filename:=ruta & nombre & ".xlsx", FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
.Close True
End With
Set wb = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
With ThisWorkbook
With .Sheets(1).Range("H3")
.Value = .Value + 1
End With
End With
ActiveSheet.Protect "By Jot@"
MsgBox "Archivos: " & nombre & " guardados en " & ruta & " como: " & ".xlsx" & " y " & ".PDF", vbInformation, "Guardado"
End Sub
Puede compartir una copia de su archivo, ya que me marca error al correr la macro
La macro me esta funcionando muy bien.
La macro que hace guardar en PDF y SLXS es toda esa que subí una parte primero y ya subí la parte que le falta, visto no me aceptar la macr ocompleta porque son más caracteres de los que permite.
Es cosa de unir la 1ª parte con la 2ª
Gracias
Este mensaje sale al ejecutar la macro, seria mejor si comparte una copia de su archivo.
Buen día Tor Cheer
Tor Cheer, aquí te va el libro con todo. Hya he probado lo que me dijiste, de colocar com ocomentario las línea sque "supuestamente crean el XLSX y no me resulta.
Pruébalo primero antes de hacerle algo, para que veas como actúan las macros.
Este es un libro en que las macros fueron creadas por el amigo y inesquecible Dante Amor, viejo conocido y colaborador en esta WEB.
Saludos
https://www.4shared.com/zip/ImcAQSx8iq/Prueba.html
No abre el link, puede enviarlo a mi correo [email protected]
Perfecto
Hola Tor. Gracias por tu ayuda (colaboración).
Había yo colocar como comentario esas 2 líneas referentes a la creación del xlsx sin resultado aparente.
Resulta que hiciste lo mismo (creo que lo mismo) por lo que pude observar y resulto.
¿Puedes comentarme que más fue lo que eliminaste?
Vuelvo a darte las gracias y esperando tu comentario sobre lo que acabo de pedirte
Joaom agregue una línea para cerrar al archivo nuevo xlsx casi al final de la macro
ActiveWorkbook.Close False
