Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited

Everything posted by lphant

  1. Buenos dias; Perdonar que conteste tan tarde, me quede sin ordenador. Muchas gracias a los 3, ahora mismo pruebo lo que me habeis pasado Un saludo,
  2. Buenas tardes [email protected]; Quien me puede ayudar a intentar hacer lo siguiente: En un libro Excel tengo 2 hojas, una se llama “seguimiento” y la otra se llama “datos”. Lo que necesito es que la hoja “seguimiento” se actualice con los datos de la hoja “datos”. Los datos comunes entre las hojas serias: En la hoja “seguimiento” la fila 2 y en la hoja “datos” serian la columna A. Gracias J Libro1.xls
  3. Buenos dias [email protected]; Perdonar que vuelva a molestar pero todavía no he dado con ello. He investigado por internet y lo que he encontrado no hacia lo que necesito. Resumen de los 2 puntos que no consigo hacer funcionar: Cuando se habrá el Word desde la macro Excel actualice los datos de correspondencia ( al abrir el Word sale un mensaje para continuar dando a sí o no, hay que dar a sí ). Una vez abierto imprimir todas las hojas de correspondencia. Se puede hacer??, si no se pudiera que me aconsejáis??, desde la grabadora de Word tengo las líneas pero no quería tener una macro en Word. Muchísimas gracias de antemano.
  4. Muy buenas a [email protected]; Esto de no tener ahora ordenador en casa es una faena, no me puede meter todo lo que quisiera A ver quién me puede ayudar en la nueva macro en la que estoy liado J Os hago un pequeño resumen. Tengo una macro en excel a la que añadiendo diferente información de diferentes tablas me genera unos datos en un hoja Excel. Esa hoja Excel con los datos generados los tengo vinculados a un Word por correspondencia. Ahora mi problema es: La parte de abrir el Word y cerrarlo sin que se vea ok. Pero la parte de que se actualice la hoja de Word ( cuando se abre la hoja sin la macro aparece una pantalla en la que dice que se está ejecutando el comando SQL que si deseas continuar ) dando a que sí y que se impriman todos los documentos de correspondencia ( en Word para imprimir esos documentos se da a “finalizar y combinar”, “imprimir documentos” ) no lo consigo. Os añado el Excel con la parte del Word que funciona. Private Sub Abre_word_imprime_cierra() With CreateObject("word.application") .Visible = False With .Documents.Open("C:\Users\Varios\Platillas & Carteles\Tarjetas.doc", , , , "casa") .PrintOut ' solo imprime la primera hoja .Close False End With .Quit End With End Sub Gracias de antemano. macro word.xls
  5. Gracias a los 2 por contestar. doy el tema por cerrado un saludo,
  6. Buenos días a [email protected]: No sé si alguien me podrá decir el porque de lo que me pasa. Llevo toda la mañana volviéndome loco al intentar llamar una serie de macros desde un módulo con la función "aplicación.run". Algunas macros que llama esta función si las ejecuta pero hay otras que no, da error 1004 ( la macro no está disponible o está deshabilitada ). Despues de casi 3 horas cambiando cosas y tal, me he dado cuenta que da el error por el nombre del módulo, lo que no entiendo es porque unas si las ejecuta y otras no. Alguien podría arrojarme algo de luz??. La solución que por ahora tengo es ir cambiando el nombre del módulo hasta que no de error. gracias a [email protected] Pd: no subo archivo porque no tengo internet en el PC, estoy con el móvil
  7. Buenos días [email protected]; Que tal lo lleváis??. yo sigo liado intentando hacer lo que os comente sin éxito. No se cómo hacer para se pongan todos los datos que se encuentren de un código de la hoja 2 en la hoja1 en horizontal. No se os ocurre nada??. Muchas gracias de antemano.
  8. buenos dias a [email protected] Alguna alma caritativa que pueda ayudarme es hacer esto que veo imposible muchas gracias a [email protected] un saludo,
  9. buenos dias Diego9019; muchas gracias por contestar. lo que me has pasado no me sirve. te lo agradezco. un saludo,
  10. Buenas tardes; Quien me puede ayudar??, no sé ni por donde comenzar. Voy a intentar explicaros lo que intento hacer. En la pestaña “Hoja1” quiero tener una especie de resumen de lo cubierto y la situación ordenado por estado. En la pestaña “Hoja2” estará la base de datos de dónde coger la información. El funcionamiento que quiero si se puede seria el siguiente: Buscar el código marcado en amarillo de la “Hoja1” en la base de datos e ir rellenado en horizontal todo lo que se encuentre de ese código en la “Hoja2” colocándolos por orden descenciente ( la situación siempre comenzara por un numero). Una vez relleno para volver a actualizar, tener la posibilidad de borrar todas las celdas que no tengan la situación “3-nico”. Gracias de antemano. Libro1.xls
  11. Buenos días Compañ[email protected]; Hace un tiempo puse una consulta de cómo se podría guardar los cambios producidos en una pestaña sin guardar los cambios de las demás. Funcionaba muy bien pero para el excel que lo necesito ahora me está dando muchos problemas ( lentitud, fallos en cierre, etc…). Sería posible, lo contrario, es decir, que guarde todos los cambios producidos en las pestañas menos en la que yo especifique. Os adjunto el que me pasaron. Muchas gracias y un saludo, Cambios en hojas.xls
  12. ahora si jejeje... muchas gracias Antonio
  13. muchas gracias Antonio, hoy no tengo ordenador pero mañana sin falta lo pruebo. un saludo,
  14. Con esto he conseguido que funcione pero no me gusta del todo, se os ocurre alguna otra forma??. On Error GoTo Line RutaArchivo = "\\ENTREGA " & año2 & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ RutaArchivo & "Entrega ",Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False On Error GoTo 0 Exit Sub Line: On Error GoTo -1 On Error GoTo Errhandler RutaArchivo = "\\S\ENTREGA " & año2 & "\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ RutaArchivo & "Entrega",Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False On Error GoTo 0 Exit Sub Errhandler: Mensaje1 = MsgBox("CREAR LA NUEVA CARPETA PARA EL AÑO CORRESPONDIENTE EN:" & vbCrLf & _ " ..\ENTREGA" & vbCrLf & vbCrLf & _ " SI LA CARPETA ESTUVIERA CREADA, GUARDAR MANUALMENTE Y AVISAR DEL ERROR.", vbInformation, "NO EXISTE LA CARPETA") Application.ScreenUpdating = True End Sub
  15. Buenos días: Tengo un pequeño problemilla con el tema del guardado automático en PDF, me podeis ayudar??. Os explico un poco: Tengo una macro que guarda automáticamente el archivo excel ( en formato pdf ) en la dirección/carpeta que aparece en la macro, cuando da error al intentar guardar en esa dirección/carpeta muestra un mensaje de error, El problema que tengo ahora es que no todos los usuarios tienen acceso a esa carpeta y necesito poner 2 direcciones, es decir, que al intentar guardar primero pruebe en la dirección 1, si no da error que finalice el proceso, si da error que intente guardar en la dirección 2, si no da error que se finalice el proceso, y si da error en las 2 direcciones que salte un mensaje de aviso. Muchas gracias. libro5.xls
  16. muchas gracias Alfonso, eres un maquina, esta tarde lo pruebo. un saludo,
  17. Podría valer, si lo que quiero es eliminar la formula de la plantilla para rapidez, etc…yo sigo intentando modificar el que he pasado pero sin éxito.
  18. Buenos días Alfonso; En este ejemplo son igual pero la intención es que cada pestaña tenga unos datos de cabecera diferente. un saludo,
  19. Alfonso, ya lo he probado y va genial pero para lo que yo quería me no me vale. he encontrado por internet una macro que busca en todo el libro un dato y te devuelve según cabecera, el problema que toma como referencia el primer texto que encuentra y a partir de hay hacia abajo hasta que encuentra una celda vacía, yo tendría cada cabecera en columnas y líneas diferentes, me podéis echar una mano??. muchas gracias de antemano. Buscar.xls
  20. Qué faena, no puedo probarlo hasta el lunes, estoy sin ordenador de ruta por la montaña. El lunes a primera hora lo pruebo. Muchísimas gracias Alfonso
  21. Buenos días; Estoy intentando mejorar unos archivos excel pero me he quedado un poquito pillado. Estoy intentando quitar las formulas de búsqueda que aparece en la macro del excel adjunto, las formulas lo que hacen es buscar lo que aparece en la columna A de la hoja 1 en la hoja Articulos y devolver datos de la hoja artículos, supongo que será fácil pero estoy atascado, me podéis echar una manita muchas gracias de antemano y un saludo, Libro1.xls
  22. Da error cuando pulso la x de cerrar en la siguiente línea: " Kill ThisWorkbook.Path & "\Soporte2-" & ThisWorkbook.Name " Cuando pulso el botón de guardar funciona bien. un saludo y gracias. Libro1.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png