Excel Error definido por la Aplicación o el Objeto

Tengo error '1004' en tiempo de ejecución: Error definido por la Aplicación o el Objeto
Sub BUSCAR_REGISTROS()
    Dim frm As Worksheet
    Set frm = Sheets("CXP BASE")
' BUSCAR_REGISTROS
    ActiveCell.Offset(-6, 3).Range("A1").Select
    ActiveCell.Offset(6, -3).Range("A1:AG116").AdvancedFilter Action:= _
        xlFilterInPlace, CriteriaRange:=ActiveCell.Offset(-1, 0).Range("A1:D2"), _
        Unique:=False
    ActiveCell.Offset(1, 0).Range("A1").Select
    frm.Cells(10, "D").Select
End Sub
Simplemente estoy realizando un filtro avandozado y grabando la macro y me arroja este error

1 Respuesta

Respuesta
2
Primero te consulto qué significa para vos esta instrucción y qué celda te parece que estás seleccionando:
ActiveCell.Offset(-6, 3).Range("A1").Select
Es un error que últimamente veo con frecuencia: Offset con Range("A1")
Activecell. Offset(-6,3) le dice a Excel que se posicione 6 filas por encima de la celda activa (no importa que luego le digas A1, no tiene sentido)
Seguramente tu celda activa está por encima de la fila 7 y no puede restarle 6
También revisá la del filtro donde nuevamente se repite el Offset con un Range a continuación... NO VA
Arreglá esos detalles y si te marca error indicame en qué linea (presioná el botón Depurar para que te lleve al Editor y veas la línea de color)
Elsa, tienes toda la razón, la falla es el posicionamientos, me ubique en A10 celda activa y volví y realice la grabación de la macro, ejecute la macro que es realizar filtros avanzados y funciono.
Gracias por tu ayuda
Jaime

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

No ejecutar macro si una celda está en blanco

Quiero hacer que no ejecute la macro 2 si la celda D3 está en blanco. Una macro filtra los según el dato que he ingresado en la celda D3: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "D3" Then Call Macro1 End...
1 respuesta

Copiar De una hoja a otra datos determinados

Y a ver si me podéis ayudar porque llevo mucho rompiéndome la cabeza con esto y no consigo saber si se puede hacer. Tengo un libro con dos hojas. En la primera (Hoja 1) Tengo una "base de datos" en la que en la que: Columna A :Nombre productos;...
1 respuesta

Buscar condicionado y copiar en otra hoja excel.

Estoy trabajando con un libro de excel de plan de acción o tareas. Tengo columnas con tareas, responsable, departamento involucrado, fecha límite, prioridad, y status (empezado, no empezado y completado). Quiero en otra hoja crearme una especie de...
1 respuesta

Como pasar varias filas con mismo código a otras hojas

Necesito pasar de una base de datos toda las filas que tengan el mismo código (que estará en la columna A) a otras hojas, y cada vez que reconozca el código y copie la fila entera en la hoja que tenga el mismo código, por favor es urgente, si es...
1 respuesta

Como filtrar a partir de celdas constantes(macro o fórmula)

Como se puede filtrar(con fórumulas o macros) lo siguiente: Tengo una tabla llamada SOS, la cual tiene filtro de diferentes sku's Quiero filtrar tomando dos criterios: A1(que especifique en que columna filtrar), y B1(especifique el valor a filtrar),...
2 respuestas

Problema para compartir libros con Macros en Excel

Tengo una archivo de excel que tiene muchas macros entre estas filtros avanzados, cuando comparto el libro no me corren las macros que tiene el archivo y me dice que el error está en advancefilter.
1 respuesta

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta