Filtros

Hola KL,

Lo que me has indicado es exactamente lo que estoy buscando, sin embargo, he
creado el ejemplo
que me indicas y funciona de maravilla, pero al intentar usarlo en mi tabla,
lo unico que aparece es una hoja nueva en blanco.

Tengo columnas de la A a la W tal y como te muestro en el ejemplo "real" que
adjunto, en AA1 he puesto "Estado" y en AA2 "Abierta",

?Que he hecho mal?

Si quieres puedo pasarte la hoja.

Gracias por tu interes.

El codigo de la macro es el siguiente, solo he modificado los rangos.

Sub pendiente()
On Error GoTo Salida
With ActiveSheet
Intersect(.UsedRange, .[A:W]).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.[AA1:AA2], _
CopyToRange:=Workbooks.Add.Sheets(1).[A1]
End With
ActiveSheet.Columns(1).Delete
Salida:
End Sub

N? Trim. Mes Dia Hora Modo Despacho Usuario Dpto. Elemento Descripcion
incidencia PC Tipo Duracion Actuaciones Tecnico Derivado Nivel Estado
Dedicacion Cierre Dias Dia
1 1T Ene. 02/01/2006 8:45 Telefono PAMPLONA user1 dep1 impresora bla
bla bla 1 5-15 min- bla bla bla 1 1.Muy Baja Cerrada 5-15 min.
02/01/2006 1 Lun
2 1T Ene. 02/01/2006 9:15 Telefono BARCELONA user 2 dep2 red bla bla
bla 4 15-30 min- bla bla bla 1 2.Baja Cerrada 5-15 min. 02/01/2006 1 Lun
3 1T Ene. 02/01/2006 9:42 Telefono BARCELONA user 3 dep3 impresora bla
bla bla 1 5-15 min- bla bla bla 1 2.Baja Pendiente 5-15 min. 02/01/2006
1 Lun



"KL" escribio en el mensaje
news:%

Hola Antonio,

Suponiendo que...

- Tu tabla ocupa la columnas A, B, C y D y empieza en la primera fila
- Tu tabla tiene encabezados de columnas ("Titulo1", "Titulo2", "Titulo3",

"Estado")

- En las celdas [G1] y [G2] pones "Estado" y "pendiente" respectivamente
- El boton lo tendras en la hoja donde esta la tabla de origen

Prueba usar el siguiente procedimiento:

Sub Macro1()
On Error GoTo Salida
With ActiveSheet
Intersect(.UsedRange, .[A:D]).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.[G1:G2], _
CopyToRange:=Workbooks.Add.Sheets(1).[A1]
End With
ActiveSheet.Columns(1).Delete
Salida:
End Sub

Saludos,
KL


"Antonio Ceacero" wrote in message

news:

> Gracias Big,
>
> Pero necesito una hoja aparte y que sea modificable...
>
> Me pongo a jugar con las tablas dinámicas a ver que sale.
>
> Más sugerencias?
>
> "big" escribió en el mensaje
> news:
>> Lo más fácil: utiliza autofiltro.
>> Un poco más complicado pero más ajustado a lo que quieres: tabla

dinámica

>> (obtienes el resumen y después pulsando sobre el dato te genera una

hoja

> con
>> los datos de detalle)
>>
>>
>> "Antonio Ceacero" escribió en el mensaje
>> news:
>> > Hola grupo,
>> >
>> >
>> > Tengo una sencilla hoja de cálculo del tipo
>> >
>> > A B C D
>> > xx xx xx pendiente
>> > xx xx xx cerrado
>> > xx xx xx pendiente
>> > xx xx xx pendiente
>> > xx xx xx cerrado
>> > xx xx xx pendiente
>> > xx xx xx pendiente
>> > xx xx xx cerrado
>> > xx xx xx pendiente
>> >
>> > Quisiera hacer una macro o botón que al ejecutarse, me generara un

excel

>> > nuevo donde inserte sólo las columna B y C (por ejemplo) de las filas
> cuyo
>> > D="pendiente".
>> >
>> > B C D
>> > xx xx pendiente
>> > xx xx pendiente
>> > xx xx pendiente
>> >
>> > A alguien se le ocurre una forma de hacerlo?
>> >
>> > Gracias por adelantado.
>> >
>> >
>>
>>
>
>