Macro color (2)

Buenas Paramisolo ^______^
Te vengo a hacer una pequeña consulta a ver si puedes volver a echarme una mano con la macro de colores que me estuviste ayudando hace unos días.
Esta fue la que me hiciste.
Sub Color_Rojo()
    Range("H2:H21").Select
    Do While ActiveCell.Value <> ""
    If ActiveCell.Interior.Color <> 255 Then
    ActiveCell.EntireRow.Hidden =True
    Else
    ActiveCell.EntireRow.Hidden = False
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub
Habria alguna forma de hacerla de la siguiente manera?
Sub color_rojo()
    fila1 = 12 'comienza
    fila2 = 300 ' finaliza
    col = 3 ' columna C3, donde estan las teñidas de color rojo
    For fila = fila1 To fila2
     If Cells(fila, col).Interior.Color = 255 Then
         Cells(fila, col).EntireRow.Hidden = True
    Else
         Cells(fila, col).EntireRow.Hidden = False
     End If
     Next fila
End Sub
La macro va a la desde C12 a C300, y si encuentra el color rojo en cualquiera de las filas de la columna 3(c), entonces muestra esas filas que tienen el color rojo. Sino las oculta. Pero lo que sucede es que puede haber celdas en blanco que no quiero que oculte. Aparte que a la macro no se que le pasa pero no realiza bien la acción.
¿Podrías ayudarme? Un saludo y gracias

1 respuesta

Respuesta
1
Vuelves a hacerte un lío con los valores le estas diciendo que si la celda esta de color rojo la oculte, Hidden=True significa Oculta=Sí
De todas formas tanto lío para esto, si utilizas la macro que te puse marcas donde empieza y donde termina en el Loop:
Sub Color_Rojo()
    Range("C12").Select
    Do While ActiveCell.Address <> $C$300
    If ActiveCell.Interior.Color <> 255 Then
    ActiveCell.EntireRow.Hidden =True
    Else
    ActiveCell.EntireRow.Hidden = False
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub
Ya está solucionado, la primera parte, ahora me dices que hay celdas en blanco que no quieres que oculte la fila, estupendo, pero todas las celdas en blanco o las que el señor le guste. Excel no es Dios y tendrás que ponerle alguna condición a parte del color del fondo de la celda que le sirva para tener en cuenta a la hora de mostrar u ocultar. Piensa que condición es esa y vamos a ponerla en la macro:
If ActiveCell.(lo que quieras que debe tener la celda o celdas contiguas, color, valor etc)= A lo que tu quieras
ActiveCell.EntireRow.Hidden =True
    Else
    ActiveCell.EntireRow.Hidden = False
Lo que necesites que haga.
>Un saludo
>Julio
Uhm me marca en rojo esto como error:
Do While ActiveCell.Address <> $C$300
Uhm, podría poner... un else de esta forma, ¿Por si es blanco que la muestre?

Sub Color_Rojo()
    Range("C12").Select
    Do While ActiveCell.Address <> $C$300
    If ActiveCell.Interior.Color <> 255 Then
    ActiveCell.EntireRow.Hidden = True
    Else
        If ActiveCell.Interior.Color <> 2 Then ' 2 para el color blanco
        ActiveCell.EntireRow.Hidden = True
        Else
        ActiveCell.EntireRow.Hidden = False
        End If
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub
Si funcionase, ¿mostraría las celdas rojas y blancas no es así? Las demás las ocultaría supongo.
Un saludo
El color "Sin color" no es 2 es xlNone y entonces hay que tomar la propiedad .ColorIndex no sirve .Color que tiene otros valores para los colores, la macro según la necesitas quedaría así (antes olvidé las comillas, perdón):
Sub Color_Rojo()
    Range("C12").Select
    Do While ActiveCell.Address <> "$C$300"
    If ActiveCell.Interior.ColorIndex = 3 Or ActiveCell.Interior.ColorIndex = xlNone Then
    ActiveCell.EntireRow.Hidden = False
    Else
    ActiveCell.EntireRow.Hidden = True
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ocultar filas con resultado "cero"

Mi duda radica en lo siguiente: Tengo un rango con resultados y subtotales y deseo que excel me evalúe los resultados y me oculte las filas cuyos resultados sean "cero" pero que no oculte los subtotales en caso de que sean "cero" p.e. A B C 1 + 2 = 3...
1 respuesta

Macro para mover a la celda de la derecha pero "respetando" si la celda está bloqueada o no.

Tengo este macro (cortesía de luismondelo de TodoExpertos.com) Sub auto_open() Application.OnKey "~", "prueba" End Sub Sub prueba() ActiveCell.Offset(0, 1).Select End Sub El tema es que tengo celdas bloqueadas y tengo destildado la opción de...
1 respuesta

Macro para ocultar filas según color

Quisiera que me colaborara con la corrección de la siguiente macro: Sub esconderfilas2() Dim str str = Range("K9:O9").Address Range(str).Select For i = 1 To 200 For Each str In Selection If Selection.Interior.Color = RGB(51, 153, 102) Or...
1 respuesta

Macro para eliminar filas y columnas ocultas

Necesito un macro para eliminar filas y columnas de una hoja. Probé algunos macros que encontré en internet y algunos me dan error y otros directamente no hacen nada. El archivo no tiene ninguna particularidad más que contener una tabla con filas ocultas.
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

Seleccionar Filas Con VB

La duda es la que sigue. Tengo un a hoja excel con a1 nombre, a2 dato, a3 importe y esto en varias filas . Como puedo hacer por medio de vb, al accionar un botón, ¿Qué las filas que no tienen importe ( 0,00) queden ocultas para imprimir solo las que...
1 respuesta

Esconder la fila si se cumple una condición

Tengo unas fechas que cambian con una lista desplegable. En una celda se elije el año, en otra el mes y con esto las fechas de una tabla se actualizan. Lo que quisiera saber es, si es posible hacer que una macro recorra una serie de fechas que por...
1 respuesta

Encontrar primer registro vacío dentro de un rango

El código que muestro a continuación posiciona el cursor una celda debajo de la ultima celda ocupada en una lista de datos que se encuentren en la columna "A". Range("A" & [A:A].Rows.Count).End(xlUp).Offset(1, 0).Select Lo que yo deseo saber es si...
1 respuesta

Borrar fila donde contenga la palabra ##### ANULADA

Encontré este cogido que funciona pero solo para palabras que inicien en la celda con ese texto, necesito eliminar las filas donde me encuentre la palabra anulada y como son facturas la celda tiene este formato por decirlo asi: CELDA H5: 1940 ANULADA...
1 respuesta

Macro para ocultar filas en cero

Tengo una tabla dinámica con muchos valores, necesito ocultar una serie de filas cuyo valor sea mayor o menor a 1, son 3 columnas comenzando en la celda "D8" y las 3 deben estar en este rango para ocultarse, aunado a esto, si las 3 columnas tienen...
1 respuesta