Guardar RANGO de celdas en libro nuevo
Publicado por Juan (1 intervención) el 12/06/2019 17:30:55
Buen día estimados
Agradecería mucho me puedan ayudar, ya que estoy partiendo recién aprendiendo a comprender este lenguaje.
Logré adaptar un código a mis necesidades y lo ocupo bastante en mis labores diarias.
Trabajo una hoja en excel y con un código la guardo en una ruta asignada en una celda de la hoja y con el nombre compuesto de 2 celdas nombre y periodo mes año. Lo que quisiera hacer es exactamente lo mismo pero que guarde un rango de la hoja (A2:AA90), la guarde con las mismas celdas de condición con la diferencia que lo haga en xlsx, por lo tanto sea sin macros ni formulas, solo valores. He intentado hacer algunas ya que necesito 2 botones, una para pdf y otra para excel y al ocupar Sub Guardar() por segunda vez arroja "Se ha detectado un nombre ambiguo"(por tratar de repetir la primera cambiando formatos).
Espero que alguien pueda ayudarme, de antemano gracias
Sub Guardar()
On Error GoTo aviso
Dim xcel As String
Dim zfilename As String
Dim outName As String, i As Long
Dim archivo As String
Dim ano As String
archivo = Range("E14")
ano = Range("E13")
outName = archivo
zfilename = Range("F14") & "\" & outName & "" & ano
ActiveSheet.ExportAsFixedFormat xlTypePDF, zfilename
Exit Sub
aviso:
MsgBox "Error: " & Err.Description & " " & Err.Number
End Sub
Agradecería mucho me puedan ayudar, ya que estoy partiendo recién aprendiendo a comprender este lenguaje.
Logré adaptar un código a mis necesidades y lo ocupo bastante en mis labores diarias.
Trabajo una hoja en excel y con un código la guardo en una ruta asignada en una celda de la hoja y con el nombre compuesto de 2 celdas nombre y periodo mes año. Lo que quisiera hacer es exactamente lo mismo pero que guarde un rango de la hoja (A2:AA90), la guarde con las mismas celdas de condición con la diferencia que lo haga en xlsx, por lo tanto sea sin macros ni formulas, solo valores. He intentado hacer algunas ya que necesito 2 botones, una para pdf y otra para excel y al ocupar Sub Guardar() por segunda vez arroja "Se ha detectado un nombre ambiguo"(por tratar de repetir la primera cambiando formatos).
Espero que alguien pueda ayudarme, de antemano gracias
Sub Guardar()
On Error GoTo aviso
Dim xcel As String
Dim zfilename As String
Dim outName As String, i As Long
Dim archivo As String
Dim ano As String
archivo = Range("E14")
ano = Range("E13")
outName = archivo
zfilename = Range("F14") & "\" & outName & "" & ano
ActiveSheet.ExportAsFixedFormat xlTypePDF, zfilename
Exit Sub
aviso:
MsgBox "Error: " & Err.Description & " " & Err.Number
End Sub
Valora esta pregunta


0