UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

edwinjo


Buenas tardes Estimados,
Mucho les agradeceria su ayuda con el siguiente codigo
Sub ReportePDF()
On Error Resume Next
    Sheets("COMPROBANTE").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "e:\Documents and Settings\cellphone\Mis documentos\claro tv materiales\PEDIDOS TECNICOS\" & Trim(InputBox(" Ingrese el nombre del reporte a generar ", "REPORTE")) & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub
podrian Indicarme por favor, que debo cambiar para que el nombre lo tome de la celda D9 y M10
y que le ponga pedido de (tome el nombre de D9) # (lo tome de (m10), debera escribir la palabra pedido y el simbo # y tomar los datos de las celdas d9 y m10, respectivamente, por el momento se lo escribo en el impubox, ya no lo llevaria

Gracias
edwinjo

JoaoM


Acabo de entrar y leo esto

study  Al efectuar tus consultas debes cumplir lo siguiente: study

cheers 1.- Da un saludo: Buenos días, tardes, noches o simplemente hola.
2.- Escribe un título que resuma tu pregunta y especifica sub-foro (Fórmulas, Macros, etc.), se claro y concreto en la pregunta y no estarla cambiando. No uses las palabras urgencia en cualquiera de sus variantes, ni problema; sabemos que lo requieres lo más pronto posible.
3.- Adjunta un archivo, sólo unos renglones, no debe ser mayor a 250 Kb.
4.- No hagas tu pregunta en temas de otros usuarios, abre tu propio tema.
5.- Estar pendiente de tu consulta. Al darte respuesta y si en un plazo de 3 días no respondes, se cierra tu tema.
6.- Informa si te fue útil o no la respuesta. Al estar solucionado, tilda el ícono Resuelto.
7.- Agradece las respuestas que se te hayan aportado, te hayan servido o no.
8.- No preguntes como subir un archivo, imagen, video o activar el ícono de resuelto. Para ello están los tutoriales.
9.- Si tienes una pregunta sin contestar cuando ya se te dió respuesta, NO debes hacer otra, si lo haces se cierra tu tema. affraid

Comparto esta macro que me facilitaron y hace lo que describes
Código:
Sub PDF()

'Por.Dante Amor
    ruta = ThisWorkbook.Path & "\"
    arch = Sheets("Hoja1").[A2]
    Sheets("Hoja1").ExportAsFixedFormat _
        Type:=xlTypePDF, Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Escribe eb A2 lo que quieras, el libro sale con nombre de l oque este escrito en A2 (puedes cambiar A2 por la tuya)
Guarda el libro PDF en la misma carpeta donde tienes el origen.
Si lo quiers guardar en alguna otra ruta, modifica en
ruta = ThisWorkbook.Path & "\"
Ej.:  ruta = "C:\fuentes" & "\"
o
Ej.:  ruta = "C:\fuentes\"

3RESUELTO excelente el 30/05/15, 12:54 pm

edwinjo


Gracias,
disculpas por agradecer hasta este día, pero no se porque razón, no podía entrar al foro aunque, la respuesta la recibí el mismo día, tuve problemas de una baja de energía y no podía entrar al foro, gracias son muy amables
edwinjo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.