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

dave escribió el 07/02/2013 22:46 :

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

Hola dave!!, gracias por tu ayuda

Solo que tengo un ligero problema jeje

coloque el codigo tal cual me dijiste solo le realice el cambio de columna de "b:10:b110" a "C10:C110", capturo algun numero pero me aparece un "error de compilación: el procedimiento externo no es valido" y selecciona el -1 de (ActiveCell.Offset(-1, 0).Activate)

Me podras ayudar?

davo escribió el 08/02/2013 19:03 :

dave escribió el 07/02/2013 22:46 :

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

Hola dave!!, gracias por tu ayuda

Solo que tengo un ligero problema jeje

coloque el codigo tal cual me dijiste solo le realice el cambio de columna de
"b:10:b110" a "C10:C110", capturo algun numero pero me
aparece un "error de compilación: el procedimiento externo no es
valido" y selecciona el -1 de (ActiveCell.Offset(-1, 0).Activate)

Me podras ayudar?

Debes cambiar -1 por -2 (ActiveCell.Offset(-2, 0).Activate) ya que la función la estas tomando una columna adelante (de B a C).

dave escribió el 11/02/2013 22:45 :

davo escribió el 08/02/2013 19:03 :

dave escribió el 07/02/2013 22:46 :

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

Hola dave!!, gracias por tu ayuda

Solo que tengo un ligero problema jeje

coloque el codigo tal cual me dijiste solo le realice el cambio de columna de
"b:10:b110" a "C10:C110", capturo algun numero pero me
aparece un "error de compilación: el procedimiento externo no es
valido" y selecciona el -1 de (ActiveCell.Offset(-1, 0).Activate)

Me podras ayudar?

Debes cambiar -1 por -2 (ActiveCell.Offset(-2, 0).Activate) ya que la
función la estas tomando una columna adelante (de B a C).

Dave muchas gracias!!
me sirvio mucho ademas que le agregue para que lo pusiera en color blanco y quedo algo así:

Sub Extrae()

Dim Val As String

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


puedo dar por terminada la pregunta!! gracias!!