diferencia entre backspace y suprimir

"Raúl" escribió en el mensaje news:

Hola

Espero darme a entender
Tengo unas celdas en donde introduje una formula para validar que no esté
vacía la celda entre otras validaciones, mi duda es:
si tengo un valor en la celda y se elimina con la tecla backspace la
validación funciona pero si se elimina con la tecla suprimir la validación no
funciona ¿alguien sabe que pasa?

Gracias de Antemano

Raúl

El problema pienso que se debe a que al pulsar la tecla 'Suprimir' no se llega a editar la celda, sino que simplemente Excel elimina su contenido.

Yo no veo otra forma de solucionarlo que mediante código. Tendrías que pegar lo siguiente en el módulo del libro (en ThisWorkbook):

Private Sub Workbook_Open()
Application.OnKey "{DEL}", "EnviarBackSpace"
End Sub

y esto otro en un módulo creado por ti (Insertar > Módulo):

Sub EnviarBackSpace()
Application.SendKeys "{BS}"
End Sub

Lo que hace el código es sustituir cualquier pulsación de la tecla Supr con la de retroceso. El código se podría refinar para que tan sólo hiciera dicha sustitución si se está editando una hoja determinada o incluso un rango o una celda.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Fernando Arroyo" escribió:

"Raúl" escribió en el mensaje news:
> Hola
>
> Espero darme a entender
> Tengo unas celdas en donde introduje una formula para validar que no esté
> vacía la celda entre otras validaciones, mi duda es:
> si tengo un valor en la celda y se elimina con la tecla backspace la
> validación funciona pero si se elimina con la tecla suprimir la validación no
> funciona ¿alguien sabe que pasa?
>
> Gracias de Antemano
>
> Raúl

El problema pienso que se debe a que al pulsar la tecla 'Suprimir' no se llega a editar la celda, sino que simplemente Excel elimina su contenido.

Yo no veo otra forma de solucionarlo que mediante código. Tendrías que pegar lo siguiente en el módulo del libro (en ThisWorkbook):

Private Sub Workbook_Open()
Application.OnKey "{DEL}", "EnviarBackSpace"
End Sub

y esto otro en un módulo creado por ti (Insertar > Módulo):

Sub EnviarBackSpace()
Application.SendKeys "{BS}"
End Sub

Lo que hace el código es sustituir cualquier pulsación de la tecla Supr con la de retroceso. El código se podría refinar para que tan sólo hiciera dicha sustitución si se está editando una hoja determinada o incluso un rango o una celda.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando

Muchas Gracias, funciona perfectamente, ya habia pensado algo así pero no
sabía como hacerlo

Saludos