ERROR EN EJECUCION DE MACRO

[ARIELOK]

GRUPO AYUDA EXCEL

DIOS LOS BENDIGA Y TENGAN USTEDES UN EXCENTE DIA

TENGO EL SIGUIENTE CODIGO

Y EN RANGO DONDE DESEO COPIAR ES HASTA LA COLUMNA N =CopyToRange:=Range("A5:J2000") CAMBIO EL RANGO A "A5:N2000"

Y ME SALE ERROR QUE NO ME PERMITE EJECUTAR LA MACRO

SI ALGUIEN PODRIA AYUDAR A MEJORAR EL CODIGO O TALVEZ ESTOY OMITIENDO ALGO

DE ANTE MANO GRACIAS

Sub CONSULTA_DOC()
'
' CONSULTA_DOC Macro
'
' Acceso directo: Ctrl+Mayús+F
'
    Sheets("DIARIO").Range("A5:N10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Z5:AA6"), CopyToRange:=Range("A5:J2000"), _
        Unique:=False
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A6:N225").Select
    ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort.SortFields.Add Key:=Range( _
        "A6:A225"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort
        .SetRange Range("A5:N225")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
End Sub

EJEMPLO.xlsm

[Haplox]

Hace 44 minutos , ARIELOK dijo:

SI ALGUIEN PODRIA AYUDAR A MEJORAR EL CODIGO O TALVEZ ESTOY OMITIENDO ALGO

Si nos dices qué pretendes hacer, lo mismo podemos hacer algo, porque viendo tu código no llego a adivinar su propósito

[ARIELOK]

Hace 1 hora, Haplox dijo:

Si nos dices qué pretendes hacer, lo mismo podemos hacer algo, porque viendo tu código no llego a adivinar su propósito

DE ANTE MANO GRACIAS HAPLOX

TRATO DE COPIAR TODAS LAS COLUMNAS DEL RANGO A5:N1000 DE LA HOJA DIARIO FILTRANDO EL TIPO DE DOCUMENTO (COLUMNA A "DIARIO") Y EL NUMERO DE DOCUMENTO (COLUMNA C "DIARIO" ) CON LA CONDICION QUE SE REGISTRE EN LAS CELDA "O1:P1" DE LA HOJA CONSULTA X DOC 

LA FUNCION SE EJECUTA BIEN PERO SOLO HASTA LA COLUMNA "J" Y NECESITO QUE COPIE LOS DATOS HASTA LA COLUMNA "N" DE LA HOJA CONSULTA X DOC

EN EL EJEMPLO SI CAMBIAS LOS DATOS DE LAS CELDAS O1:P1 PODRAS DARTE CUENTA QUE FUNCIONA PERFECTAMENTE

MUCHAS GRACIAS HAPLOX