+ Reply to Thread
Results 1 to 2 of 2

Cambiar color fila dependiendo de valor de columna

  1. #1
    angelajc@gmail.com
    Guest

    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
    angelajc@gmail.com
    Guest

    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