macro filtre determinada categoría de una tabla
Publicado por Luis de la Rosa (1 intervención) el 20/11/2016 05:38:12
Hola,
Tengo esta macro
La cuestión es que quiero que filtre resultados con la palabra "dispatched" pero lo que hace es filtrar de acuerdo a la palabra que esté en la posición (en lista del filtro) donde está "dispatched" (en este caso, "field=2") y no a la palabra como tal. Dependiendo el día, "dispatched" varía su lugar en la lista del filtro y ahí radica mi problema. Lo mismo con otra columna que solo quiero que me quite las que estén en blanco pero de nuevo, guarda la posición (field=6) y no el concepto (BLANK o <>)
Por último, quiero pegar este resultado en otra tabla en otra hoja pero hasta el final de la tabla pues este es un acumulado. La macro guarda el número de la celda y no el hecho de que sea la últma
Gracias por el apoyo
Tengo esta macro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$B$2:$H$10000"), , xlYes).Name = _
"Table9"Range("Table9[#All]").Select
ActiveSheet.ListObjects("Table9").TableStyle = "TableStyleLight2"
ActiveSheet.ListObjects("Table9").Range.AutoFilter Field:=2, Criteria1:= _
"Dispatched"Columns("E:E").Select
Selection.delete Shift:=xlToLeft
Columns("D:D").Select
Selection.TextToColumns Destination:=Range( _
"Table9[[#Headers],[ETA Set For Date]]"), DataType:=xlFixedWidth, FieldInfo _
:=Array(0, 3), TrailingMinusNumbers:=True
ActiveSheet.ListObjects("Table9").Range.AutoFilter Field:=6, Criteria1:= _
"<>"Range("B2:G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CopySheets("ETA missed").Select
Selection.End(xlDown).Select
Range("A108").Select
ActiveSheet.pasteLa cuestión es que quiero que filtre resultados con la palabra "dispatched" pero lo que hace es filtrar de acuerdo a la palabra que esté en la posición (en lista del filtro) donde está "dispatched" (en este caso, "field=2") y no a la palabra como tal. Dependiendo el día, "dispatched" varía su lugar en la lista del filtro y ahí radica mi problema. Lo mismo con otra columna que solo quiero que me quite las que estén en blanco pero de nuevo, guarda la posición (field=6) y no el concepto (BLANK o <>)
Por último, quiero pegar este resultado en otra tabla en otra hoja pero hasta el final de la tabla pues este es un acumulado. La macro guarda el número de la celda y no el hecho de que sea la últma
Gracias por el apoyo
Valora esta pregunta
0