Buenas noches, existe un tema igual pero está cerrado y no admite más respuestas. Tengo un fichero PDF que tiene hecho un formulario el cual puede rellenar a mano. Lo que yo quiero es que de un fichero excel donde tengo los campos: nombre, dni, direccion, etc esos datos se introduzcan en el campo destinado para ello en el formulario y me vaya creando diferentes ficheros. El fichero excel tiene unas 400 personas, por lo cual me tendría que generar esos 400 pdf rellenos con los datos que hay en excell. Dispongo de Office365 y de Acrobat Reader. Espero haberme explicado bien.

Ante todo disculpen si mi proposición no va aqui. Buenas tardes, les quería proponer un tema que me gustaría resolver. Tengo una impresora 3D. Existen varios tipos de filamento, en función de su uso y características, además de una gran variedad de colores. He hecho una libro Excel donde asigno una hoja para cada tipo y color de material. Por ejemplo: PLA Blanco, PLA Gris, PLA Rojo ASA Blanco, PETG Negro, ect… En cada hoja apunto el objeto que imprimo y la cantidad de material que gasto en hacerlo. Con eso consigo saber siempre cuánto material me queda en cada bobina, pues el programa de impresión me dice el material necesario para cada pieza. …

Hola, tengo un libro con el que hago escandallos para un restaurante. El libro contiene varias macros. Y cada vez que lo abro me da el siguiente error: Aviso: Hemos encontrado un problema con contenido de "wary_escandallos_19.xlms". ¿Desea qué intentemos recuperar el máximo de contenido posible? Si confía en el origen de este libro, haga clic en Sí. Le quito las macros y sigue dando el error. No se donde puede estar el error. No sé si tendrá algo que ver qué dicho archivo se abre en windows y en mac indistintamente. Muchas gracias por vuestras sugerencias.

Buenas tardes a todos, lo primero es disculparme por si mi duda no debería de ir en este grupo. Tengo una duda si se puede realizar o no (sin VBA o con), intentaré explicarme lo mejor posible. Digamos que trabajo con un fichero de txt de unas 2000 palabras, mi objetivo es importarlo y que salga columnas de 50 filas. Se restringir la tabla en la fila 50 pero se corta ahí. Mi duda es puedo programar (con VBA o sin) de alguna manera para que una vez llegue a la fila 50 salte de columna y así sucesivamente y siga añadiendo las palabras? Un saludo a todos, gracias.

hola he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan guarda y cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice este es mi codigo Private Sub MultiPage2_Click(ByVal Index As Long) If MultiPage2.Value = 0 Then Application.Visible = False Application.ScreenUpdating = False Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx" Worksheets("MATERIALES").Activate Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear Worksheets("MATERIALES").AutoFilte…

muy buenas tardes alguien me podría ayudar con mi formulario por favor, tengo un formulario que contiene un listbox en el cual me muestra todos los datos de una tabla, también tiene 4 combobox con los cuale quisiera hacer filtros con cada uno, pero buscando he buscado en Internet filtros con conbobox y solo he hallado 1 que me pareció que funcionaria, pero no lo hizo, el combobox que filtra fechas solo me deja el listbox vacio los combobox filtran fecha, sección , detectado y el ultimo por hora, pero ese ultimo no lo necesito por el momento solo los otros 3 que mencione primero espero que que me puedan ayudar y gracias de ante mano PRUEBA3.0.xlsm

Estimados compañeros, a ver si me podéis hechar una mano con esta duda que tengo. Os adjunto dos ficheros, el primero (Calculo) calcula en una celda mediante sumaproducto el dato de otro fichero excel (BD). Hasta ahí no tengo problemas y la macro es fácil de crear: Sub CALCULO() ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT((BD.xlsb!R2C1:R2321C1=RC[-2])*(BD.xlsb!R2C4:R2321C4=RC[-1]),BD.xlsb!R2C6:R2321C6)" ActiveCell = ActiveCell.Value End Sub El tema es que lo que necesito es que ese cálculo sea mediante el siguiente código (como una variable ya que a veces me interesará traerme el dato y otras no) Sub CALCULO() Dim …

Buenos dias a todos. Con este codigo: Option Explicit Const PATH As String = "C:\Documents and Settings\LAMOGA\Escritorio\Formulario Web\" Public Sub Form_Load() Call CountFileType("xlsm") End Sub Public Sub CountFileType(ByVal fType As String) Dim c As Long If LenB(Dir(PATH & "\*." & fType)) <> 0 Then c = c + 1 Do While (LenB(Dir()) <> 0) c = c + 1 ' found another file increment counter Loop MsgBox "Number of " & fType & " = " & c Else MsgBox "Cant find any " & fType & " files!" End If End Sub [/CODE] me cuenta los archivos tipo xlsm en una carpeta deter…

Buenos días, Lo primero que esteis bien junto con vuestras familias. La siguiente macro funcionaba en excel 2016 y ha dejado de funcionar en excel 365. Lo curioso es que si lo ejecuto paso a paso (PF8) funciona pero si se jecuta la macro de corrido no exporta las imagenes y necesito exportar mas 500. Heprobado a poner un delay hasta de 10 sg ¿Podríais ayudadme por favor? Muchísimas gracias y un cordial saludo. ---------------------------------------- Sub CopiaCeldasGrabaImagen(ruta) Dim RangoC As Range Dim Archivo As String Dim Imagen As Chart Dim Result As Boolean Archivo = ruta & ".gif" Set Rango…

Buenas tardes estoy ejecutando un programa en vba - Excel y aunque el programa acaba bien me da una ventana con el siguiente error "Error de Automatización - Destinatario no Valido " cuando ejecuto el botón de Carga Masiva, el usuario es DS01070X. A la espera de vuestra respuesta, gracias y saludos. Evolucion acciones Ribbon 2020 ganancia perdidas.xlsm

Okayy, uhm, ¿alguien por favor me podría ayudar con una tarea, por favor? No sé nada de macros, lo único que tengo hecho fue por ayuda de una amiga, pero ella ya no sabe como hacer lo siguiente: Mi tarea es hacer una ficha de búsqueda de "biblioteca". Y lo que tengo que hacer es que en la hoja uno (inicio) escribiendo en las casillas de a lado o el autor, color, código, título, fecha (alguno de ellos, no escribir en todas), presione botón "buscar" y me dirija a la hoja 2 (base de datos), y seleccione lo que haya pedido. Estoy demasiado perdida. infooo..xlsm

Hola, buenos dias, como estan? Les comento que soy nuevo tanto en el foro como en el uso de Macros. Mi inconveniente es este, tengo la siguiente Macro: Sub Definitiva_Posta() Definitiva_Posta Macro Range("B1:B10").Select Selection.Copy Sheets("Hoja2").Select Range("A3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True Rows("3:3").Select Application.CutCopyMode = False Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("Hoja1").Select Range("B2:B10").Select Selection.ClearContents End Sub Lo q…

Hola a todos, Estoy creando una macro en la que se modifican/agregan datos a una base que ya fue cargada con anterioridad. Les explico la idea general y lo que necesito hacer, que no estoy logrando. 1. Cargo datos de fallas de equipos (desde Hoja "Carga de Fallas"), en una hoja llamada "Base de Datos". En la columna A deja guardado un código único asignado al equipo. Esta macro, deja información de cada equipo en filas, desde la columna A hasta la columna J, y luego en las columnas N y columna O. 2. Necesito una macro que busque el código único ingresado en la celda C4 de la hoja "Reparación", en la columna A de la Hoja "Base de datos" para identificar en q…

Hola favor necesito de vuestra ayuda!!! mi problema es que quiero adjuntar un solo archivo (ya creados en pdf) a cada dirección de correo que esta en la columna 14 y filas 1 en adelante; y desde el segundo correo me va adjunto el archivo anterior más el correspondiente de fila 2; en el tercero, los dos anteriores, más el de la tercera fila y así sucesivamente. Favor vuestra ayuda en .AddAttachment Les dejo todo el código: Sub SendMail_Gmail() Dim Email As CDO.Message Set Email = New CDO.Message correo = "xxxxxxxxxxx@gmail.com" passwd = "123456789" mensaje = Range("A1") cuerpo = Range("B1") Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail…

Buenos días, Tengo un macro que permite enviar mail con 1 adjunto que hasta hace nada funcionaba perfectamente pero ahora me da error. Me podéis ayudar?

ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen)

Buenos dias maestros del excel, Tengo un userform con varios ComboBox y ellos hagan las consultas de distintas tablas del access (datos constantemente actualizándose) con la acción del UserForm_Initialize. Con este codigo puedo consultar en el combobox desde access: Private Sub UserForm_Initialize() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Set cn = CreateObject("ADODB.Connection") conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\Users\JULIO CESAR\Desktop\Prueba_V01.accdb" 'Aqui va la ruta de tu base de datos consultaSQ…

Buenas noches estimados Si son tan amables y me colaboran. Necesito crear una plantilla que me permita cargar una Base de datos de 1.000 o más registros con sus diversas características. De modo que pueda posteriormente comunicarme vía Whatsapp web haciéndoles llegar información a todos estos Clientes, cada vez que tengamos promociones en el Concesionario.

Buen día. Tengo este archivo en excel con un ejemplo de pasar datos en tiempo real con programación VBA, este ejemplo me lo creo una persona de aquí mismo de este foro y estuve interactuando con el código del ejemplo. Mi duda es, en el archivo viene explicado lo que busco lograr pero no sé como, tengo datos aleatorios de la columna A a la columna F, al hacer doble click en cualquier dato lo posiciona automáticamente en la columna K a partir de la fila 2 y de ahí cualquier dato lo va colocando hacía abajo. Mi duda es ¿Como puedo posicionar estos datos en cualquier fila ya sea a partir de la fila 10 y así hacia abajo, de la fila 2 hacia abajo o de cualquier fila q…

buenos días, no sé si será posible crear una macro para que a una hora determinada proteja una hoja y a otra hora la desproteja? gracias anticipadas.

Intento abrir un archivo CSV con una macro y quiero cambiar los paramentros de TextFileColumnDataTypes. hice una macro con la que a través de las caracteristicas de cada columna puedo incluir en una variable los parematros que necesito, pero al abrir la QueryTables.Add, no se como suplir el array. Los datos que incluye la variable son: MyVariable = "4,2,2,2,1,2,1,1" With ActiveSheet.QueryTables.Add(Connection:= _ ImpFile, Destination:=Range("$A$1")) ' .CommandType = 1 .Name = "salidas_merc" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True …

Buen día, soy un poco nuevo en estos temas de excel, no sé como hacer alguna función o macros para hacer cierto procedimiento en excel, la problemática es la siguiente, hay una lista de datos en una columna y lo que se requiere es que de esa lista de datos seleccionar aleatoriamente datos con la tecla Ctrl o hacer una función como un check en las celdas para seleccionar los datos que requiero y al seleccionar el dato que se pasen esos mismos datos a otra columna de esa misma hoja en excel. Desarrollé una macros que al seleccionar datos aleatoriamente con un botón le indico en que columna requiero pegarlos y los pega en forma de lista y lo que requiero es algo similar…

Hola, y de ante mano muchas gracias por vuestra ayuda excel ;-). Necesito una ayuda, por que esto trabajando en un libro y e incluido el siguiente instrucción, para que me busque un dato de otro libro. Set Rng = Workbooks("Seguimiento.xlsm").Sheets("Costes").Range("D4:F115") r = Application.WorksheetFunction.VLookup(antMatricula, Rng, 3, False) H.Range("J" & Fila) = Horas * r Pero únicamente me funciona si el libro ("Seguimiento.xlsm")esta abierto. Como puedo hacer para que busque el dato sin que el libro este abierto? Es decir trabajar con el libro cerrado. Muchas gracias y un saludo.

Estoy generando macro para actualizar automáticamente pero al tratar de ejecutar el codigo me arroja un error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto. El código que estoy utilizando es el siguiente: ActiveSheet. PivotTables("resumen"). PivotCache. Refresh Gracias por una respuesta que me ayude a solucionar este error

Hola estoy organizando un torneo de futbol y tengo claro como quiero, el problema que tengo es pasarlo a excel, para que se automatize. ME podríam ayudar, dejo el archivo de lo que quiero. Primero hay una fase regular y luego hay otra de eliminatoria y que permite poner des del primero asta el último. Gracias plantilla lliga.xlsx