FORMATO CONDICIONAL

Tom:
la siguiente rutina la tienes que colocar en el codigo de
la hoja donde quieres que esta condicion funcione, es
decir, si quieres que sea para la hoja1, da un clic
derecho sobre la etiqueta de esta hoja y selecciona "ver
codigo" y luego donde se abra el editor de VBA pega este
codigo.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lngRow As Long, lngColorIndex As Long
If Not (Intersect(Target, Range("AK2:AK9")) Is Nothing)
Then
lngRow = Target.Row
Select Case Target.Value
Case "N"
lngColorIndex = 3 'color rojo
Case "T"
lngColorIndex = 6 'color amarillo
Case "Z"
lngColorIndex = 5 'color azul
Case "R"
lngColorIndex = 50 'color verde
Case "S"
lngColorIndex = 7 'color rosa
Case Else
lngColorIndex = -4142 'sin color
End Select
Range("C" & lngRow & ":AH" &
lngRow).Interior.ColorIndex = lngColorIndex
End If
End Sub

Este ejemplo verifica los valores puestos en el rango
AK2:AK9 y si tiene una de las letras que indicaste
cambiara el color de la misma linea entre la columna C y
la AH.

Ajustalo a tus propias necesidades


Ten cuidado con las lineas de código muy largas...

Saludos
Servando Villalon

Alguien podría decirme como hago para que una celda se

ponga del color que

deseo siguiendo este criterio:
N, Rojo
T, Amarillo
N, Azul
R, Verde
S, Rosa
Gracias de antemano. Tomi


.