excel - segun - VBA: cambia el color de las celdas según el valor en una celda particular

macro para cambiar color celda segun valor

Question

Quiero cambiar los colores de fondo de las celdas A2:C2 función del valor de la celda D2 .

Esto también se aplica a las celdas relativas en las filas 3,4 y 5.

Si el valor en la celda D# es 1, me gustaría el color x. Si el valor es 2, me gustaría el color y, si el valor es 3, me gustaría el color z.

Si hace una diferencia, el rango objetivo ( A2:D6 ) estará en formato de tabla.

Me gustaría que esta subrutina se ejecute al abrir el libro de trabajo. Sé dónde poner esa subrutina, así que no te preocupes diciéndome cómo.

He hecho esto con el formato condicional, pero estaría bien tener algún VBA que pueda copiar-pasta en futuros informes.

Answer 1

Deberías usar el formato condicional, pero esto funciona:

Sub ColorMeElmo()
   Dim i As Long, r1 As Range, r2 As Range

   For i = 2 To 5
      Set r1 = Range("D" & i)
      Set r2 = Range("A" & i & ":C" & i)
      If r1.Value = 1 Then r2.Interior.Color = vbRed
      If r1.Value = 2 Then r2.Interior.Color = vbBlue
      If r1.Value = 3 Then r2.Interior.Color = vbYellow
   Next i
End Sub