¿Como puedo crear un boton activo que al presionarlo guarde una seleccion en un libro nuevo sin tener que ir a archivo guardar?
Tengo un libro en el cual quiero guardar cierta sellecion de columnas y filas en un libro nuevo sin tener que entrar en archivo, guardar como.
1 Respuesta
Respuesta de Dante Amor
3
Te anexo la macro para tu botón:
Sub Macro2() ' Por Dante Amor ' ' Guardar rango de celdas en un archivo nuevo ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' rango = "A1:D10" arch = "libro nuevo.xlsx" ' ruta = ThisWorkbook.Path & "\" Range(rango).Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:=ruta & arch, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close Application.CutCopyMode = False MsgBox "Archivo nuevo guardado" End Sub
Actualiza en esta parte de la macro el rango que quieres guardar y el nombre del archivo nuevo:
rango = "A1:D10" arch = "libro nuevo.xlsx"
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda .
