mauricio1465

Ivan Cuenca respondió: Necesitaría ver el código para darte una respues más concreta, pero por lo que cuentas la macro1 hace un recorrido por la columna F ejecutando la accion ImprimirFormulario (que no deja de ser un trozo se código), la macro2 hace lo mismo con la acción...

Dante Amor respondió: H o l a: No entendí bien. En la hoja2, celda A3 tienes "EUR", en B3 el valor 2.563 En la columna I se busca "EUR" ¿En cuál columna de la hoja1 se va a buscar el valor 2.563? ¿En la columna J? Y por qué dices: "busco todos los montos que su suma den...

Dante Amor respondió: H o l a: Te anexo la macro. En esta línea de la macro tienes que poner la ruta y nombre del programa Adobe Reader que tengas: pid = Shell("C:\Archivos de programa\Adobe\Reader 10.0\Reader\AcroRd32.exe /p /h """ & ruta & arch & """",...

Dante Amor respondió: H o l a: Sí me llegó el archivo y te envié los siguientes comentarios: Las columnas de la hoja "Mayor" no coinciden con tu explicación. En tu explicación mencionas: " 1) Que filtre por DVENT en la columna K, de la hoja Mayor. " Pero el dato "DVENT"...

Dante Amor respondió: H o l a: En este punto: " SI es DVENT, que tome el primer registro de columna J, que es el número de Factura y lo vaya a buscar en la columna H de la hoja (Factura), si lo encuentra que no haga nada, pero si no lo encuentra que vaya a la última celda...

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub sumar() For i = 7 To 425 c = Cells(i, Columns.Count).End(xlToLeft).Column If c < Columns("H").Column Then c = Columns("I").Column Range("H" & i) = Application.Sum(Range(Cells(i, Columns("I").Column),...

Dante Amor respondió: H o l a: Te anexo la macro. Pon tus datos en la "Hoja1" en la columna "A". En la "Hoja2" te pondrá los resultados. Sub ExtraerDatos() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear col = "A" una = False For i = 1...

Luis Mondelo respondió: Pues aquí tienes la macro que lo hace. La hoja a la que copio los datos la he llamado "COPIADOS". La macro se ejecuta en la pestaña donde realiza la búsqueda Sub copiar_y_borrar() quebusco = InputBox("que dato quieres buscar") If quebusco = "" Then...

Dante Amor respondió: H o l a: Te anexo la macro para pasar uno a uno los números de la hoja2 a la hoja1. Dices que pones un número en la hoja1, en la celda F3 y se ejecuta una macro, ¿pero esta ejecución es en automático?, si es así entonces utiliza esta macro: Cambia en...