Cambio de Color en celdas por validacion de 2 digitos

davo escribió el 06/02/2013 18:47 :

¡ Hola que tal!

Soy nuevo en este foro y me da gusto de pertenecer!

Ahora si a lo que nos truje chencha!! jeje

Alguien sabe de alguna macro o formula para el cambio de color en celdas
(b10:b110), en caso de que los dos primeros digitos de 9 sean diferentes a los
valores 51, 52, 53, 54, 55, 70 o 74?

lo siento soy principiante en esto de excel
espero y si me puedan ayudar
muchas gracias!

Hola davo, con esto lo puedes hacer siempre y cuando tu excell este configurado para que al dar Enter la celda se recorra a la celda de abajo, y es para cualquier número no solo para los que tengan 9 dígitos.

En el editor de VBA de la hoja donde capturas tu información pega éste procedimiento:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, [B10:B110]) Is Nothing Then Exit Sub
Call Extrae

End Sub

Y en un Modulo pega éste procedimiento, con ésto, la celda que cumpla con alguno de los números al inicio se "pintara" de rojo.

Sub Extrae()

Dim Val As String

ActiveCell.Offset(-1, 0).Activate
Val = Mid(ActiveCell.Value, 1, 2)
If Val = "51" Or Val = "52" Or Val = "53" Or Val = "54" Or Val = "55" Or Val = "70" Or Val = "74" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub