Saltar al contenido

macro filtre determinada categoría de una tabla


Luis de la Rosa

Recommended Posts

ola, 

Tengo esta macro

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.Copy
Sheets("ETA missed").Select
Selection.End(xlDown).Select
Range("A108").Select
ActiveSheet.paste

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" 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 y no la palabra (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

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.