Rellenar Rango excel según variable
Hola Elsa,
Necesitaría saber como puedo hacer una macro en excel, que según una variable insertada p.e. En la celda F20, rellene un rango de celdas (p.e. B1:D6) de un color determinado sin afectar el resto de parámetros ni contenido de éstas.
Por ejemplo: para valor de F20 = 1 relleno color amarillo, para valor 2 relleno azul, para valor 3 relleno naranja. Si además las opciones de valor de la celda F20 aparecieran de manera desplegable sería perfecto.
Un saludo y gracias,
Oscar Lerma.
Necesitaría saber como puedo hacer una macro en excel, que según una variable insertada p.e. En la celda F20, rellene un rango de celdas (p.e. B1:D6) de un color determinado sin afectar el resto de parámetros ni contenido de éstas.
Por ejemplo: para valor de F20 = 1 relleno color amarillo, para valor 2 relleno azul, para valor 3 relleno naranja. Si además las opciones de valor de la celda F20 aparecieran de manera desplegable sería perfecto.
Un saludo y gracias,
Oscar Lerma.
1 respuesta
Respuesta de Elsa Matilde
1
En primer lugar seleccioná la celda F20 y desde menú Datos, Validación optá por Lista y en el campo ingresá los valores 1; 2; 3 o podes ingresar un rango donde los tendrás (pueden ser los nombres de colores)
=J1:J5
Ahora entrá al editor de macros, seleccioná con doble clic el objeto HOJA que corresponda, y allí copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$20" Then
Select Case Target.Value
Case Is = 1
Range("B1:D6").Interior.ColorIndex = 2
Case Is = 2
Range("B1:D6").Interior.ColorIndex = 4
Case Is = 3
Range("B1:D6").Interior.ColorIndex = 7
'otros case
End Select
End If
End Sub
Si vas a desplegar los nombres los Case deben ser de este tipo
Case = "naranja"
La lista de colores la podes encontrar en la Ayuda, bajo el tema Propiedad Pattern ColorIndex
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm
=J1:J5
Ahora entrá al editor de macros, seleccioná con doble clic el objeto HOJA que corresponda, y allí copiá esta rutina:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$20" Then
Select Case Target.Value
Case Is = 1
Range("B1:D6").Interior.ColorIndex = 2
Case Is = 2
Range("B1:D6").Interior.ColorIndex = 4
Case Is = 3
Range("B1:D6").Interior.ColorIndex = 7
'otros case
End Select
End If
End Sub
Si vas a desplegar los nombres los Case deben ser de este tipo
Case = "naranja"
La lista de colores la podes encontrar en la Ayuda, bajo el tema Propiedad Pattern ColorIndex
Sdos
Elsa
http://aplicaexcel.galeon.com/macros.htm
