Macro para convertir a PDF con nombre concreto

[lanato]

Hola amigos, bien mi problema es que he hecho una macho que convierte una hoja a PDF y la hubica en un lugar (Carpeta mis documentos), bien yo necesito saber si se puede automatizar el nombre o se...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JUAN CARLOS GONZALEZ]

Hola amigo, puedes usar un código como el siguiente:

'Voy a suponer que harás una concatenación de las dos celdas en AA1, por ejemplo:
'En AA1 pones =Texto(A1&B1,"MMMM")
Dim NombreArchivo As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JUAN CARLOS GONZALEZ]

Disculpa me faltó una parte:
'Voy a suponer que harás una concatenación de las dos celdas en AA1, por ejemplo:
'En AA1 pones =Texto(A1&A2,"MMMM")
Dim NombreArchivo As String
NombreArchivo =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lanato]

Hola Juan Carlos, no se como ocurrio pero se duplico mi pregunta en el foro y otro compañero ye me contesto antes, pero tu solución me gusta más, es perfecta, solo tengo dos dudas

1.- si una de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JUAN CARLOS GONZALEZ]

En sana teorí­a no tiene que darte error si pones una fecha porque quedarí­a como si fuera un texto combinado.
Tendrí­a que ver si tienes código ántes para ver cómo llamas el libro.

 

[galileogali]

este formato es inadmisibel para Nombres de ARCHIVO 19/12
PUEDES USAR 1912, 19-12, 19.12,PERO NO "/"

 

[lanato]

No me explique bien Galileogali, tengo una macro que hace el PDF, con este codigo en el Workbook

Private Sub Workbook_Open()

[b1] = ActiveSheet.Name
[b2] = ThisWorkbook.Name

End Sub

saco el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lanato]

Hola Juan Carlos, mira la respuesta que le doy a Galileogali, a ver si me podeis ayudar

 

[galileogali]

el xlsm, desconoxzco forma de evitarlo
no veo tu archivo pero para obtener la cadena en lugra del serial de fecha
Format(TuVariableeldia,"dd-mm-yyyy")

 

[galileogali]

lo del xlsm, realmente no lei bien tu planteo, asi que no tomes en cuenta mi respuesta anterior en ese punto....

 

[lanato]

gracias, gali es perfecto

 

[lanato]

gracias, gali es perfecto

 

[JUAN CARLOS GONZALEZ]

Hola lanato, tienes que modificar la fórmula de la celda B6 y ponerla de esta forma:
=B1&" - "&AQ16&" - "&B2&" - "&TEXTO(B3,"dd-mm")

Con esto te sale el nombre como quieres.

Nota para...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Juan Carlos:
quiero entender y no lo logro: Yo solo dije que este nombre 19/12 no resulta admisible, mientras que estos si 19-11, no por una cuestion de "usos y costumbres", sino porque...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

perdon:
quise escribir
"le guste o no a los "clientes""

 

[Taty]

Hola, justamente necesito guardar unos archivos excel en pdf y utilizando lo anterior mencionado me marca error en xlQualityStandard
Creo que es por que yo tengo excel 2003.... y cambie...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[zadaf_29]

Estimado Lanato, este módulo me ha servido mucho y espero que te ayude:

nombre = Hoja1.Cells(9, 7).Text

ChDir "D:\Río Bravo"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Totooo]

Hola Mira recien estuve armando un archivo y uno de los botones era el de Convertir a PDF te dejo mi Cod el cual resolvio el problema que tenes.

Sub Pasar_a_PDF()


On Error GoTo SOLUCION

Dim...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí