Guardar libro de excel con macro pero con el nombre de alguna celda de dentro del archivo de excel

Ya hice una macro en excel que me guarda un archivo automáticamente, pero me lo guarda con el mismo nombre, sobrescribiendo el mismo archivo, lo que quiero es que el nombre se cambien en automático cuando cambien una celda dentro del libro,, como ejemplo esta que el libro guardado se llame como esta en la hoja 1 celda B3

2 Respuestas

Respuesta
1

Lo mejor sería que me mandases el libro y así hago la modificación sobre lo mismo que tienes.

Mi correo es

ActiveWindow.ScrollRow = 1
Sheets("OCFESI").Select
Range("G37").Select
ChDir "C:\Users\FireEquiposSomp\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\FireEquiposSomp\Desktop\holas.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Columns("J:L").Select
Range("L1").Activate
Selection.EntireColumn.Hidden = True

Lo único que debes cambiar es el nombre del fichero, luego cambia esto

"C:\Users\FireEquiposSomp\Desktop\holas.pdf"

por esto otro

"C:\Users\FireEquiposSomp\Desktop & Sheets("Hoja1").Range("B3") & ".pdf"

·

En B3 pon solo el nombre sin punto ni extensión.

Y eso es todo.

¡Gracias! muchas gracias, por su aporte, me ayudo en gran manera

Perdón lo transcribí mal

"C:\Users\FireEquiposSomp\Desktop\" & Sheets("Hoja1").Range("B3") & ".pdf"

Respuesta
1

Tienes que agregar estas líneas, por ejemplo:

Sub Macro10()
'por.DAM
    ruta = ThisWorkbook.Path
    nombre = Sheets("Hoja1").Range("B3")
    ActiveWorkbook.SaveAs Filename:=ruta & "\" & nombre & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Hola, al crear mi macro me crea esta líneas de comando

ActiveWindow.ScrollRow = 1
Sheets("OCFESI").Select
Range("G37").Select
ChDir "C:\Users\FireEquiposSomp\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\FireEquiposSomp\Desktop\holas.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Columns("J:L").Select
Range("L1").Activate
Selection.EntireColumn.Hidden = True

Me podrías ayudar en ver como podría poner lo que me comentas en este lugar o borro esto y pongo lo que me dices

¿

?

La macro quedaría así

Sub guardar()
    ActiveWindow.ScrollRow = 1
    Sheets("OCFESI").Select
    Range("G37").Select
    ruta = "C:\Users\FireEquiposSomp\Desktop"
    nombre = Sheets("Hoja1").Range("B3")
    ChDir ruta
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & "\" & nombre & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Columns("J:L").Select
    Range("L1").Activate
    Selection.EntireColumn.Hidden = True
End Sub
La pregunta no admite más respuestas

Más respuestas relacionadas

Imprimir en PDF macro excel

Tengo un Botón Imprimir en Un formulario macro excel Con el siguiente código: Private Sub Imprimir_Click() Sheets("INFORME").Select Range("A1:I162").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A92").Value, Quality:= _...
1 respuesta

Guardar archivos

Tengo una macro que me permite seleccionar un rango de un una hoja de excel y guardarlo como archivo PDF. Para no sobreescribir el archivo, dado que se guardan en la misma carpeta, quisiera saber si en el momento de guardarlo se puede agregar en...
2 respuestas

Crear PDF de hojas individuales de Excel 2010, con nombre y ruta

Tengo la siguiente macro que me crea un pdf de la hoja activa, con el nombre de archivo de una celda dada y una ruta que incorpore en la macro, pero necesito que la macro cree un pdf por hoja individual, es decir 4 hojas 4 archivos, 10 hojas 10...
2 respuestas

Macro Excel PDF

Me gustaría que me echases una mano, tengo un botón que hace la función de guardar en Formato PDF, pero no sé indicarle la ruta de donde se guarda, por defecto la guarda en Mis Documentos pero me gustaría ponerle yo la ruta pero no sé como, te dejo...
1 respuesta

Como puedo hacer una macro en excel 2007 para guardar una selección como pdf con nombre de una celda

Estoy haciendo una macro en excel para guardar una selección como pdf pero el sig código me marca error definido por la aplicación o el objeto Sub PDF() ' ' PDF Macro ' Worksheets("PRUEBA").Range("B3:M54").Select Range("M3").Activate...
1 respuesta

Macro para exportar a pdf

Les comento, tengo una hoja de calculo en excel y quiero crear una macro para que me exporte a pdf un rango de esa hoja por ejemplo, de la columna A a la M (el resto de las columnas que no la exporte) y a su vez que ese archivo en pdf se me guarde...
2 respuestas

Crear macro para guardar archivo con nombre celda

Tengo un archivo en excel 2007 y necesito crear macro para que me guarde una copia en PDF de la hoja en otra carpeta y que el nombre del nuevo archivo sea el contenido de una celda especifica, en este caso B1
2 respuestas

Macro para dar nombre y pdf

Bon Dia Espero vuestra ayuda 'imprimeix document de pantalla ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "F:\SkyDrive\Factures\Range(F5).pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False,...
1 respuesta

Macro guardar archivo con nombre en celda

¡ Agradecería vuestra ayuda con este tema. Tengo una macro para guardar el archivo excel como un pdf, y funciona correctamente, pero ahora quiero agregar al nombre predefinido del archivo, el valor de una celda fija que contiene una fecha del tipo...
1 respuesta

Macro que Crea PDF y Envía El PDF por Outlook

De la manera más amable solicito ayuda, ya he creado una macro que me permite hacer un archivo en PDF, lo que requiero es que el archivo que fue creado sea enviado vía por medio de Outlook. Adjunto código de la macro para crear el PDF. Sub...
1 respuesta