Filtrar automáticamente filas con relleno
Hay alguna forma de que al momento de dale color de relleno a una fila o a varias estas se oculte, sin necesidad de tener que ir a la opción filtrar manualmente por color y solo me muestre las que están sin relleno.
1 Respuesta
Hay varias opciones estas:
1- Una macro con la que solo tiene que dale click
Y ella recora las celda y la oculte
Ejemplo:
sub Amarillo ()
Set rango = Range("a1:a100")
For Each celdita In rango
If celdita.Interior.Color = 65535 Then
celdita.EntireRow.Hidden = True
End If
Next
end subestas lo qye hace es que busca las celda que tengan el fondo amarrillo en el rango de a1 hasta a100 y la oculta
2 - en el evento selectionchange de la hoja
aqui seria automatico desde que coloques el color se oculta de una ves
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set rango = Range("a1:a100")
For Each celdita In rango
If celdita.Interior.Color = 65535 Then
celdita.EntireRow.Hidden = True
End If
Next
End Subsi te silve no olvides valorar paraq cerrar la pregunta
Hola
Muchas gracias el primero me funciono muy bien pero si quiero volver a ver las ocultas, me gustaría otro macro que me vuelva a mostrar todo
Ambas funcionan muy bien, me fui por la forma automática pero si quiero visualizar de nuevo todo me gustaría un macro para eso.
Gracias
Entonces te recomiendo usar la manual ya que si usas la automatic cuando le des para visualizer las oculta y quieras hace un cambio esta automáticamente volverán a ocultarse
Solo tiene que cambiar la parte de verdadero por falso
Seria así
sub verceldasoculta ()
Set rango = Range("a1:a100")
For Each celdita In rango
If celdita.Interior.Color = 65535
Then celdita.EntireRow.Hidden = false
End If
Next
end subrecuerdad valora para cerrar la pregunta
