Celda parpadeante...

hola, Vulcano !

Me parece que Héctor ya puso algo sobre esto...

=> 'alguna vez...' [aunque no para el caso 'especifico' que planteas] ;)

... libro ... a final el cursor se posiciona en una celda ... el usuario tiene que poner un numero (1, 2, 3, 4 o 5)

=> supongo que el 'posicionamiento' lo hace algun codigo [?]

... no hay manera. No se enteran ... que parpadease esa celda hasta que introduzcan el dato...

=> se requiere de codigo con el uso 'recursivo' del metodo 'OnTime' [tiene algunas visicitudes]
[podrian volver lento el modelo de tu libro] :(
[si quieres someter a consideracion las siguientes alternativas...]
a) un MsgBox [al finalizar la macro] indicando al usuario las acciones que siguen...
b) usar formatos condicionales en 'esa' celda [p.e. en 'A1']
condicion -> formula: =O(A1<1,A1>5)
formatos -> fuente en rojo / trama en amarillo / bordes tenues
c) usar algun formato 'personalizado' p.e. => [<1]"Falta";[>5]"Excedido";Estándar < [lo puedes 'combinar' con la opcion b]

=> si aun asi requieres de codigo... ¿comentas datos adicionales? [p.e.]
- siempre es 'la misma' celda ? [o existen varias]
- si son varias... podrian 'llegar a juntarse' varias 'esperando' por la 'entrada correcta' [por parte del usuario] ?
- ...???

saludos,
hector.

Pon este codigo en el módulo de la hoja donde vayas a trabajar
Asumo que la celda a cambiar es la B5, en caso contrario
cambia el código

Con este código les obligas a poner un dato en la celda B5
y que tenga que ser un número entero entre 1 y 5

Ya comentarás si te vale.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valor As Double

valor = ActiveSheet.Range("b5").Value
If Int(valor) <> valor Then
ActiveSheet.Range("b5").Value = 0
Else
If ActiveSheet.Range("b5").Value > 5 Or
ActiveSheet.Range("b5").Value < 1 Then
Range("b5").Activate
End If
End If
End Sub

Me parece que Héctor ya puso algo sobre esto...

Resulta que tengo un libro en el cual a final el cursor se

posiciona en una

celda en la cual el usuario tiene que poner un número (1,

2, 3, 4 ó 5)

Pero no hay manera. No se enteran. ¿Como se haría para que

parpadease esa

celda hasta que introduzcan el dato...

Gracias por vuestra ayuda


.

Gracias Peluchón y Héctor...

De todas maneras, como creia recordar, Héctor ya hizo algo sobre esto en
otra ocasión, que funcionaba, pero me ralentizaba bastante el equipo...Creo
que lo solucionaré de otra forma...

Lo que me extraña es que Héctor no se haya dado cuenta de que ¡¡¡era yo el
que hice la misma pregunta!!!

"Peluchon" escribió en el mensaje
news:12cfe01c4432a$cac65720$
Pon este codigo en el módulo de la hoja donde vayas a trabajar
Asumo que la celda a cambiar es la B5, en caso contrario
cambia el código

Con este código les obligas a poner un dato en la celda B5
y que tenga que ser un número entero entre 1 y 5

Ya comentarás si te vale.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valor As Double

valor = ActiveSheet.Range("b5").Value
If Int(valor) <> valor Then
ActiveSheet.Range("b5").Value = 0
Else
If ActiveSheet.Range("b5").Value > 5 Or
ActiveSheet.Range("b5").Value < 1 Then
Range("b5").Activate
End If
End If
End Sub

Me parece que Héctor ya puso algo sobre esto...

Resulta que tengo un libro en el cual a final el cursor se

posiciona en una

celda en la cual el usuario tiene que poner un número (1,

2, 3, 4 ó 5)

Pero no hay manera. No se enteran. ¿Como se haría para que

parpadease esa

celda hasta que introduzcan el dato...

Gracias por vuestra ayuda


.

hola :))

... algo sobre esto en otra ocasion ... pero me ralentizaba bastante el equipo
... Creo que lo solucionare de otra forma.

... me extraña que ... no se haya dado cuenta de que ¡¡¡era yo el que hice la misma pregunta!!!...

'entre' Guillermo / Vulcano / Navibel / 'todavianosequeposer' / y ??? [te confieso que...]
tuve ciertas dudas [al principio, aunque...] despues 'asumi' que las circunstancias 'eran diferentes'
[al igual que en aquella ocasion -marzo de 2003- 'colgada' de un post 'perdido']
[razon por la que 'puse'... => 'alguna vez...' [aunque no para el caso 'especifico' que planteas] ;)]
y considerando que el codigo propuesto [y su 'modificacion'] =>efectivamente<= 'alentan' el equipo
=> ... intente buscar soluciones 'alternas' [y mas 'sencillas']

[entonces...] 'tendria que'... insistir en las preguntas anteriores...
=> si aun asi requieres de codigo... ¿comentas datos adicionales? [p.e.]
- siempre es 'la misma' celda ? [o existen varias]
- si son varias... podrian 'llegar a juntarse' varias 'esperando' por la 'entrada correcta' [por parte del usuario] ?
- ...???

¿comentas?
saludos,
hector.

Hola Héctor...

Es para completar el trabajo del que ya me has ayudado hace unos dias.
La celda siempre es distinta.
Una macro se posiciona siempre en ella al finalizar, por lo cual la
parpadeante sería la celda activa y debería dejar de parpadear cuando en
ella se introdujese un 1, 2, 3, 4 ó 5, no aceptando otro valor...
Saludos
"Héctor Miguel" escribió en el mensaje
news:

hola :))

> ... algo sobre esto en otra ocasion ... pero me ralentizaba bastante el

equipo

> ... Creo que lo solucionare de otra forma.
>
> ... me extraña que ... no se haya dado cuenta de que ¡¡¡era yo el que

hice la misma pregunta!!!...

'entre' Guillermo / Vulcano / Navibel / 'todavianosequeposer' / y ??? [te

confieso que...]

tuve ciertas dudas [al principio, aunque...] despues 'asumi' que las

circunstancias 'eran diferentes'

[al igual que en aquella ocasion -marzo de 2003- 'colgada' de un post

'perdido']

[razon por la que 'puse'... => 'alguna vez...' [aunque no para el caso

'especifico' que planteas] ;)]

y considerando que el codigo propuesto [y su 'modificacion']

=>efectivamente<= 'alentan' el equipo

=> ... intente buscar soluciones 'alternas' [y mas 'sencillas']

[entonces...] 'tendria que'... insistir en las preguntas anteriores...
=> si aun asi requieres de codigo... ¿comentas datos adicionales? [p.e.]
- siempre es 'la misma' celda ? [o existen varias]
- si son varias... podrian 'llegar a juntarse' varias 'esperando' por

la 'entrada correcta' [por parte del usuario] ?

- ...???

¿comentas?
saludos,
hector.