Guardar hoja

Hola Buenos días por favor necesito una macro para guardar la hoja "report", con el nombre de la celda "C3", deberá guardarse en la unidad "C", en la carpeta llamada "reportes pn", y cada vez que la guarde lo hará como una hoja diferente para no borrar la anterior.
De antemano te agradezco mucho, saludos
Respuesta
1
Vamos a ver entiendo cuando dices "Hoja" te refieres al Libro de Excel que en tu caso el nombre sería "Report.xls", quieres guardarlo en la ruta:
C:\Reportes pn\Nombre de la celda C3.xls pero para no borrar el anterior, por ejemplo podemos numerar correlativos, quedando así:
C:\Reportes pn\Nombre de la celda C3.xls
C:\Reportes pn\Nombre de la celda C3-1.xls
C:\Reportes pn\Nombre de la celda C3-2.xls
C:\Reportes pn\Nombre de la celda C3-3.xls
Podríamos añadirle la fecha del sistema algo así:
C:\Reportes pn\Nombre de la celda C3-1-08-07-2009.xls
Tenemos que mantener los correlativos porque si guardas el libro más de una vez en un día se borraría el anterior.
De todas formas te doy las dos macros esta es solo con correlativos:
Sub Auto_Close()
Dim contador As Integer
Application.DisplayAlerts = False
If Range("IV65536").Value = "" Then
Range("IV65536").Value = 1
End If
contador = Range("IV65536").Value
NombreArchivo = ActiveSheet.Range("C3").Value
    ChDir "C:\reportes pn"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\reportes pn\" + NombreArchivo & "-" & contador & " .xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
Range("IV65536").Value = contador + 1
End Sub
En la ultima celda de la hoja he puesto el valor del contador "IV65536" (espero que no la utilices, si es así cambiala a otra) al cerrar el libro automáticamente se guardará en la carpeta que has puesto con un numero ordinal consecutivo, necesitamos una celda con el numero que hace de Libro guardado, porque las variables al cerrar el Libro pierden el dato y en algún sitio hay que tenerlo, si quieres esa celda ponle el color de texto en blanco y así no te molesta ni se vé.
Ahora en la celda de encima "IV65535" voy a poner la fecha del sistema para la siguiente macro que pondrá el nombre ordinal concatenado con la fecha:
Sub Auto_Close()
Dim contador As Integer
Dim fecha As String
Application.DisplayAlerts = False
If Range("IV65536").Value = "" Then
Range("IV65536").Value = 1
End If
Range("IV65535").Select
ActiveCell.FormulaR1C1 = "=Now()"
ActiveCell.NumberFormat = "dd-mm-yyyy"
fecha = ActiveCell.Text
Range("A1").Select
contador = Range("IV65536").Value
NombreArchivo = ActiveSheet.Range("C3").Value
    ChDir "C:\reportes pn"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\reportes pn\" + NombreArchivo & "-" & contador & "-" & fecha & " .xls", FileFormat:=xlNormal _
Range("IV65536").Value = contador + 1
End Sub
Elige la que más te guste, y si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio
Hola!, todo esta genial, pero te aclaro algo, es que el libro tiene muchas hojas y no quiero guardarlo todo, solamente la hoja "report".
Nuevamente GRACIAS!...
Vale pues no entendí tu consulta entonces no es posible guardar el libro porque se guardaría completo, para hacer esto hay que crear un Libro nuevo copiarle y pegarle la hoja que deseas darle el nombre guardar los datos y cerrarle, te dejo la nueva macro solo con los valores de números consecutivos si quieres hacerlo también con la fecha fíjate en las lineas que he añadido y tan solo modifica las necesarias para añadir la fecha:
Sub Auto_Close()
Dim contador As Integer
Application.DisplayAlerts = False
If Range("IV65536").Value = "" Then
Range("IV65536").Value = 1
End If
contador = Range("IV65536").Value
NombreArchivo = ActiveSheet.Range("C3").Value
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.PasteSpecial
ActiveSheet.Name = "report"
Sheets("Hoja2").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.Delete
    Sheets("Hoja3").Select
    ActiveWindow.SelectedSheets.Delete
    Range("A1").Select
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\" + NombreArchivo & "-" & contador & " .xls", FileFormat:=xlNormal _
Range("IV65536").Value = ""
If ThisWorkbook.Saved = False Then
   ThisWorkbook.Save
End If
ActiveWorkbook.Close
Range("IV65536").Value = contador + 1
Range("A1").Select
End Sub
>Un saludo
>Julio
PD: Si ya te sirve puntúa y finaliza la consulta, un comentario es bienvenido.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas

¿Macro en excel que sombree las celdas con condiciones?

Macro en excel que sombree las celdas de la columna "G" que suman el valor de cada celda de la columna "D" si como condición la celda "E" dice "campeon"
1 respuesta

¿Cómo coloreo los resultados: de amarillo a los valores menores al rango, y de color rosa a los valores mayores, en excel?

Tengo la siguiente lista: A B C 1 NUM1 NUM2 RESULTADO 2 10 20 5 3 30 40 35 4 50 60 70 Por ejemplo, me gustaría que el resultado fuera así: -> Que la celda "C2" se pinte de amarillo, porque "5" es menor al rango 10 a 20. -> Que la celda C3 no cambie...
2 respuestas

Importación desde Access 2007 de un fichero Excel 2007 con 900.000 filas

Que me parece 'de locos'. La base del problema es que quiero importar desde Access un fichero Excel con unas 900,000 filas. Y a partir de ahí, me encuentro con que en mi PC 'de siempre' lo puedo hacer sin ningún tipo de problemas, pero cuando lo...
2 respuestas

Cómo llenar una celda de excel con los datos de otras celdas ?

Necesito rellenar la celda de observaciones, con los datos de otras dos celdas. Por ejemplo, es una excel de llamadas telefónicas y funciona de esta manera: Cuando realizó la llamada telefónica, en la columna de "Estado" tengo una lista desplegable....
1 respuesta