Excel 2007, Necesito cambiar el color de una celda a partir de 3 textos de otra celda.
Buen día, tengo un archivo en excel con varias pestañas con información de ventas, necesito cambiar el color de un grupo de celdas de una pestaña a partir del texto que contenga otra celda en otra pestaña.
Por ejemplo:
El color rojo se aplicara al grupo de celdas si el texto en la otra celda es Entregado.
El color verde se aplicara al grupo de celdas si el texto en la otra celda es En transito.
El color amarillo se aplicara al grupo de celdas si el texto en la otra celda es En Almacen.
Saludos
1 respuesta
Tendrías que poner este código. Si no sabes donde ponerlo, ponte en contacto conmigo a través de mi web http://asesoriabarataonline.weebly.com
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B8").Value = "Entregado" Then
Range("A8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B8").Value = "En transito" Then
Range("A8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B8").Value = "En almacen" Then
Range("A8").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B9").Value = "Entregado" Then
Range("A9").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B9").Value = "En transito" Then
Range("A9").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B9").Value = "En almacen" Then
Range("A9").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B10").Value = "Entregado" Then
Range("A10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B10").Value = "En transito" Then
Range("A10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
If Range("B10").Value = "En almacen" Then
Range("A10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub
Te rogaría puntuases lo mejor posible mi respuesta y visites mi web
Asesoría Barata Online http://asesoriabarataonline.weebly.com
