Filtrar por color de celda

05/10/2007 - 23:55 por Paolita | Informe spam
Hola amigos:

Tengo win XP y office 2003 y necesito filtrar todas las fillas que
tenganh la letra de color rojo o que se encuentren tachadas, alguien
sabe como hacerlo, por favor.
desde ya muchas gracias

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
06/10/2007 - 01:15 | Informe spam
hola, Paolita !

... necesito filtrar todas las fillas que tengan la letra de color rojo o que se encuentren tachadas ...



necesitas definir nombres usando macro-funciones de excel4 [p.e.] en una columna *auxiliar* en cada fila con formato

te paso una forma de hacerlo y si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

[p.e.] suponiendo que tu listado esta en las columna 'A:D' con los titulos/autofiltros en la fila 1...
a) agrega un titulo para filtrar en la columna 'E' y quieres *monitorear* el formato [rojo, tachado, etc.] de la columna 'A'
b) selecciona la celda 'E2' <= OJO es importante cual sea la celda activa para definir el nombre...
c) define un nombre [insertar / nombre / definir...] p.e. MiCondicion
d) usa la siguiente formula en el campo de 'se refiere a:' -> =indicar.celda(24+0*hoy(),!a2)
e) [todavia en 'E2' como celda activa] pulsa {F3} -> selecciona 'el nombre' definido -> pulsa {enter}
-> OJO: si tu excel es en ingles... deberas cambiar la formula por: -> =get.cell/24+0*now(),!a2) <= OJO
si tu excel es en otro idioma... :-\\ [habra que averiguar la traduccion correcta} :D
-> 'nota' el signo '!' y la referencia relativa a la celda a la izquierda ['A2'] de la seleccion activa ['E2']
la expresion +0*hoy() ES para volver 'volatil' el nombre asignado
f) copias la formula desde 'E2' hasta 'E_n' y usas esta columna para los autofiltros
-> toma en cuenta que deberas *atender* a los valores devueltos por la macro-funcion indicar.celda(...)
segun la caracteristica consultada [si es 24 -color del texto-] por si requieres de alguna condicion *especifica* [p.e.]
que el color de fuente sea SOLO si es color rojo.. -> =indicar.celda(24+0*hoy(),!a2)=3
SOLO cuando la fuente sea con estilo tachado -> =indicar.celda(23+0*hoy(),!a2)

-> otras opciones para obtener los formatos [hay 53 caracteristicas disponibles] son...
13 - color fondo
20 - negrita
21 - italica
22 - subrayado
23 - tachado
38 - color de superficie [fore-ground] cuando esta 'combinado'
39 - color de fondo [back-ground] cuando esta 'combinado'

IMPORTANTE: toma nota que 'este' tipo de nombres puede ser 'catastrofico' en versiones anteriores a 2002/xp...
-> cuando copias celdas que los usan a otras hojas/libros :-((
Respuesta Responder a este mensaje
#2 mrocf
06/10/2007 - 09:42 | Informe spam
Luego de incorporar la siguiente macro:

Sub OcultaFilas()
Application.ScreenUpdating = False
For Each Celda In Selection
If Celda.Font.Strikethrough = True Or _
Celda.Font.ColorIndex = 3 Then _
Celda.EntireRow.Hidden = True
Next Celda
Application.ScreenUpdating = True
End Sub

sólo tienes que seleccionar el rango de celdas a evaluar y ejecutarla.

Al cabo de unos segundos verás el efecto deseado.

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