Macro guardar hoja excel

Ayer hice una pregunta a cerca de como hacer una macro para guardar una hoja en la que estoy con cuadro de dialogo y de un rango de celdas determinado. Luismondelo me respondió satisfactoriamente. Pero quiero modificar y que me la guarde directamente con el nombre de una celda.

Este es el código que luismondelo me facilitó:

Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a3:k62").Copy
workbooks(otro).activate
Sheets(1).select
Range("a1").select
activesheet.paste
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Me gustaría saber donde incluir la ruta y quitar el cuadro de dialogo.

1 Respuesta

Respuesta
2

Te sigo respondiendo:

En este ejemplo nos imaginamos que que en la celda A1 de la hoja activa tenemos anotado el nombre que queremos dar el futuro archivo junto con su path completo, como este ejemplo:

(Esto estaría escrito literalmente en la celda A1)

C:\mis documentos\archivos\archivo.xlsx

La macro quedaría así:

Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
nombre=range("a1").value
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a3:k62").Copy
workbooks(otro).activate
Sheets(1).select
Range("a1").select
activesheet.paste
activeworkbook.saveas nombre
activeworkbook.close false
msgbox "Se ha grabado el siguiente archivo:" & chr(13) & nombre
End Sub

recuerda finalizar la consulta

Amigo Luismondelo creo que no me expliqué bien.

Te explico:

En la celda D:11 tengo el nombre con el que quiero guardar la hoja, y la ruta donde quiero que me la guarde es en D:\Mis documentos\PADRE\MIS TRABAJOS\PRESUPUESTOS\factura mano de obra, pero la ruta no quiero que este en una celda sino incluida en el código.

Gracias por soportar a tanto novato.

Ok, entonces esta es la macro:

Sub ejemplo()
'por luismondelo
mio = ActiveWorkbook.Name
nombre=range("d11").value
ruta = "D:\Mis documentos\PADRE\MIS TRABAJOS\PRESUPUESTOS\factura mano de obra\"
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("a3:k62").Copy
workbooks(otro).activate
Sheets(1).select
Range("a1").select
activesheet.paste
activeworkbook.saveas ruta & nombre
activeworkbook.close false
msgbox "Se ha grabado el siguiente archivo:" & chr(13) & nombre
End Sub

recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

Estimados Gusto de Saludarlos. Bueno soy novato en este tema. Recién aprendiendo a crear macro... Fvr necesito vuestra ayuda... Tengo una hoja de calculo en excel 2010. Dentro de la misma tengo macros para concatenar y copiar y pegar.!... Lo que me...
1 respuesta

Mondelo modificación de macro para que me copie datos filtrado y los copie a un nuevo libro.

Acudo a usted luis mondelo por la gran ayuda y colaboración tan oportuna que me ha brindado. Gracias sos el mejor. Hace unos días buscaba copiar datos filtrados y pegarlos a otra hoja del mismo libro, es posible que con el código siguiente se haga...
1 respuesta

Como hacer una copia de una hoja en otra renombrandola

Tengo un libro, con una hoja, necesito una macro que me realice una copia de esa hoja solo de los valores y formatos, y me la guarde en la misma carpeta que la hoja original y que me la renombre con el mismo nombre de la hoja mas la fecha y hora que...
1 respuesta

Ayuda con código vba para Copiar y Guardar Hojas

Tengo este código para seleccionar directorio para guardar 2 hojas a copiar: Dim Titulo, Directorio As String Sub SeleccionarDirectorio() Titulo = "Selecciona la ruta de tu carpeta" On Error Resume Next 'evitaría un error en caso de no seleccionar...
1 respuesta

"Guardar como" una hoja específica de Excel con Macro

Estoy trabajando excel versión 2007. El archivo cuenta con dos hojas: Listado y formato. Quiero asignar una macro a un botón en Hoja "Listado" que me permite Guardar sólo la Hoja "Formato" en una ruta que especifique el usuario, ya que el excel lo...
1 respuesta

Buen día, quisiera me ayuden para hacer una macro, para copiar varias hojas de un libro a uno nuevo.

Quisiera me ayuden para hacer una macro, no conozco mucho de ellas o el lenguaje para hacerlas. Tengo un libro en Excel 2007 que tiene 7 hojas, quiero que tres de las hojas de este libro sean copiadas exactamente igual a un nuevo libro (mismo diseño...
1 respuesta

Cómo copiar diferentes rangos d celdas d una hoja y pegarlas en distintas columnas d un nuevo libro

Bueno encontré un código el cual me permite copiar celdas y pegarlas pero en la siguiente fila, lo que quiero hacer es abrir un nuevo documento y que de mi hoja4 me copie los rangos a1:c57 en la columna a, e1:57 en la columna d, i1:k57en la columna...
1 respuesta

Macro para importar datos de txt a una hoja Excel

Estoy usando Excel 2003 y realmente es la primera vez que trabajo con el, bueno mi problemas es el siguiente. Tengo una carpeta que contiene varios archivos txt, estos contienen una columna de datos cada uno, y necesito hacer una macro que en una...
2 respuestas

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas

¿Cómo guardar sólo una hoja de excel con un nombre predefinido mas la fecha?

Quisiera saber como lo puedo hacer para guardar una hoja de excel en el escritorio con un nombre predefinido mas la fecha correspondiente al mes en que se guardo mas el año ej: hoja de cuenta noviembre 2012 o hoja de cuenta diciembre 2012... Etc.
1 respuesta