Macro para ocultar filas sin colorear
-------
Hola
Necesito su ayuda para una macro que me ayude a ocultar filas que no estan coloreadas
Tengo una hoja donde aparecen filas en rojo, verde, amarillo y filas blancas
Necesito ocultar las blancas (sin eliminarlas, solo ocultarlas)
El archivo ocupa las columnas desde A hasta J
La cantidad de filas indeterminada
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro. Oculta las filas si el color está puesto con el formato de colores. Si el color está puesto con el formato condicional, entonces no funciona.
Sub Ocultar_Filas() 'Por.Dante Amor For i = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row To 1 Step -1 If Cells(i, "A").Interior.ColorIndex = xlNone Then Rows(i).Hidden = True End If Next End Sub
Si pusiste el color con formato condicional, tendrías que explicarme cuál es la condición para reproducirla en la macro.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
