none
Macro de excel en VB para colorear celdas RRS feed

  • Pregunta

  • Hola a todos, soy nuevo en el foro y no se si esta pregunta vaya en esta categoría, agradezco de antemano sus ayudas.

    El caso:

    Me encuentro desarrollando un macro en Excel mediante VB para colorear un rango de celdas mediante una condición, por ejemplo quisiera que el rango de A1 hasta H1 se coloree de gris cuando en la celda H1 se coloque una "X" y que el rango de A2 hasta H2 se coloree de gris cuando en la celda H2 se escriba una "X" y así sucesivamente con las filas necesarias.

    Buscando he encontrado un código:

    Option Compare Text
    Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Address <> "$H$1" Then Exit Sub
      With Target
        If .Value = "X" Then
          Range("A1:H1").Interior.Color = RGB(217, 217, 217)
        Else
          Range("A1:H").Interior.Color = xlNone
        End If
      End With
    End Sub

    Este código funciona correctamente pero el problema que solo aplica para la primera fila del  rango A1 hasta H1 y no lo puedo aplicar a otras filas.

    Espero poder haberme explicado correctamente y agradezco de antemano el apoyo.

    miércoles, 6 de noviembre de 2019 4:33