+ Reply to Thread
Results 1 to 2 of 2

Cambiar color fila dependiendo de valor de columna

  1. #1

    Cambiar color fila dependiendo de valor de columna

    Hola, quiero cambiar el color de una fila entera dependiendo del valor
    de una celda en una columna.
    Las filas van de A-L y la columna E es el target. Si esta columna tiene
    valores "0" quiero que toda la fila se ponga gris, y si es diferente de
    cero que vuelva a blanco.
    Lo que he hecho es lo siguiente:
    - Formato condicional en la columna E:
    valor de la celda - igual a - "0%" -- cambia fondo a
    gris
    valor de la celda - no igual a - "0%" -- cambia fondo a
    blanco


    - Luego en VB he hecho lo siguiente:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("E4") =3D 0 Then
    Worksheets("Riesgos").Range("A4:L4").Interior.Color =3D RGB(192,
    192, 192)
    Else
    Worksheets("Riesgos").Range("A4:L4").Interior.Color =3D RGB(255,
    255, 255)
    End If



    [Seguramente el formato condicional sobre]. La cuesti=F3n es que esto
    que funciona quiero aplicarlo a todas las filas de la hoja, y no se
    como. He intentado hacer alg=FAn tipo de bucle del estilo:

    'Dim n As Integer
    'For n =3D 4 To 50
    'If Range("E"$n) =3D 0 Then
    'Worksheets("Riesgos").Range(A, L).Interior.Color =3D RGB(192, 192,
    192)
    'Else
    'Worksheets("Riesgos").Range(A, L).Interior.Color =3D RGB(255, 255,
    255)
    'End If
    'Next

    Pero no funciona, intento averiguar una forma de poner variables en
    Range pero no se como.
    =BFMe podr=EDais ayudar??
    Gracias


  2. #2

    Re: Cambiar color fila dependiendo de valor de columna

    Vale, ya lo tengo, por si a alguien le interesa:

    Dim n As Integer
    For n = 4 To 500
    If Range("E" & n) = "0" Then
    Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color =
    RGB(192, 192, 192)
    Else
    Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color =
    RGB(255, 255, 255)
    End If
    Next


+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1