Estimado, me sale el siguiente error: Compile Error: User-defined type not defined y me resalta la fila de Sub crearDoc(datosEmpleado As Empleado) Cómo podría arreglarlo? Muchas gracias de antemano.
@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!
@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!
Por que me crea la primera carta pero al crear la segunda los marcadores de word dejan de existir y por ende me arroja error de que no encuentra los marcadores en el archivo word, Si me pudieras ayudar seria de gran ayuda saludos
me salvaste la vida, tenia que redactar 350 informes de desempeño con esto me liberaste para poder estudiar para el siguiente arcial ! muchas gracias!!!!
Gracias por compartir! si quieren que les lea automaticamente la ruta, copien y peguen en la celda C4 la siguiente formula =EXTRAE(CELDA("nombrearchivo");1;LARGO(CELDA("nombrearchivo"))-HALLAR("[";CELDA("nombrearchivo")))
este video me ayudo a resolver un problema que tenia y pude realizar un archivo de excel que me llene 3 documentos de word y los datos los obtiene desde una tabla en excel, ahora me ahorrare demasiado tiempo gracias a ti brother
Excelente video, me gustó mucho por que esto es una alternativa de la función correspondencia de word. Que lo malo de ahí es que tiene limitado la base de datos que se carga desde excel y si quieres guardar el documento en pdf, te hace un solo documento con todo. Tengo una tarea a realizar para más de 300 registros con cerca de 600 columnas pero creo que mapeando uno me ahorraré todo. Gracias por tu ayuda y espero regresar pronto a la comunidad como me fue. Saludos
MUY Bueno, llevaba dias haciendolo de manera artesanal, pasandolos a rtf ejecutando una macro pero nunca tan sencillo como te quedo a ti! como q unificaste 10 videos q vi los ultimos dias en 1
¡Hola! podrías aplicar un filtro y después de ello solo hacer que la macro trabaje con las filas visibles con la propiedad xlCellTypeVisible. ¡Saludos!
Muchas gracias por el video. Quería preguntar si es posible hacer varias macros dentro del mismo excel y que tengan botones diferentes, así usar condensar 3 automatizaciones en un único excel
Hola, muchas gracias por compartir y enseñar a simplificar nuestras tareas, tengo una pregunta y te agradecería mucho si me puedes ayudar, mi intención es crear una carpeta por cada empleado (el nombre de la carpeta seria el nombre del empleado) que hay en la tabla y dentro de esta carpeta se genere o se grabe unicamente el archivo pdf ? Muchas gracias por tu ayuda
Acabo de descubrir el error. No se trata de asignarle un nombre sin más a la tabla DATOS. Como hace con la RUTA y el ARCHIVO. Se trata de crear una Tabla-Tabla, que sí es un objeto. Y después llamarla Datos. Si no, VBA no encentra dicho objeto. Es decir, no podemos crear la tabla sin más, como un RANGO DE DATOS. Hay que poner los datos y a continuación crearlos como tabla. (Es la opción que hay junto al icono de crear Tabla Dinámica (pestaña INSERTAR), pero la que se llama TABLA a secas. Eso sí lo convierte en objeto y entonces sí se puede referenciar desde VBA.
Es correcto, te felicito por tu resolución, los errores son algo muy común cuando desarrollamos macros así que el ser autodidactas e investigar el por qué del error nos ayudará a mejorar cada vez más!! Saludos!!
¡Hola! Te recomiendo darte una vuelta por este video, en el primer comentario dejo el código de la función para ingresar datos al encabezado de word. ¡Saludos! ua-cam.com/video/VQO6PEefZUA/v-deo.html&ab_channel=InteligenciaEficiente
¡Hola! Para mejorar los tiempos podrías intentar implementar el comando Application.ScreenUpdating = False y Application.DisplayAlerts = False. Esto hará que la pantalla deje de mostrar el proceso lo que puede ahorrar unos segundos.
Excelente. Solo que la sintaxis en VBA cambia para las versiones más recientes de Excel. Por otro lado, cuando son una gran cantidad de archivos, la macro demora en ejecutarse :/
Hola Ricardo, ¿Me podrías decir qué cambios pudiste notar en la sintaxis de VBA? Quizá de esa manera podríamos saber qué es lo que ha cambiado ya que esta macro la he trabajado en Excel 2010, 2016 y 365 sin cambios. Sobre el tiempo de procesamiento es posible que demore, pero aún así será menor que hacerlo manualmente. ¡Saludos y gracias por comentar! :D
gracias bro y si son 2 archivos con textos diferentes en el word pero lo mismos datos de excel, ejmplo que cree un archivo contrato y una constancia, con un solo clic, como agregaria otro word?
Hola. Mi sugerencia es que adiciones dos campos a la tabla datos: carpeta (RUTA) y nombre documento (DOC), y en "Type Empleado" adiciona estos dos datos: Ruta as String, Doc as String. Asimismo, en el For each adicional estos datos.
Podrías generar dos suburtinas, una que genere el contrato y otra que genere la constancia, al dar click en el botón llamarás a una macro que ejecutará ambos procesos con el comando Call. www.excel-avanzado.com/10882/que-es-call-en-vba-y-como-se-usa.html
¡Hola! Muchas gracias por comentar, actualmente no cuento con un video pero lo añadiré a la lista. ¡Saludos! Puedes contactarnos al correo en la descripción para asesorías o desarrollos personalizados. :D
Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambair el codigo.Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambiar el codigo??
¡Hola Jorge! Eso es algo nuevo, la verdad tendría que checar tu caso en particular, puedes enviarme correo a inteligenciaeficienteYT@gmail.com para poder revisarlo. ¡Saludos!
Gravias por tu apoyo, tengo un inconveniente me sale el error 5174 en tiempo de ejecucion: NO HEMOS PODIDO ENCONTRAR EL ARCHIVO.... cuando ejecuto la macro me sale este anuncio q no encuentra la ruta..q puedo hacer?.
Hola estimado, excelente tu aporte. Mil gracias. Consulta: quiero filtrar 1 sola fila y solo genere ese documento .doc o pdf. Vi abajo que utilizas la instruccion xlCellTypeVisible. Me gustaria saber como se implementa. Probe algunas opciones pegandola en el codigo y me tira un error. Desde ya muchas gracias.
Dim nFila As Range For Each nFila In tabla.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows datosEmpleado.nombre = nFila.Cells(1, 1) datosEmpleado.puesto = nFila.Cells(1, 2) '.... Así con los demás Next
@@InteligenciaEficiente listo genio!!! ahi en el for Each te falto tablaDatos seria y funciona una maravilla. Mil gracias hermano. Necesito aprender mas sobre esto. Me podes ofrecer un curso para aprender a programar a nivel avanzado? nunca vi visual Basic
Buenas noches! Gracias por compartir tus videos.. Tengo una consulta ¿tienes algún video donde expliques como se hace el formulario previo al envío de información a varios documentos en Word?
Hola Kleidy, si te refieres a la tabla, aquí te dejo más info sobre como crear una tabla en Excel, saludos!! :D support.microsoft.com/es-es/office/crear-una-tabla-en-excel-bf0ce08b-d012-42ec-8ecf-a2259c9faf3f
@@InteligenciaEficiente Muchas gracias por tu respuesta!, pero no me supe explicar, me refiero a como haces la conexión del botón para que se generen los documentos
como le hago para que solo me genere el documento dependiente de los registros que tenga en la tabla es decir si filtro la informacion de la tabla y solo tengo una fila solo genere un documento y si filtro y ahora tengo 5 solo genere los documentos de los datos que tenga filtrado
Una consulta si la lista de datos que tengo no esta en filas, sino por el contrario esta en columnas como seria la formula para que tome el rango hacia la derecha?
Hola Jenny, habría que hacer unos pequeños ajustes para que el recorrido sea por columna y no por fila, si gustas puedes compartirme tu macro al correo que dejo en la descripción y con gusto te ayudo :D
Hola! muchas gracias Intento ejecutar la macro pero se me presenta un error "9" en tiempo de ejecución, ya intente solucionarlo de una y mil formas pero nada funciona. Puedes ayudarme por favor
hola me gusta que bien explicas!, una pregunta me puedes decir por que este error --> no se ha definido el tipo definido por el usuario Sub crearDoc(datosEmpleado As Empleado) Dim objWord As Word.Application
Mi estimado... con mi saludo previo... quiero hacerle una consulta.... que generar los contratos pero de manera individual y NO masivamente.... ¿como hago??
Hola muchas gracias por el aporte, una pregunta hay forma de que genere los documentos pero con filas que se muestre despues de aplicar un filtro de la tabla? básicamente que me genere las filas visibles del documento?
Claro que sí, te comparto un ejemplo de un ciclo a través de celdas visibles. Sub SpecialLoop() Dim cl As Range, rng As Range Set rng = Range("A2:A11") For Each cl In rng.SpecialCells(xlCellTypeVisible) Debug.Print cl Next cl End Sub
@@InteligenciaEficiente Hola! en qué parte de la macro debo agregar este ciclo? también me gustaría generar solo documentos de lo que se vea después de agregar un filtro
Hola! tus videos me sirven muchisimo, tengo una duda. Yo quiero que se genere una carta en el mismo documento de word (una por cada pagina) por cada fila en el excel. No deseo que se guarde en documentos aparte cada fila sino que se guarde todo en un solo documento. Como podria ahcer eso?
Hola Kevin, tendías que modificar un poco la lógica de la macro. No es algo que pueda ponerte en un comentario ya que hay que cambiar varias cosas, puedes contactarme al correo en la descripción para revisar este detalle, saludos!!
Muchísimas gracias, tu video me ha ayudado a intentar hacer algo similar, solamente que tengo un problema, en mi tabla de Excel quiero que haya celdas celdas ocultas pero al momento de generar el documento de Word, los datos de estas celdas ocultas no se visualizan, ¿sabrías como poder hacer que los datos de las celdas ocultas también se tomen en cuenta al generar el documento de Word?
Gracias por compartir, una consulta: si borro el numero 17 de la linea del código resaltado en el minuto 12:00 sucede algo?, que función cumple ese 17?
Hola Edgar, ese número corresponde al parámetro wdSaveFormat donde el valor 17 significa que será PDF por lo que es importante tenerlo, también es posible cambiar el 17 por wdFormatPDF ya que tienen el mismo valor o sea wdFormatPDF = 17, te comparto la información sobre los diferentes formatos que se pueden utilizar. docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat
En correspondencia Si quisiera hacer en Word con una tabla, con el fin llenar varias celdas de dicha tabla, en relación a un solo dato extraído de un Excel , que coincide con toda la información de la tabla del Excel, ejemplo una fecha, y que llene automáticamente la tabla del word, todos aquellos datos tales como nombre , modelo , precio, color, ubicación, etc que tiene la fecha en común Se pueda enviar al Word en control de correspondencia. ¿Como puedo hacerlo.?
¡Hola! Esto es una necesidad muy particular, podríamos revisarlo en una sesión de asesoría personalizada si gustas. Puedes enviarme correo al mail en la descripción. ¡Saludos! :D
Hola, muchasa gracias por el valioso aporte. Al ejecutar la macro se genera un error "13" en tiempo de ejecucion: no coinciden los tipos. Puedas ayudarme por favor. Gracias
¡Hola! Con gusto puedo apoyarte, puedes contactarme por correo a la dirección que dejo en la descripción del video para poder revisarlo a detalle. ¡Saludos!
Buen día, excelente video, tengo una duda, cómo le puedo hacer para que en un solo archivo de Word queden las constancias de los trabajadores 1 a 4 con su respectiva información. Muchas gracias de antemano.
Simplemente haces una combinación de correspondencia, y al finalizar escoges la opción guardar como documentos diferentes, y te los guarda en un sólo archivo. No requiere macro.
Hola, una consulta, cómo puedo hacer para que la macro aparte de que me tome los valores me pegue una tabla en cada archivo o que cuando se esté pegando en los datos en el archivo base enseguida me pegue una tabla. Muchas gracias
tengo un Error en "For each fila in tablaDatos.ListRows" la palabra dato la tengo que cambiar por lo que yo tengo en mi hoja de excel? en mi caso, todo los datos de la tabla se llaman "Tabla1"
Hola! tengo office 2016 y sirvio genial, pero al colocarlo en la lapto de un colega con office 2010 y la version de libreria 14, tengo un problema al crear el Word , se tranca aqui " Set objWord = New Word.Application"
¡Hola! En la máquina con Office 2010 puedes cambiar las declaraciones de los objetos de la siguiente manera: Dim objWord As Word.Application ---> objWord As Object Set objWord = New Word.Application ---> Set objWord = CreateObject("Word.Application") Si deseas una asesoría más personalizada no dudes en contactarme a mi correo: inteligenciaEficienteYT@gmail.com ¡¡SALUDOS!!
@@InteligenciaEficiente Hola! Me dieron otras tareas y no habia podido probar con este codigo, paso bien el objWord As Object pero luego se tranco en la siguiente donde le dice que abra el word... vamos a actualizar el microsoft office para que tenga la libreria mas actualizada. Gracias! 😅
Nunca he trabajado con VB y probablemente esto sea muy básico pero he copiado la macro cambiando los datos para adaptarlos a mi Excel y me da un error en Dim datosEmpleado As Empleado. Tengo que tener declarado datosEmpleado en algún otro lugar?
Hola, muy buen vídeo! tengo una pregunta, me sale error 91, y revise todo y esta justo como lo explicaste, me podrías ayudar a revisarlo? ya te envié el correo con el Excel, gracias previas.
Está genial, pero lo intente con un equipo que tiene el word 14 en las referencias y no funcionó, que tendría que camiar del código? O no funciona para librerías anteriores a Word 16. Saludos...
Hola! Solo tendrías que buscar en Herramientas >> Referencias >> Microsoft Word 14.0 Object Library y marcar esa casilla para que pueda funcionar, saludos!
Hola! cuando creas un tipo de dato definido por el usuario, como en el caso de este video, ese tipo de dato solo puede ser utilizado en el mismo módulo donde fue creado y tiene que ser un módulo normal, no puede ser de clase o dentro de un formulario. Posiblemente eso esté causando el error. ¡Saludos!
Hola! me genera el siguiente error "se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo y el depurar se coloca en amarillo "Set tablaDatos = ws.ListObjects("PruebaD")" me podrías ayudar. 😐
Hola Joana, con gusto! Si te manda ese error es porque no encuentra la tabla llamada pruebaD, en este link puedes ver las instrucciones para nombrar una tabla en Excel. ¡Saludos! :D support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114
Buenas noches, muchas gracias por el video, me sirvió mucho, sin embargo estoy bloqueado, porque en la parte del encabezado de texto esta macro no lo modifica. ¿Me podrías indicar como hacerlo o podrías hacer un video explicando esta situación? Si es el caso te puedo compartir lo que quiero hacer. De nuevo gracias
Hola muchisimas gracias por el video pero hago tal cual el proceso como lo realizas pero al ejecutar me da error en Sub crearDoc(datosEmpleado as Empleado) porfa tu ayuda para solucionarlo
Buenas tardes, primero muchas gracias por el aporte me es de gran utilidad para mis actividades, sin embargo quiero generar una nueva variable o dato para generar un poco mas automático el tema, tengo cuatro documento diferentes, por lo quiero que en lugar de que genere el documento por una celda especifica quisiera que se genere por una lista de nombre (fila), no se si sea posible con el fin de que genere en automático 4 diferentes archivos en base a la celda que corresponda a la columna ejemplo: diego debe de generar constancia con el formato uno; Jorge con la constancia dos, Jesus con la constancia tres, Victor con la constancia uno, diana con la constancia tres, etcétera.. espero me puedan ayudar.
Hola Diego, claro que se podría, tendrías que agregar un condicional para que dependiendo el caso trabaje en diferentes plantillas, si gustas una asesoría más personalizada puedes mandarme más detalles a mi correo: inteligenciaeficienteYT@gmail.com
Buenas noches, acabo de replicar el ejercicio. Me sale este error: error en intervalo de ejecución y se sombrea en amarillo esta linea Set ws = ThisWorkbook.Sheets("Principal"). Ayuda por favor para entender que pude hacer mal
Hola Jesús, quizá una manera en la que no tengas que modificar tanto el proceso actual sería que al final unieras todos los documentos en uno solo. Si deseas una asesoría o un desarrollo más personalizado puedes contactarme al correo en la descripción. ¡Saludos!
Enorme. Lo único: no queda claro cómo nombras la tabla, a mi me da un error de tipo '9' ( Set tablaDatos = ws.ListObjects("Datos") '----> Nombre de la tabla con los datos )
Tienes razón, es una tabla. Te comparto más información sobre cómo cambiarle el nombre. support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114
Como está esta macro habría que desarrollar 2 campos distintos para cada nombre aunque sean del mismo valor pero te comparto este otro video donde se hace el reemplazo de otra manera más eficiente. ua-cam.com/video/VQO6PEefZUA/v-deo.html&ab_channel=InteligenciaEficiente
hola muchas gracias por compartir su conocimientos, estoy teniendo un Error con esta linea (objDoc.Save2 filename :=...)) me tira el (Error Tiempo de ejecución Error 5152 Este no es un nombre de archivo válido cuando..) estoy usando la librería microsoft word 15 object library... como podría solucionarlo. intente varias maneras pero no me funciono.. desde Muchas Gracias
Hola Juan, verifique que la ruta que esta después de filename de verdad es una ruta válida, seguramente está cometiendo un error al definir esa ruta. Si necesita alguna asesoría más personal puede escribirme a inteligenciaEficienteYT@gmail.com ¡¡Saludos!!
Hola! Al querer correr la macro aparece el error 4198 command failed en la fila de Set objDoc, revise todo y está igual que en el video ¿alguien sabe por qué otra razón se puede dar este error?
¡Hola María! El error 4198 no es muy específico por lo que te puedo apoyar si me compartes más información a mi correo electrónico, el cual podrás encontrar en la descripción de este video. ¡Saludos!
Buenas tardes, Muy buen video, tengo una consulta, me sale un mensaje de Error de compilación: El uso de la propiedad no es válido y en el visual basic me señala en amarillo Sub crearDoc(datosEmpleado As Empleado), me podrías ayudar porfavor, te lo agradecería un montón.
¡Hola! Debes tener algún error en el código, te recomiendo revisarlo minuciosamente, si continúas con problemas puedes enviarme tu macro al correo: inteligenciaeficienteyt@gmail.com ¡SALUDOS!
¡Hola! Agregando estos comandos puedes lograrlo: Dim tabla As Range Set tabla = Worksheets("TuHojaAqui").UsedRange tabla.Copy objDoc.Application.Selection.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False Si requieres algo más sofisticado no dudes en contactarme: facebook.com/InteligenciaEficiente/
@@InteligenciaEficiente Muchas gracias amigo, me fue de mucha utilidad, funciona excelentemente, aunque quisiera saber si existe alguna manera de poder reemplazar el marcador de la hoja de word por la tabla seleccionada en excel
Hola como estas, excelente tu aporte me suscribi a tu canal, por algun motivo en esta linea al ejecutar la macro me genera error Set tablaDatos = ws.ListObjects("Datos"), cuando ubico el cursor encima me dice lo siguiente: ws.ListObjects("Datos)=, agradecería me indicaras en donde esta mi error
Hola Tocayo, me podrías mandar tu archivo por mensaje de facebook a la página para poder revisarlo con mayor detalle? Saludos! facebook.com/InteligenciaEficiente
Te comparto todos los detalles: support.microsoft.com/es-es/office/asignar-una-macro-a-un-formulario-o-un-bot%C3%B3n-control-d58edd7d-cb04-4964-bead-9c72c843a283
Hola, buenos días, intento ejecutar la macro en mi automatización pero me dice "Error en la ejecución de servidor " o también error '5174" porque no ha podido encontrar el archivo Chequé la ruta , el nombre de la hoja de Word pero están correcto, no entiendo qué pasa, les agradecería mucho si me podrían ayudar, por favor
Hola, por favor verifica que hayas agregado un "\" al final de la celda C4 donde escribes la ruta de la carpeta. Me platicas si con eso ya funciona, saludos!!
Primero excelente video, gran ayuda. Pregunta, me ejecuta Perfecto, sin embargo tengo una tabla con 76 registros y solo logra hacer los 13 primeros, luego me sale error “5487”, al parecer es algo de permisos pero no logro resolver, he cambiado los nombres de la lista, borrado algunos, pero sigue saliendo lo mismo. ¿Sabes que podría ser ? Gracias!!
Hola Camilo, quizá debamos ajustar un poco el método de copiado y pegado en la tabla, puedes enviarme tu macro y documento de word por correo para poder revisar y corregir el problema, saludos! :D
Muchísimas gracias por tus videos! Necesito ayuda ya que me está tirando un msj de error (nro 91 "tiempos de ejecución). Ya revisé los marcadores en Word y están Ok. Me podrían ayudar por favor? El código que puse es el siguiente: 'Definir datos Type Contrato RAZON_SOCIAL As String N°CUIT As String DOMICILIO_LEGAL As String CORREO As String FECHA As String End Type 'Macro Sub CrearContrato() Dim ws As Worksheet Dim tabladatos As ListObject Dim fila As ListRow Dim datosContrato As Contrato Set ws = ThisWorkbook.Sheets("Contrato") Set tabladatos = ws.ListObjects("Datos") Application.DisplayAlerts = False Application.ScreenUpdating = False For Each fila In tabladatos.ListRows datosContrato.RAZON_SOCIAL = fila.Range(1.1) datosContrato.N°CUIT = fila.Range(1.2) datosContrato.DOMICILIO_LEGAL = fila.Range(1.3) datosContrato.CORREO = fila.Range(1.4) datosContrato.FECHA = fila.Range(1.5).Text Call crearDoc(datosContrato) Next MsgBox "Proceso finalizado", vbInformation End Sub 'Metodo Sub crearDoc(datosContrato As Contrato) Dim objWord As Word.Application Dim objDoc As Word.Document Dim estaHoja As Worksheet Dim rutaCarpeta As String, nombreDoc As String Set estaHoja = ThisWorkbook.Sheets("Contrato") rutaCarpeta = Range("rutaCarpeta").Value nombreDoc = Range("nombreDoc").Value Set objWord = New Word.Application Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc) objWord.Visible = True With objDoc .Bookmarks("RAZON_SOCIAL1").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("RAZON_SOCIAL2").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("RAZON_SOCIAL3").Range.Text = datosContrato.RAZON_SOCIAL .Bookmarks("FECHA").Range.Text = datosContrato.FECHA .Bookmarks("NroCUIT").Range.Text = datosContrato.N°CUIT .Bookmarks("DOMICILIO_LEGAL1").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("DOMICILIO_LEGAL2").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("DOMICILIO_LEGAL3").Range.Text = datosContrato.DOMICILIO_LEGAL .Bookmarks("CORREO").Range.Text = datosContrato.CORREO End With nombreDoc = "Carta Oferta -" & datosContrato.RAZON_SOCIAL objDoc.SaveAs2 Filename:=rutaCarpeta & nombreDoc 'Para crear PDF objDoc.SaveAs2 rutaCarpeta & nombreDoc & " .pdf", 17
Excelente amigo! Necesito insertar cantidades en moneda Ejemplo: $2,500.50 Al poner las cantidades se importan sin comas ni símbolo de pesos, alguien me puede ayudar?
Hola Elisa, para poder conservar el signo de pesos debes hacer una modidicación al código agregando .Text al final en la siguiente sección para que se vea así: datosEmpleado.nombre = fila.Range(1, 1).Text '
Hola, te comparto más información sobre cómo imprimir los documentos usando VBA: excel-macro.tutorialhorizon.com/vba-excel-open-and-print-the-word-document/
Los invito a revisar la lista de reproducción dedicada a macros entre Excel y Word 👇
ua-cam.com/play/PLDjlwPQyQjdHmhPvviR2rS1-5xrSOMEZQ.html
Estimado, me sale el siguiente error:
Compile Error: User-defined type not defined y me resalta la fila de Sub crearDoc(datosEmpleado As Empleado) Cómo podría arreglarlo? Muchas gracias de antemano.
@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!
@@erickc9781 Hola Erick, cuando creas tu tipo de datos datosEmpleado, este debe de ser lo primero que escribas en el módulo de VBA. Cualquier duda puedes contactarme al correo en la descripción. ¡Saludos!
Por que me crea la primera carta pero al crear la segunda los marcadores de word dejan de existir y por ende me arroja error de que no encuentra los marcadores en el archivo word, Si me pudieras ayudar seria de gran ayuda saludos
me salvaste la vida, tenia que redactar 350 informes de desempeño con esto me liberaste para poder estudiar para el siguiente arcial ! muchas gracias!!!!
Me da mucho gusto saber eso! Mucho éxito en tu parcial!!
Gracias por compartir! si quieren que les lea automaticamente la ruta, copien y peguen en la celda C4 la siguiente formula =EXTRAE(CELDA("nombrearchivo");1;LARGO(CELDA("nombrearchivo"))-HALLAR("[";CELDA("nombrearchivo")))
¡Muchas gracias por comentar y por tu valioso aporte!
Excelente video de muchisma ayuda, Muchas Gracias!! Me ayudo mucho
A la orden Sergio!! :D
este video me ayudo a resolver un problema que tenia y pude realizar un archivo de excel que me llene 3 documentos de word y los datos los obtiene desde una tabla en excel, ahora me ahorrare demasiado tiempo gracias a ti brother
Un gusto leer tu comentario, saludos!! :D
@@InteligenciaEficiente solo tengo una duda, como le puedo hacer para que solo guarde en pdf, ya que lo hago y me edita el documento principal
Excelente video amigo. El mejor que he visto
¡Un gusto leer tu comentario! ¡Saludos!
Excelente video, me gustó mucho por que esto es una alternativa de la función correspondencia de word. Que lo malo de ahí es que tiene limitado la base de datos que se carga desde excel y si quieres guardar el documento en pdf, te hace un solo documento con todo. Tengo una tarea a realizar para más de 300 registros con cerca de 600 columnas pero creo que mapeando uno me ahorraré todo. Gracias por tu ayuda y espero regresar pronto a la comunidad como me fue. Saludos
Te lo agradezco inmensamente! Y lo mínimo que pude hacer en favor es suscribirme
Muchísimas gracias Victor!!
Muchas gracias por compartir este trabajo , es muy útil.
Gracias por tu valioso comentario!
Muchas gracias por compartir su conocimiento. Me ayudará mucho en mis labores.
¡Un gusto leer tu comentario!
MUY Bueno, llevaba dias haciendolo de manera artesanal, pasandolos a rtf ejecutando una macro pero nunca tan sencillo como te quedo a ti! como q unificaste 10 videos q vi los ultimos dias en 1
¡Muy buena la lección, bastante útil, gracias!
Me gustan mucho tus videos tutoriales, por eso me suscribe a tu canal
¡Muchísimas gracias por tus valiosos comentarios!
este video esta infravalorado que poquitos likes!
Este canal está vivo…..
Excelente y muy útil, muchas gracias
Muchas gracias!!! Eres el mejor !
Gracias, saludos!
Gracias por tu gran aporte. Podrías darme una idea de cómo podría seleccionar solo una fila o algunas filas para que no sea todo. Gracias
¡Hola! podrías aplicar un filtro y después de ello solo hacer que la macro trabaje con las filas visibles con la propiedad xlCellTypeVisible. ¡Saludos!
Excelente video, muchas gracias
Muchas gracias por el video. Quería preguntar si es posible hacer varias macros dentro del mismo excel y que tengan botones diferentes, así usar condensar 3 automatizaciones en un único excel
Hola, muchas gracias por compartir y enseñar a simplificar nuestras tareas, tengo una pregunta y te agradecería mucho si me puedes ayudar, mi intención es crear una carpeta por cada empleado (el nombre de la carpeta seria el nombre del empleado) que hay en la tabla y dentro de esta carpeta se genere o se grabe unicamente el archivo pdf ? Muchas gracias por tu ayuda
Demasiado Crack, muchas gracias :D
¡Gracias a ti!
Buenas,
El código da un error 9 en tiempo de ejecución. Subíndice fuera del intervalo. En la línea siguiente
Set tablaDatos = ws.ListObjects("Datos")
Acabo de descubrir el error. No se trata de asignarle un nombre sin más a la tabla DATOS. Como hace con la RUTA y el ARCHIVO. Se trata de crear una Tabla-Tabla, que sí es un objeto. Y después llamarla Datos. Si no, VBA no encentra dicho objeto.
Es decir, no podemos crear la tabla sin más, como un RANGO DE DATOS. Hay que poner los datos y a continuación crearlos como tabla. (Es la opción que hay junto al icono de crear Tabla Dinámica (pestaña INSERTAR), pero la que se llama TABLA a secas. Eso sí lo convierte en objeto y entonces sí se puede referenciar desde VBA.
Es correcto, te felicito por tu resolución, los errores son algo muy común cuando desarrollamos macros así que el ser autodidactas e investigar el por qué del error nos ayudará a mejorar cada vez más!! Saludos!!
Si pude! Le batalle un poquito pero se logro. Muchas gracias.
Excelente! Me da mucho gusto :D
Muy buen video gracias
Excelente!
Excelente, felicidades
Excelente Gracias
A la orden!
hola, excelente video, y cual seria el código para ingresar datos en el encabezado de word
¡Hola! Te recomiendo darte una vuelta por este video, en el primer comentario dejo el código de la función para ingresar datos al encabezado de word. ¡Saludos! ua-cam.com/video/VQO6PEefZUA/v-deo.html&ab_channel=InteligenciaEficiente
para mejorar los tiempos de ejecucion se podra hacer teniendo la plantilla en una hoja diferente en el mismo excel ?
¡Hola! Para mejorar los tiempos podrías intentar implementar el comando Application.ScreenUpdating = False y Application.DisplayAlerts = False. Esto hará que la pantalla deje de mostrar el proceso lo que puede ahorrar unos segundos.
Excelente. Solo que la sintaxis en VBA cambia para las versiones más recientes de Excel. Por otro lado, cuando son una gran cantidad de archivos, la macro demora en ejecutarse :/
Hola Ricardo, ¿Me podrías decir qué cambios pudiste notar en la sintaxis de VBA? Quizá de esa manera podríamos saber qué es lo que ha cambiado ya que esta macro la he trabajado en Excel 2010, 2016 y 365 sin cambios. Sobre el tiempo de procesamiento es posible que demore, pero aún así será menor que hacerlo manualmente. ¡Saludos y gracias por comentar! :D
gracias bro y si son 2 archivos con textos diferentes en el word pero lo mismos datos de excel, ejmplo que cree un archivo contrato y una constancia, con un solo clic, como agregaria otro word?
Hola. Mi sugerencia es que adiciones dos campos a la tabla datos: carpeta (RUTA) y nombre documento (DOC), y en "Type Empleado" adiciona estos dos datos: Ruta as String, Doc as String. Asimismo, en el For each adicional estos datos.
Podrías generar dos suburtinas, una que genere el contrato y otra que genere la constancia, al dar click en el botón llamarás a una macro que ejecutará ambos procesos con el comando Call. www.excel-avanzado.com/10882/que-es-call-en-vba-y-como-se-usa.html
Hola, muchas gracias, ¿se pueden generar varios archivos Excel desde otro Excel?
¡Claro que es posible! Quizá pueda platicarme más por mail, puede escribirme al correo escrito en la descripción del video. ¡Saludos!
Hola como estas, tendras algun video donde te pueda generar un solo doc con cada fila de excel? porfa
¡Hola! Muchas gracias por comentar, actualmente no cuento con un video pero lo añadiré a la lista. ¡Saludos! Puedes contactarnos al correo en la descripción para asesorías o desarrollos personalizados. :D
Que pro!
Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambair el codigo.Hola!, agradecerte por el conocimiento compartido, de verdad que es de mucha ayuda para todos, tengo una consulta en mi tabla quiero agregar imagenes(foto pequeña), y quiero que puedan unirse con el word quisiera saber como podria declarar la variable o cambiar el codigo??
¡Hola Jorge! Eso es algo nuevo, la verdad tendría que checar tu caso en particular, puedes enviarme correo a inteligenciaeficienteYT@gmail.com para poder revisarlo. ¡Saludos!
@@InteligenciaEficiente Estos casos por acá están muy interesantes
Igual me gustaría saber, sé como hacerlo por combinación de correspondencia pero no con marcadores como indics en el video@@InteligenciaEficiente
Disculpa no lo entiendo, esto no es de forma masiva si no de uno por uno.
Alguien sabe como generar archivos individuales de forma masiva?
Gravias por tu apoyo, tengo un inconveniente me sale el error 5174 en tiempo de ejecucion: NO HEMOS PODIDO ENCONTRAR EL ARCHIVO.... cuando ejecuto la macro me sale este anuncio q no encuentra la ruta..q puedo hacer?.
Hola estimado, excelente tu aporte. Mil gracias. Consulta: quiero filtrar 1 sola fila y solo genere ese documento .doc o pdf. Vi abajo que utilizas la instruccion xlCellTypeVisible. Me gustaria saber como se implementa. Probe algunas opciones pegandola en el codigo y me tira un error. Desde ya muchas gracias.
Hola Gonzalo, necesitas modificar el código en esta sección:
Dim nFila As Range
For Each nFila In tabla.DataBodyRange.SpecialCells(xlCellTypeVisible).Rows
datosEmpleado.nombre = nFila.Cells(1, 1)
datosEmpleado.puesto = nFila.Cells(1, 2)
'.... Así con los demás
Next
@@InteligenciaEficiente listo genio!!! ahi en el for Each te falto tablaDatos seria y funciona una maravilla. Mil gracias hermano. Necesito aprender mas sobre esto. Me podes ofrecer un curso para aprender a programar a nivel avanzado? nunca vi visual Basic
Buenas noches! Gracias por compartir tus videos.. Tengo una consulta ¿tienes algún video donde expliques como se hace el formulario previo al envío de información a varios documentos en Word?
Hola Kleidy, si te refieres a la tabla, aquí te dejo más info sobre como crear una tabla en Excel, saludos!! :D support.microsoft.com/es-es/office/crear-una-tabla-en-excel-bf0ce08b-d012-42ec-8ecf-a2259c9faf3f
@@InteligenciaEficiente Muchas gracias por tu respuesta!, pero no me supe explicar, me refiero a como haces la conexión del botón para que se generen los documentos
@@kleidymonsalve2266 Me avisas si esta info te ayuda! ayudaexcel.com/como-asignar-una-macro-a-un-boton/
@@InteligenciaEficiente Muchísimas graciasss!! Esta información es la que necesitaba :)
como le hago para que solo me genere el documento dependiente de los registros que tenga en la tabla es decir si filtro la informacion de la tabla y solo tengo una fila solo genere un documento y si filtro y ahora tengo 5 solo genere los documentos de los datos que tenga filtrado
Una consulta si la lista de datos que tengo no esta en filas, sino por el contrario esta en columnas como seria la formula para que tome el rango hacia la derecha?
Hola Jenny, habría que hacer unos pequeños ajustes para que el recorrido sea por columna y no por fila, si gustas puedes compartirme tu macro al correo que dejo en la descripción y con gusto te ayudo :D
Hola! muchas gracias
Intento ejecutar la macro pero se me presenta un error "9" en tiempo de ejecución, ya intente solucionarlo de una y mil formas pero nada funciona. Puedes ayudarme por favor
Hola Nicole, puede enviarme su macro a inteligenciaeficienteYT@gmail.com para verificarla a detalle. ¡Saludos!
hola me gusta que bien explicas!, una pregunta me puedes decir por que este error --> no se ha definido el tipo definido por el usuario
Sub crearDoc(datosEmpleado As Empleado)
Dim objWord As Word.Application
Pudiste solucionarlo? me salió lo mismo
Hola! Parece que no está habilitada la librería MS Word Object Library, en el minuto 3:00 explico cómo habilitarla :D
@@InteligenciaEficiente tengo el mismo error y aun habilitada la librería MS Word Object Library.
Mi estimado... con mi saludo previo... quiero hacerle una consulta.... que generar los contratos pero de manera individual y NO masivamente.... ¿como hago??
Hola Melchor, quizá este video te pueda servir: ua-cam.com/video/4Xk8rSSuHYc/v-deo.htmlsi=i8OIZDkBZQmiPT1R
Hola muchas gracias por el aporte, una pregunta hay forma de que genere los documentos pero con filas que se muestre despues de aplicar un filtro de la tabla? básicamente que me genere las filas visibles del documento?
Claro que sí, te comparto un ejemplo de un ciclo a través de celdas visibles.
Sub SpecialLoop()
Dim cl As Range, rng As Range
Set rng = Range("A2:A11")
For Each cl In rng.SpecialCells(xlCellTypeVisible)
Debug.Print cl
Next cl
End Sub
@@InteligenciaEficiente Hola! en qué parte de la macro debo agregar este ciclo? también me gustaría generar solo documentos de lo que se vea después de agregar un filtro
este ejemplo lo puedes hacer en lugar de exel con access
¡Claro que sí, de hecho pienso mejorarlo y posteriormente lo escalaré a otras herramientas como Access!
@@InteligenciaEficiente si xq quisiera saber hacer esl mismo con access
Hola! tus videos me sirven muchisimo, tengo una duda. Yo quiero que se genere una carta en el mismo documento de word (una por cada pagina) por cada fila en el excel. No deseo que se guarde en documentos aparte cada fila sino que se guarde todo en un solo documento. Como podria ahcer eso?
Hola Kevin, tendías que modificar un poco la lógica de la macro. No es algo que pueda ponerte en un comentario ya que hay que cambiar varias cosas, puedes contactarme al correo en la descripción para revisar este detalle, saludos!!
Muy bueno
Muchísimas gracias, tu video me ha ayudado a intentar hacer algo similar, solamente que tengo un problema, en mi tabla de Excel quiero que haya celdas celdas ocultas pero al momento de generar el documento de Word, los datos de estas celdas ocultas no se visualizan, ¿sabrías como poder hacer que los datos de las celdas ocultas también se tomen en cuenta al generar el documento de Word?
Hola Gellert! Podrías mandarme un correo con tu macro a inteligenciaeficienteYT@gmail.com para ver cómo puedo ayudarte con ello. Saludos!! :D
@@InteligenciaEficiente Cual fue la solución??
Gracias por compartir, una consulta: si borro el numero 17 de la linea del código resaltado en el minuto 12:00 sucede algo?, que función cumple ese 17?
Hola Edgar, ese número corresponde al parámetro wdSaveFormat donde el valor 17 significa que será PDF por lo que es importante tenerlo, también es posible cambiar el 17 por wdFormatPDF ya que tienen el mismo valor o sea wdFormatPDF = 17, te comparto la información sobre los diferentes formatos que se pueden utilizar. docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat
@@InteligenciaEficiente muchas gracias
¿Es posible hacer eso para informes en los que tenga muchas fórmulas (cada una depende de la anterior) con el desarrollo completo hasta el resultado?
Sí es posible, porque solo se estaría tomando el valor del resultado de cada celda :)
@@InteligenciaEficiente¿incluso si las fórmulas son en látex?
Buenas tardes cordial saludos desde Colombia. ¿Dónde se podría conseguir ese código de programación? Muchas gracias
Hola Tommy, en la descripción del video puedes descargarlo, saludos!!
En correspondencia Si quisiera hacer en Word con una tabla, con el fin llenar varias celdas de dicha tabla, en relación a un solo dato extraído de un Excel , que coincide con toda la información de la tabla del Excel, ejemplo una fecha, y que llene automáticamente la tabla del word, todos aquellos datos tales como nombre , modelo , precio, color, ubicación, etc que tiene la fecha en común Se pueda enviar al Word en control de correspondencia. ¿Como puedo hacerlo.?
¡Hola! Esto es una necesidad muy particular, podríamos revisarlo en una sesión de asesoría personalizada si gustas. Puedes enviarme correo al mail en la descripción. ¡Saludos! :D
Hola, muchasa gracias por el valioso aporte. Al ejecutar la macro se genera un error "13" en tiempo de ejecucion: no coinciden los tipos. Puedas ayudarme por favor. Gracias
Hola John, puedes enviarme un correo mostrándome más detalles del error que te aparece a: inteligenciaeficienteyt@gmail.com
Ayuda algo estoy haciendo mal la macro no me funciona y sale depurar,, finalizar, ayuda
¡Hola! Con gusto puedo apoyarte, puedes contactarme por correo a la dirección que dejo en la descripción del video para poder revisarlo a detalle. ¡Saludos!
Buen día, excelente video, tengo una duda, cómo le puedo hacer para que en un solo archivo de Word queden las constancias de los trabajadores 1 a 4 con su respectiva información. Muchas gracias de antemano.
Se me ocurre que se puede tener una etiqueta por cada trabajador como NombreTrabajador_1, NombreTrabajador_2 , etc. Saludos!
Simplemente haces una combinación de correspondencia, y al finalizar escoges la opción guardar como documentos diferentes, y te los guarda en un sólo archivo. No requiere macro.
Hola, una consulta, cómo puedo hacer para que la macro aparte de que me tome los valores me pegue una tabla en cada archivo o que cuando se esté pegando en los datos en el archivo base enseguida me pegue una tabla.
Muchas gracias
Hola Joel, tengo un video para las tablas. Te recomiendo revisarlo. ¡Saludos! ua-cam.com/video/lRmVKfjldIU/v-deo.html
tengo un Error en "For each fila in tablaDatos.ListRows" la palabra dato la tengo que cambiar por lo que yo tengo en mi hoja de excel? en mi caso, todo los datos de la tabla se llaman "Tabla1"
¡Hola! Así, es, necesitarías establecer el nombre correspondiente. ¡Saludos!
@@InteligenciaEficiente lo otro el documento WORD a usar como base, no puede estar con Autoguardado?
@@Almaoj Hola!! Sí, si el documento ya está configurado como autoguardado no hay problema.
Buenas tardes, por favor su ayuda al poner el . para colocar bookmarks en el código no aparece en las opciones que despliegan
Hola Karen, pide deberse a que no está habilitada la Referencia a Microsoft Word Object Library como se muestra en el video.
Hola! tengo office 2016 y sirvio genial, pero al colocarlo en la lapto de un colega con office 2010 y la version de libreria 14, tengo un problema al crear el Word , se tranca aqui " Set objWord = New Word.Application"
¡Hola! En la máquina con Office 2010 puedes cambiar las declaraciones de los objetos de la siguiente manera:
Dim objWord As Word.Application ---> objWord As Object
Set objWord = New Word.Application ---> Set objWord = CreateObject("Word.Application")
Si deseas una asesoría más personalizada no dudes en contactarme a mi correo:
inteligenciaEficienteYT@gmail.com
¡¡SALUDOS!!
@@InteligenciaEficiente el lunes comento como me fue, en serio muchas muchas gracias
@@InteligenciaEficiente Hola! Me dieron otras tareas y no habia podido probar con este codigo, paso bien el objWord As Object pero luego se tranco en la siguiente donde le dice que abra el word... vamos a actualizar el microsoft office para que tenga la libreria mas actualizada. Gracias! 😅
Nunca he trabajado con VB y probablemente esto sea muy básico pero he copiado la macro cambiando los datos para adaptarlos a mi Excel y me da un error en Dim datosEmpleado As Empleado. Tengo que tener declarado datosEmpleado en algún otro lugar?
Hola! Podías enviarme tu archivo a mi página de fb y con gutso te ayudaré: facebook.com/InteligenciaEficiente/
Hola, muy buen vídeo! tengo una pregunta, me sale error 91, y revise todo y esta justo como lo explicaste, me podrías ayudar a revisarlo? ya te envié el correo con el Excel, gracias previas.
Gracias Scarleth, seguimos en contacto!
Está genial, pero lo intente con un equipo que tiene el word 14 en las referencias y no funcionó, que tendría que camiar del código? O no funciona para librerías anteriores a Word 16. Saludos...
Hola! Solo tendrías que buscar en Herramientas >> Referencias >> Microsoft Word 14.0 Object Library y marcar esa casilla para que pueda funcionar, saludos!
@@InteligenciaEficiente Resuelto muchas gracias... excelente canal...
Hola, porfa ayúdame, me sale error 7 memoria insuficiente. ¿Es algo de mi computadora o en excel?
Hola Vanessa, puedes contactarme al correo en la descripción para ayudarte con este tema.
No me funciona, dice "no se puede definir un tipo definido por el usuario Públic dentro de un módulo de objeto
Hola! cuando creas un tipo de dato definido por el usuario, como en el caso de este video, ese tipo de dato solo puede ser utilizado en el mismo módulo donde fue creado y tiene que ser un módulo normal, no puede ser de clase o dentro de un formulario. Posiblemente eso esté causando el error. ¡Saludos!
Hola! me genera el siguiente error "se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo y el depurar se coloca en amarillo "Set tablaDatos = ws.ListObjects("PruebaD")" me podrías ayudar. 😐
Hola Joana, con gusto! Si te manda ese error es porque no encuentra la tabla llamada pruebaD, en este link puedes ver las instrucciones para nombrar una tabla en Excel. ¡Saludos! :D support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114
@@InteligenciaEficiente Gracias 🤗 la termine y funciona perfecta!!!!
Buenas noches, muchas gracias por el video, me sirvió mucho, sin embargo estoy bloqueado, porque en la parte del encabezado de texto esta macro no lo modifica. ¿Me podrías indicar como hacerlo o podrías hacer un video explicando esta situación? Si es el caso te puedo compartir lo que quiero hacer. De nuevo gracias
Hola Adrián, el comentario de hasta arriba modifica la función buscar y reemplazar para que también modifique los encabezados :D
Hola muchisimas gracias por el video pero hago tal cual el proceso como lo realizas pero al ejecutar me da error en Sub crearDoc(datosEmpleado as Empleado) porfa tu ayuda para solucionarlo
Lograste resolverlo? me da el mismo error a pesas de ponerlo al principio de todo el módulo :/
me da un bug con esta parte " Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc)" no pasa por ahí
Hola Gloria, quizá los valores que asignaste a rutaCarpeta y a nombreDoc no están definidos correctamente.
Buenas tardes, primero muchas gracias por el aporte me es de gran utilidad para mis actividades, sin embargo quiero generar una nueva variable o dato para generar un poco mas automático el tema, tengo cuatro documento diferentes, por lo quiero que en lugar de que genere el documento por una celda especifica quisiera que se genere por una lista de nombre (fila), no se si sea posible con el fin de que genere en automático 4 diferentes archivos en base a la celda que corresponda a la columna ejemplo: diego debe de generar constancia con el formato uno; Jorge con la constancia dos, Jesus con la constancia tres, Victor con la constancia uno, diana con la constancia tres, etcétera.. espero me puedan ayudar.
Hola Diego, claro que se podría, tendrías que agregar un condicional para que dependiendo el caso trabaje en diferentes plantillas, si gustas una asesoría más personalizada puedes mandarme más detalles a mi correo: inteligenciaeficienteYT@gmail.com
@@InteligenciaEficiente Un video de esto, estaría perfecto
Ya se subió?
Buenas noches, acabo de replicar el ejercicio. Me sale este error: error en intervalo de ejecución y se sombrea en amarillo esta linea Set ws = ThisWorkbook.Sheets("Principal"). Ayuda por favor para entender que pude hacer mal
Hola!! Debe ser porque no tienes una hoja en tu libro de Excel que se llame Principal, es muy importante que el nombre no contenga espacios.
Excelente video!! solo tengo un problema: al guardar el archivo, me sale en formato L, como lo puedo solucionar?
Hola Gustavo. ¿A qué te refieres con formato L?
Hola como puedo hacer para que me genere un solo archivo de word y/o pdf con todas las cartas y no por separado
Hola Jesús, quizá una manera en la que no tengas que modificar tanto el proceso actual sería que al final unieras todos los documentos en uno solo. Si deseas una asesoría o un desarrollo más personalizado puedes contactarme al correo en la descripción. ¡Saludos!
Enorme. Lo único: no queda claro cómo nombras la tabla, a mi me da un error de tipo '9' ( Set tablaDatos = ws.ListObjects("Datos") '----> Nombre de la tabla con los datos )
Tienes razón, es una tabla. Te comparto más información sobre cómo cambiarle el nombre. support.microsoft.com/es-es/office/cambiar-el-nombre-de-una-tabla-de-excel-fbf49a4f-82a3-43eb-8ba2-44d21233b114
Pregunta, si quiero repetir 2 mismos nombres, solo me sale el primero que vincule
Como está esta macro habría que desarrollar 2 campos distintos para cada nombre aunque sean del mismo valor pero te comparto este otro video donde se hace el reemplazo de otra manera más eficiente. ua-cam.com/video/VQO6PEefZUA/v-deo.html&ab_channel=InteligenciaEficiente
A esto se le podrian agregar imagenes? Tengo que generar documentos automaticos que incluyen tablas de presupuestos y no se como hacerlo :(
subiré pronto un video para las imágenes :D
Como puedo hacer para que el archivo word se guarde en otra direccion(carpeta del pc) diferente a donde esta el archivo original?
Hola Alejandro, necesitas cambiar el parámetro Filename:= del método SaveAs por la nueva dirección por ejemplo: C:\Users\carlo\Downloads
Cuando ocurren errores he notado que borra los marcadores de word y tienea que volver a crearlos seria mejor otro metodo
Quizá este método pueda ayudar: ua-cam.com/video/VQO6PEefZUA/v-deo.htmlsi=oJK5ygOrbS5Jzmig
hola muchas gracias por compartir su conocimientos, estoy teniendo un Error con esta linea (objDoc.Save2 filename :=...)) me tira el (Error Tiempo de ejecución Error 5152 Este no es un nombre de archivo válido cuando..) estoy usando la librería microsoft word 15 object library... como podría solucionarlo. intente varias maneras pero no me funciono.. desde Muchas Gracias
Hola Juan, verifique que la ruta que esta después de filename de verdad es una ruta válida, seguramente está cometiendo un error al definir esa ruta. Si necesita alguna asesoría más personal puede escribirme a inteligenciaEficienteYT@gmail.com ¡¡Saludos!!
Hola, esta muy bueno el contenido, pero cuando acomodo el codigo a mis archivos, me arroja error 91 'Variable de objeto o Bloque With no establecido'
¡Hola Benjamín! Para poder ayudarte puedes enviarme tu macro al correo que está en la descripción del video. SALUDOS.
Hola! Al querer correr la macro aparece el error 4198 command failed en la fila de Set objDoc, revise todo y está igual que en el video ¿alguien sabe por qué otra razón se puede dar este error?
¡Hola María! El error 4198 no es muy específico por lo que te puedo apoyar si me compartes más información a mi correo electrónico, el cual podrás encontrar en la descripción de este video. ¡Saludos!
Buenas tardes, Muy buen video, tengo una consulta, me sale un mensaje de Error de compilación: El uso de la propiedad no es válido y en el visual basic me señala en amarillo Sub crearDoc(datosEmpleado As Empleado), me podrías ayudar porfavor, te lo agradecería un montón.
¡Hola! Debes tener algún error en el código, te recomiendo revisarlo minuciosamente, si continúas con problemas puedes enviarme tu macro al correo: inteligenciaeficienteyt@gmail.com ¡SALUDOS!
@@InteligenciaEficiente te lo acabo de enviar, ojalá puedas ayudarme, de antemano muchas gracias.
@@movimientoclub2483 Listo, me cuentas cómo te va :D
como hiciste eso en excel.. es un macro... perdon por mi inexperiencia
¡Hola! Así es, este proceso se logra con macros de VBA. Te invito a revisar mi canal ya que tengo muchos desarrollos parecidos. ¡Un saludo!
Una duda y como hago para generar solo un archivo de una persona en especifico y no de todos al mismo tiempo
¡Hola! Te comparto este otro video donde solo se hace el traslado a un solo documento. ua-cam.com/video/4Xk8rSSuHYc/v-deo.html
Muy buenas tardes, disculpe como se puede realiza el procedimiento pero pegando una tabla completa a un documento word
¡Hola! Agregando estos comandos puedes lograrlo:
Dim tabla As Range
Set tabla = Worksheets("TuHojaAqui").UsedRange
tabla.Copy
objDoc.Application.Selection.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
Si requieres algo más sofisticado no dudes en contactarme: facebook.com/InteligenciaEficiente/
@@InteligenciaEficiente Muchas gracias amigo, me fue de mucha utilidad, funciona excelentemente, aunque quisiera saber si existe alguna manera de poder reemplazar el marcador de la hoja de word por la tabla seleccionada en excel
Hola como estas, excelente tu aporte me suscribi a tu canal, por algun motivo en esta linea al ejecutar la macro me genera error
Set tablaDatos = ws.ListObjects("Datos"), cuando ubico el cursor encima me dice lo siguiente: ws.ListObjects("Datos)=, agradecería me indicaras en donde esta mi error
Hola Tocayo, me podrías mandar tu archivo por mensaje de facebook a la página para poder revisarlo con mayor detalle? Saludos! facebook.com/InteligenciaEficiente
Hola, Buenas tardes.
Una consulta, a mi también me sale ese error, me podrían indicar a qué se debe.
De antemano muchas gracias.
Me aparece el mismo error, lograste solucionarlo?
Seguimos esperando respuesta
Me aparece el error de
Run-time error '9':
Subscript out of range
Que podria hacer en ese caso?
Saludos
¡Hola Oscar! Si necesitas asesoría personalizada con gusto puedes escribirme a: inteligenciaeficienteyt@gmail.com
AYUDA!! ME MARCA ERROR EN objWord As Word.Application dice que tipo no definido por el usuario, no se que hacer!!!
Y si tengo seleccionado las herramientas de word 16
Hola! Puedes enviarme tu macro a inteligenciaeficienteyt@gmail.com para revisarla a detalle, saludos!
Y como vinculaste el boton de crear documento?
Te comparto todos los detalles: support.microsoft.com/es-es/office/asignar-una-macro-a-un-formulario-o-un-bot%C3%B3n-control-d58edd7d-cb04-4964-bead-9c72c843a283
Hola, buenos días, intento ejecutar la macro en mi automatización pero me dice "Error en la ejecución de servidor " o también error '5174" porque no ha podido encontrar el archivo
Chequé la ruta , el nombre de la hoja de Word pero están correcto, no entiendo qué pasa, les agradecería mucho si me podrían ayudar, por favor
Hola, por favor verifica que hayas agregado un "\" al final de la celda C4 donde escribes la ruta de la carpeta. Me platicas si con eso ya funciona, saludos!!
Muchisimas gracias, ya lo puede resolver !!!! 💖😊😊😊
Como puedo solucionar el error (9) subíndice fuera del intervalo
me sale lo mismo :(
Y COMO LE ARIA PARA QUE SE APLIQUE POR CONDICIONAL SOLO PARA QUE CREE A LOS QUE CUMPLAN UN CRITERIO
con la sentencia IF seguido de la lógica que desees implementar. ¡Saludos!
Primero excelente video, gran ayuda.
Pregunta, me ejecuta Perfecto, sin embargo tengo una tabla con 76 registros y solo logra hacer los 13 primeros, luego me sale error “5487”, al parecer es algo de permisos pero no logro resolver, he cambiado los nombres de la lista, borrado algunos, pero sigue saliendo lo mismo.
¿Sabes que podría ser ?
Gracias!!
Hola Camilo, quizá debamos ajustar un poco el método de copiado y pegado en la tabla, puedes enviarme tu macro y documento de word por correo para poder revisar y corregir el problema, saludos! :D
Muchísimas gracias por tus videos! Necesito ayuda ya que me está tirando un msj de error (nro 91 "tiempos de ejecución). Ya revisé los marcadores en Word y están Ok. Me podrían ayudar por favor?
El código que puse es el siguiente:
'Definir datos
Type Contrato
RAZON_SOCIAL As String
N°CUIT As String
DOMICILIO_LEGAL As String
CORREO As String
FECHA As String
End Type
'Macro
Sub CrearContrato()
Dim ws As Worksheet
Dim tabladatos As ListObject
Dim fila As ListRow
Dim datosContrato As Contrato
Set ws = ThisWorkbook.Sheets("Contrato")
Set tabladatos = ws.ListObjects("Datos")
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each fila In tabladatos.ListRows
datosContrato.RAZON_SOCIAL = fila.Range(1.1)
datosContrato.N°CUIT = fila.Range(1.2)
datosContrato.DOMICILIO_LEGAL = fila.Range(1.3)
datosContrato.CORREO = fila.Range(1.4)
datosContrato.FECHA = fila.Range(1.5).Text
Call crearDoc(datosContrato)
Next
MsgBox "Proceso finalizado", vbInformation
End Sub
'Metodo
Sub crearDoc(datosContrato As Contrato)
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim estaHoja As Worksheet
Dim rutaCarpeta As String, nombreDoc As String
Set estaHoja = ThisWorkbook.Sheets("Contrato")
rutaCarpeta = Range("rutaCarpeta").Value
nombreDoc = Range("nombreDoc").Value
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(rutaCarpeta & nombreDoc)
objWord.Visible = True
With objDoc
.Bookmarks("RAZON_SOCIAL1").Range.Text = datosContrato.RAZON_SOCIAL
.Bookmarks("RAZON_SOCIAL2").Range.Text = datosContrato.RAZON_SOCIAL
.Bookmarks("RAZON_SOCIAL3").Range.Text = datosContrato.RAZON_SOCIAL
.Bookmarks("FECHA").Range.Text = datosContrato.FECHA
.Bookmarks("NroCUIT").Range.Text = datosContrato.N°CUIT
.Bookmarks("DOMICILIO_LEGAL1").Range.Text = datosContrato.DOMICILIO_LEGAL
.Bookmarks("DOMICILIO_LEGAL2").Range.Text = datosContrato.DOMICILIO_LEGAL
.Bookmarks("DOMICILIO_LEGAL3").Range.Text = datosContrato.DOMICILIO_LEGAL
.Bookmarks("CORREO").Range.Text = datosContrato.CORREO
End With
nombreDoc = "Carta Oferta -" & datosContrato.RAZON_SOCIAL
objDoc.SaveAs2 Filename:=rutaCarpeta & nombreDoc
'Para crear PDF
objDoc.SaveAs2 rutaCarpeta & nombreDoc & " .pdf", 17
Hola Martin, será más fácil ayudarte si me envías tu macro al correo en la descripción del video. ¡Saludos!
Como llevar los datos con formato del excel a word?
Hola Sebastian, haré un video muy pronto sobre ello :D
si estaba mal escrita --> .Bookmarks
Excelente amigo!
Necesito insertar cantidades en moneda
Ejemplo: $2,500.50
Al poner las cantidades se importan sin comas ni símbolo de pesos, alguien me puede ayudar?
Hola Elisa, para poder conservar el signo de pesos debes hacer una modidicación al código agregando .Text al final en la siguiente sección para que se vea así:
datosEmpleado.nombre = fila.Range(1, 1).Text '
Y si quisiera imprimirlos... como lo haría?!!!
Hola, te comparto más información sobre cómo imprimir los documentos usando VBA: excel-macro.tutorialhorizon.com/vba-excel-open-and-print-the-word-document/
@@InteligenciaEficiente de nuevo muchísimas gracias por tu ayuda
hola buenas tardes
me puedes apoyar enviando el código de VB de favor. gracias de antemano
Hola Mónica, en la descripción se encuentra el link de descarga. ¡Saludos!