Forums

Casi, casi...  Si lo que buscas lo almacenas en BD ¿Porqué luego lo quieres guardar en "FICHA.Row"? .¿No era FICHA la columna B?   No sé si eso te estará funcionando como rango donde buscar. Primero prueba lo que te digo y si no funciona, ya seguimos... Si prefieres que te haga yo la macro lo dices, pero si quieres aprender lo mejor es este método por eso te voy dando pistas

Ya quedo con la formula correcta, y realiza el trabajo, pero no encuentro que el ciclo funcione, cuando la n llega a 24 el sigue con el ciclo de numero1 y de suma y continua trabajando con errores.  como puedo hacer para que la n al llegar a 24 finalice la macro y no realice las demas actividades  ? ya movi los Next pero no lo he logrado, espero me puedan dar una guia  Gracias    esta es la macro   Sub Union() ' Dim fila, RR As Long Dim n&, cCriterio$, H&, g&, y&    fila = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row     j = 5    y = 1        For H = 5 To 23          Dim aCol, t&, LE$     aCol = Array("E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y")     For t = LBound(aCol) To UBound(aCol)     LE = aCol(t)      For n = j To 23         If n = j Then cCriterio = "<>0" Else cCriterio = "0"         ActiveSheet.Range("$A$11:$AH$" & fila).AutoFilter Field:=n, Criteria1:=cCriterio                ' numero1     Range("A12").Select     ActiveCell.FormulaR1C1 = y     Range("B12").Select     Selection.End(xlDown).Select     Range("A" & fila).Select     ActiveCell.FormulaR1C1 = y     Range("A" & fila).Select     Selection.Copy     Range(Selection, Selection.End(xlUp)).Select     Selection.Resize(Selection.Rows.Count + 1).Select     ActiveSheet.Paste     Application.CutCopyMode = False     Selection.End(xlUp).Select     ActiveWindow.SmallScroll Down:=-24          RR = fila - 11          'MsgBox RR           'suma         Range(LE & 10).Select     Range(Selection, Selection.End(xlDown)).Select     Range(LE & 11).Select     Selection.End(xlDown).Select     Range(LE & fila).Select     Application.CutCopyMode = False    ActiveCell.Formula = "=SUBTOTAL(9," & LE & "12:" & LE & Selection.Row - 1 & ")"     Range(LE & fila).Select     Selection.Copy     Selection.End(xlUp).Select     Range(LE & 9).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False                      Next n     j = j + 1     n = j     y = y + 1     Rows("11:11").Select     ActiveSheet.ShowAllData     Range("A10").Select                      Next t           Next H End Sub

Hola En el archivo que envías ¿cuál es el objeto que tú llamas "visor de archivo pdf"? ¿qué exactamente haces para qué ocurra el error? ¿Tu Office 2016 está actualizado? (¿sabes cómo se actualiza?

Buenas noches tengo este problema, tengo un archivo Excel con conexión a una base de datos Access, que funciona bien solo, le adicione un visor de  archivo pdf que encontré en la web. Al implementarlo en un solo archivo al ejecutar la macro para ingresar información a Access funciona bien;  llamo al visor de pdf y visualizo correctamente, cierro el formulario. El Problema: se origina al ingresar información por segunda vez a Access. saliendo el siguiente error Microsoft Excel dejo de funcionar: Firma con problemas: nombre del evento de problema: BEX64 Nombre de la aplicación: EXCEL.EXE Versión de la aplicación: 16.0.12228.20364 Marca de tiempo de la aplicación:  5de9963 Nombre del modulo con errores: ACEOLEDB.DELL_unloaded     Tengo excel 2016 de 64 bits Adjunto archivo para lo puedan revisar, y agradeceré su apoyo https://1drv.ms/u/s!AnunMyzFZYqEmVsXt0pJM7jslo82?e=16hrBs

Si bien has enviado tu archivo, es bastante complicado que recibas ayuda si no detallas qué es lo que tienes, qué es lo que quieres y especifiques qué obtienes ahora y qué deseas obtener. Eso último con datos agregados "a mano" que a su vez debes detallar/explicar. Para ti probablemente es fácil deducirlo porque es tu archivo y en la mente tienes lo que deseas, pero desde este lado de la pantalla, te aseguro que no se entiende.Insertar otro medio