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.]

1RESUELTO MACRO PARA GUARDAR COMO .PDF el 30/04/14, 11:52 am

anthuan100


buenos días solicito una macro para guardar como pdf pero con 2 celdas combinadas yo lo tengo así.

Private Sub CommandButton4_Click()
Worksheets("FACTURAS").Range("B2:m26").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" & Range("W6").Value
End Sub

donde ("W6") es la celda seleccionada puedo agregar otra celda para que se combine?
gracias.

2RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 30/04/14, 12:20 pm

jhon1904


hola anthuan100

este es un codigo me regalo un amigo para un trabajo espero te sirva
Worksheets("FACTURAS").Range("B2:m26").Select
ChDir "D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" 'crear el documento pdf (su nombre se toma de la celda w6)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" & "Factura Venta N°" & Range("W6") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False



saludos,

3RESUELTO Consulta nueva Jhon el 30/04/14, 01:14 pm

anthuan100


Disculpa Jhon1904

Pero ya dispongo de lineas así, sucede que me gustaría poder combinar la celda que tiene el nombre del cliente digamos ("H8") y la celda de numero de factura ("W6") para que se me haga mas fácil la búsqueda en la carpeta. ya que actualmente lo tengo por numero y es horrible poder hacer una busqueda ya que muchas veces los clientes NO conocen el numero del factura o presupuesto asignado.

otra pregunta que te quiero hacer jhon ya que res mas diestro que yo en el area, existe alguna macro para que cuando yo guarde el libro de excel digamos en hoja FACTURA y lo cierre al momento de abrirlo de nuevo me habrá en la hoja MENU siempre y no donde guarde?

4RESUELTO ABRIR EN HOJA DETERMINADA el 30/04/14, 01:30 pm

anthuan100


listo jhon este es el código para abrir en una hoja determinada sin importar donde guardes.

Private Sub Workbook_Open()
Sheets("MENU").Select
End Sub

5RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 30/04/14, 01:42 pm

jhon1904


hola anthuand100

el codigo te queda asi

On Error Resume Next

Worksheets("FACTURAS").Range("B2:m26").Select
ChDir "D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" 'crear el documento pdf (su nombre se toma de la celda T4)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" & Range("h8") & " Factura N° " & Range("W6") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False



espero te sirve

lo otro  tienes que abrir un nuevo tema y subir un ejemplo para mirar que es lo que necesitas,

saludos

6RESUELTO LISTO JHON MUCHAS el 30/04/14, 02:42 pm

anthuan100


JHON muchas gracias de verdad, si gustas te envió lo que he hecho para que lo tengas es un micro sistema de ventas con control de clientes y productos ( inventario) se puede agregar tiene facturas tiene pro formas y presupuestos.


Disculpa la molestia pero como agrego un 3r rango o celda?
 me diste este D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" & Range("h8") & " Factura N° " & Range("W6") & ".pdf








YO LO COLOQUE DE LA SIGUIENTE MANERA
D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\"& Range("AE6") " Range("h8") & " PRO-FORMA N° " & Range("X6") & ".pdf




gracias disculpa las molestias causadas

solucionado



Última edición por anthuan100 el 30/04/14, 03:01 pm, editado 1 vez

7RESUELTO SOLUCIONADO el 30/04/14, 03:00 pm

anthuan100


disculpa ahora la pregunta es la siguiente la celda que deseo colocar es de FECHA la cual cambie con el comando =HOY() pero no la guarda ni siquiera guarda el archivo que puedo hacer

8RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 30/04/14, 03:08 pm

jhon1904


hola athuan100

la fecha no la guarda en ese formota, la macro no la reconoce

pero si quieres agregale la fecha pon asi el codigo

Replace(Range("AE6,"/","-")

espero le sirva

saludos,

9RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 30/04/14, 03:11 pm

jhon1904


hola,

el rango que te puse es la celda donde tiene la fecha

saludos

anthuan100


D:\Dropbox\CORPOTECH\FACTURAS\PRESUPUESTO\" Replace(Range("AE6,"/","-") & Range("h8") & " PRESUPUESTO N° " & Range("W6")  & ".pdf", Quality:= _

11RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 30/04/14, 06:54 pm

jhon1904


hola, athuan100

 

ya usted mirara si la fecha te sale al comienzo o al final, a la hora de guardar el archivo 
te paso el codigo como te va quedar
On Error Resume Next

Worksheets("FACTURAS").Range("B2:m26").Select
ChDir "D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" 'crear el documento pdf (su nombre se toma de la celda T4)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Dropbox\CORPOTECH\FACTURAS\FACTURAS-DIGITALES\" & Replace(Range("AE6,"/","-")&Range("h8") & " Factura N° " & Range("W6") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False



espero te sirva
saludos,

12RESUELTO NOP el 30/04/14, 07:25 pm

anthuan100


Disculpa pero ya lo había colocado así e inclusive copie tu código y envía error de sintaxis te subo el archivo de verdad ya te he quitado mucho tiempo si puedes de otra forma se quedara así.
Archivos
NOP.xlsm
No tienes los permisos para descargar los archivos.
(251 KB)

13RESUELTO RESUELTO el 01/05/14, 09:10 am

anthuan100


quizás no es lo que esperaba pero lo resolvi cambie la configuración regional de windows y voila funciono hahaha

14RESUELTO muchas gracias el 01/05/14, 09:11 am

anthuan100


muchas gracias por tu apoyo jhon1904, mucho éxito feliz día 

15RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 01/05/14, 10:11 am

jhon1904


hola anthuan100

bueno de igual de subo el archivo

saludos
Archivos
NOP (1).xlsm
No tienes los permisos para descargar los archivos.
(252 KB)

16RESUELTO GRACIAS JHON el 01/05/14, 10:32 am

anthuan100


buenos días jhon como amaneces? te informo que me sale en rojo da error yo le di muchas vueltas ayer por la noche y la unica solucion que consegui fue cambiar la región de mi pc por otro lado jhon existe alguna forma de hacer que una celda me muestre toro un texto sin pulsar doble click?

17RESUELTO Re: MACRO PARA GUARDAR COMO .PDF el 01/05/14, 10:45 am

mayor311


hola anthuan100
que pena que me intrometa en el tema



la unica forma de hacer lo que pides es

Columns("a:e").EntireColumn.AutoFit
Selection.ColumnWidth = 24.5


saludos

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.