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.
