¿Sombrear celdas excel condicionada a otras celdas?
Hola a todos:
Quisiera saber como sombrear una serie de celdas si el valor de una celda es algo concreto.
Caso concreto: sombrear las celdas A1, A2, A3 y A4 si en la celda A4 escribo solo la letra R.
Muchas gracias.
Quisiera saber como sombrear una serie de celdas si el valor de una celda es algo concreto.
Caso concreto: sombrear las celdas A1, A2, A3 y A4 si en la celda A4 escribo solo la letra R.
Muchas gracias.
Respuesta de paramisolo
1
Se puede hacer con una macro que este colocada en la hoja. Me explico:
Pulsas Alt+F11 y en la ventana de VBA que te aparece en la columna de la izquierda pulsas doble click sobre la hoja donde quieres hacer esto en automático, y pegas esto en la ventana en blanco que aparece:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If ActiveCell.Offset(-1, 0).Value = "R" Then
Range(ActiveCell.Offset(-2, 0), ActiveCell.Offset(-4, 0)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End If
End Sub
La macro funciona así cada vez que escribas R en una celda de la Col A y pulses enter para bajar una fila, las 3 celdas de encima de la que escribiste la R se sombrearan de color gris (he elegido este color si no te gusta le cambias el numero 15 por el que te guste).
>Un saludo
>Julio
PD: Si te ha servido puntúa y finaliza la consulta.
Pulsas Alt+F11 y en la ventana de VBA que te aparece en la columna de la izquierda pulsas doble click sobre la hoja donde quieres hacer esto en automático, y pegas esto en la ventana en blanco que aparece:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If ActiveCell.Offset(-1, 0).Value = "R" Then
Range(ActiveCell.Offset(-2, 0), ActiveCell.Offset(-4, 0)).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
End If
End Sub
La macro funciona así cada vez que escribas R en una celda de la Col A y pulses enter para bajar una fila, las 3 celdas de encima de la que escribiste la R se sombrearan de color gris (he elegido este color si no te gusta le cambias el numero 15 por el que te guste).
>Un saludo
>Julio
PD: Si te ha servido puntúa y finaliza la consulta.
