Agregar otra condición de filtro en excel
Señores
Sin intención de abusar de su generosidad, quisiera formular otra duda y esperando puedan orientarme
Tengo un sector de código donde necesito agregar otra condición de filtro y la verdad?, no encuentro la forma....siempre programe para 2 casos solamente y no se la gramática para un tercero.entre otras cosas.
La idea es que, una vez que filtro por 3 condiciones (donde la tercera es la existencia o no de una cruz en la ultima celda de un rango fila), solo copiar todo el rango de filas filtrado
(el sector de código)
'limpia rango auxiliar
Range("AA:AZ").ClearContents
'cada rango de filtro tiene su nombre asignado, a partir de col AA de hoja Estad.
If Sheets("ESTADÍSTICAS").Range("K5") = "TODOS" Then
critx = "filtAreaFec"
Else
critx = "filtArea"
End If
Range("A1:Y" & Range("B65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
critx), CopyToRange:=Range("AA1"), Unique:=True
'copia rango filtrado a hoja Estadíst
If Range("AB65536").End(xlUp).Row > 1 Then
Range("AB2:AB" & Range("AA65536").End(xlUp).Row).Copy Destination:=Sheets("ESTADÍSTICAS").Range("B11")
Range("AC2:AC" & Range("AA65536").End(xlUp).Row).Copy Destination:=Sheets("ESTADÍSTICAS").Range("C11")
Range("AD2:AD" & Range("AA65536").End(xlUp).Row).Copy Destination:=Sheets("ESTADÍSTICAS").Range("E11")
Range("AE2:AE" & Range("AA65536").End(xlUp).Row).Copy Destination:=Sheets("ESTADÍSTICAS").Range("F11")
Range("AT2:AT" & Range("AA65536").End(xlUp).Row).Copy Destination:=Sheets("ESTADÍSTICAS").Range("G11")
End If
Muchas gracias nuevamente y quedo a la espera de la sugerencia
Daniel