Ayuda con Filtros

Hola Jesus,

Non se si he entendido bien la tarea pero me parece que con un simple
COUNTIF debrias solucionar el tema. P.ej:

Sub test()
Dim Grupos As Variant, i As Long
Grupos = Array("jli", "lli", "jmc")
For i = 0 To 2
If Application.CountIf(Columns("C:C"), Grupos(i)) Then
'aqui haces tu filtrado con el critrerio Grupos(i)
End If
Next i
End Sub

o bien este:

Sub test2()
Dim Grupos As Variant, i As Long, Prueba As Range
Grupos = Array("jli", "lli", "jmc")
For i = 0 To 2
With Columns("C:C")
Set Prueba = .Find( _
What:=Grupos(i), _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext)
End With
If Not Prueba Is Nothing Then
'aqui haces tu filtrado con el critrerio Grupos(i)
End If
Next i
End Sub


Saludos,
KL


"Jesus Peralta" wrote in message
news:%
> Que tal amigos,.. pues aqui de nuevo, sabran que un amigo me envio este
> mensaje, pero la parecer no tiene al igual de conocimeintos de excel como
> ustedes y pues como yo menos porque se poquito, y me pidio le echara la
> mano
> y pues los maestros estan aqui; en ningun momento me adjudicare la ayuda,.
> este es su mensaje. haber si se explica bien.
> asi tal cual fuese la ayuda se la envio, porque no se conecta a diario y
> le
> recomende aqui, pero no tiene mucho tiempo.
>
> Tengo en una hoja con datos, en la fila de encabezamiento le he puesto
> unos
> filtros, hasta ahi todo bien, el problema se presenta cuando yo filtro via
> visual basic del excel (alt+f11), te explico:
> Fichas centro grupo
> JLI
> LLI
> JMC
> Fichas puede tener varios valores pero grupo solo tiene 3 valores estos
> son
> jli, lli y jmc, el detalle es cuando jalas estos datos de otro programa y
> comienzas a hacer el filtrado desde luego tu no sabes si tienes los 3
> valores de grupo y el vb comienza a filtrar cuando digamos que jli no
> existe, vb filtra todos los valores debajo del filtro y esto hace q se
> incremente considerablemente el tamaño del archivo, la solucion planteada
> seria saber si la celda debajo de grupo tenga valor o no, y si no tiene
> valor que no filtre, pero el detalle es como saber que numero de fila
> tiene
> esa celda comprendes por que estas con un autofiltro no se puede conocer
> el
> numero de celda, haber si te has enfrentado con este problema o si ya a
> alguien le salio eso, espero que me hayas entendido, o tambien la otra es
> cuando filtras como hacer un codigo en vb para que te muevas sobre las
> celdas visibles no mas comprendes... De ante mano te agradesco por tu
> ayuda
> y por tu tiempo gracias
>
> saludos...
>
>