Guardar solo una hoja de libro en una determinada ubicación

Bien tengo un problema. Bien tengo una hoja "Reporte" donde saca datos de otras hojas . Hasta ahí todo bien.. Pero necesito tener una macro donde solo me guarde la hoja "reporte" a un lugar especifico ( el archivo lo comparto).. Y claro cada vez que saque el reporte reemplace al antiguo de esa manera solo exista 1 en compartidos. Y también a la hora de poner el código en un botón no se ejecuta como debe de ser .. Me explico cuando lo ejecuto de manera manual vista/macros/ver macros... La tarea se ejecuta correctamente, pero cuando le asigno a un botón no se ejecuta de manera correcta...

1 respuesta

Respuesta
1

Te anexo la macro para guardar la hoja "reporte", en la macro cambiar los ejemplos por tus datos.

Sub GuardaReporte()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ruta = "C:\trabajo\"        'cambiar por la ruta específica
    nombre = "reporte.xlsx"     'cambiar por el nombre del archivo
    Sheets("reporte").Copy
    ActiveWorkbook.SaveAs ruta & nombre
    ActiveWorkbook.Close
    MsgBox "Archivo reporte guardado", vbInformation
End Sub

Esta parte no la entendí:

"Y también a la hora de poner el código en un botón no se ejecuta como debe de ser"

Si te refieres a otra macro, puedes crear una nueva pregunta y me detallas lo que necesitas.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Guardar Hoja(hoja3) En Una Carpeta Especifica(C:\Excel\) Con Botón Macro Ubicado en Una Hoja Diferente A La Que Se Va A Guardar

Mi amigo necesito de tu ayuda! Primero quiero darte las gracias por responder el post y luego quiero preguntarte algo: Primero quiero decirte que este código me sirve a la perfección: Sub crearcarpeta2() 'Por.DAM ruta = "C:\Excel\" arch = Range("A2")...
2 respuestas

Como copiar unas hojas de un libro a otro nuevo como valores, almacenarlo en una ruta especifica con el nombre de una celda.

Quiero copiar sólo 3 hojas de un archivo a un archivo nuevo como valores manteniendo el formato, y almacenarlo en una ruta especifica con el nombre que aparece en una celda.
1 respuesta

Macro para guardar archivo excel, con nombre de una celda, en una carpeta creada por la misma macro

Los expertos, Me gustaría que me ayudaran si fuera posible, requiero desarrollar una macro en excel que me permita crear una carpeta, con el nombre de una celda del libro excel, dónde a continuación genere una copia pero de los datos de otra celda,...
2 respuestas

Copiar una hoja en una carpeta creada automáticamente

Estoy haciendo una macro que me copie una hoja llamada código en una carpeta en el directorio donde se encuentra el libro, esta carpeta debe crearse automáticamente sino existe, y debe guardarse por mes, ejemplo si estamos en el año 2015 en el mes de...
1 respuesta

Guardar hoja excel en txt con el nombre de una celda

He tratado de crear una macro que me guarde el area C2:O30 de una hoja como un archivo txt, con el dato que tiene escrito en la celda A1. La ruta donde se debe guardar es una capeta que se encuentra en la misma ruta donde está el archivo. Sub...
1 respuesta

Macro para enviar por correo una hoja de excel

Me podrían ayudar con una macro para enviar una hoja de excel por correo, estoy intentando hacer la macro pero no me sale.
1 respuesta

Buena tarde mi consulta es como crear un macro

Q a los 3 minutos de estar abierto una hoja excel ejecute la acción de enviar esta hoja por correo electrónico a varios destinatarios
1 respuesta

Sacar imagen a un gráfico de excel

Pille un código para sacar foto o imagen a un gráfico de excel y lo convierte a una imagen dentro de la carleta donde esta el archivo de excel: Sub GuardarGraficos() Dim grafico As ChartObject Dim archivo As String For Each grafico In...
1 respuesta

Macro para exportar de excel a txt

Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt, estoy usando este código: ub generar_texto() Application.ScreenUpdating = False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select...
1 respuesta

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
1 respuesta