Filtros Avanzados..!!!

06/06/2006 - 16:52 por Edwin Torres | Informe spam
Hola a Todos!!!

Intento aplicar la funcion de Filtros avanzados pero no me filtra,

Alguien me puede guiar?
los pasos que hago son los siguientes:
Menu/Datos/Filtros Avanzados
Luego en rango de la lista marco todo lo que corresponde a los datos mas
los encabezados
En el rango de criterio que esta 7 filas abajo hago lo mismo marco los
encabezados con el criterio.

Pero nada ocurre, que estoy haciendo mal????

Gracias,

Edwin Torres
Office 2003-WinXp
Honduras C. A.

Preguntas similare

Leer las respuestas

#1 KL
06/06/2006 - 20:55 | Informe spam
Hola Edwin,

Si no te da el error y nada ocurre - lo mas probable es que hagas mal los criterios, o sea que no existen registros que correspondan a tu busqueda. Tendras que dar mas detalles de que es lo que haces exactamente:

1) en que rango esta tu base de datos (que titulos tiene)
2) en que rango esta y que titulos y valores contiene el rango de criterios
3) en vez de "todo lo que corresponde" dinos exactamente las opciones y los rangos que marcas

Incluso no estaria demas que pongas un vinculo a tu archivo para poder bajarlo y ver que pasa sobre el terreno.

Saludos,
KL


"Edwin Torres" wrote in message news:
Hola a Todos!!!

Intento aplicar la funcion de Filtros avanzados pero no me filtra,

Alguien me puede guiar?
los pasos que hago son los siguientes:
Menu/Datos/Filtros Avanzados
Luego en rango de la lista marco todo lo que corresponde a los datos mas
los encabezados
En el rango de criterio que esta 7 filas abajo hago lo mismo marco los
encabezados con el criterio.

Pero nada ocurre, que estoy haciendo mal????

Gracias,

Edwin Torres
Office 2003-WinXp
Honduras C. A.




Respuesta Responder a este mensaje
#2 Edwin Torres
08/06/2006 - 19:40 | Informe spam
ya me funciono, pero una consulta:
siempre hay que estar ejecuntando filtros avanzados por cada filtro que se
haga???
no se efectua automaticamente al cambiar los valores???

Gracias!!!


"KL" escribio en el mensaje
news:
Hola Edwin,

Si no te da el error y nada ocurre - lo mas probable es que hagas mal los
criterios, o sea que no existen registros que correspondan a tu busqueda.
Tendras que dar mas detalles de que es lo que haces exactamente:

1) en que rango esta tu base de datos (que titulos tiene)
2) en que rango esta y que titulos y valores contiene el rango de criterios
3) en vez de "todo lo que corresponde" dinos exactamente las opciones y los
rangos que marcas

Incluso no estaria demas que pongas un vinculo a tu archivo para poder
bajarlo y ver que pasa sobre el terreno.

Saludos,
KL


"Edwin Torres" wrote in message
news:
Hola a Todos!!!

Intento aplicar la funcion de Filtros avanzados pero no me filtra,

Alguien me puede guiar?
los pasos que hago son los siguientes:
Menu/Datos/Filtros Avanzados
Luego en rango de la lista marco todo lo que corresponde a los datos
mas
los encabezados
En el rango de criterio que esta 7 filas abajo hago lo mismo marco los
encabezados con el criterio.

Pero nada ocurre, que estoy haciendo mal????

Gracias,

Edwin Torres
Office 2003-WinXp
Honduras C. A.




Respuesta Responder a este mensaje
#3 KL
08/06/2006 - 20:39 | Informe spam
Hola Edwin,

"Edwin Torres" wrote in message news:%
ya me funciono, pero una consulta:
siempre hay que estar ejecuntando filtros avanzados por cada filtro que se
haga???
no se efectua automaticamente al cambiar los valores???



En principio, el filtro avanzado no se actualiza automaticamente al cambiar los criterios, pero... se puede hacer que lo agan creando un procedimiento VBA asociado al evento Change de la hoja donde esta el rango de criterios para que ejecute el filtro cada vez que modifiquemos algo en dicho rango. A continuacion te pongo un ejemplo que se tiene que copiar en el modulo de la hoja donde esta el rango de criterios y se tienen que sustituir los rangos por los que realmente estas usando:

'en el modulo VBA de la hoja--
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Criterios As Range
Dim Resultado As Range
Dim BaseDatos As Range

Set Criterios = [A1:F2]
Set Resultado = [A6].CurrentRegion
Set BaseDatos = ThisWorkbook.Sheets(1).UsedRange

If Intersect(Target, Criterios) Is Nothing Then Exit Sub

Resultado.ClearContents

BaseDatos.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Criterios, _
CopyToRange:=Resultado(1)
End Sub
'


Nota: En realidad no hay necesidad de introducir las variables (tal vez excepto la Resultados) en este codigo ya que se usan una sola vez y consumen memoria, pero lo hice para mayor claridad.

Saludos,
KL
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida