Visual Basic para Aplicaciones - apretar tecla "up" y colorear celda

Life is soft - evento anual de software empresarial

apretar tecla "up" y colorear celda

Publicado por Juan VBA (5 intervenciones) el 26/02/2017 22:17:51

Hola amigos!
Quisiera saber, SIN utilizar ningún UseForm, cómo puedo pintar una celda de una hoja Excel al presionar la tecla Up (es decir, la flecha hacia arriba).

Es decir, ¿existe algún código en VBA para Excel en la que cuando pulso la tecla de la flecha hacia arriba (UP) me pueda colorear una celda y cuando pulso hacia abajo me la deje sin color?

¡Muchas gracias a todos!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

apretar tecla "up" y colorear celda

Publicado por JuanC (565 intervenciones) el 28/02/2017 11:40:45

prueba con algo así...

Sub Auto_Open()

Application.OnKey "{UP}", "up"

Application.OnKey "{DOWN}", "down"

End Sub

Sub up()

On Error Resume Next

ActiveCell.Interior.ColorIndex = 3

'ActiveCell.Offset(-1).Activate

End Sub

Sub down()

On Error Resume Next

ActiveCell.Interior.ColorIndex = 0

'ActiveCell.Offset(1).Activate

End Sub

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

apretar tecla "up" y colorear celda

Publicado por Juan VBA (5 intervenciones) el 28/02/2017 20:42:10

¡Hola JuanC!
Muchas gracias por tu respuesta. Funciona perfectamente. Has sido el único de todos los foros a los que he consultado, que me ha respondido a lo que pedía. Mil gracias!
Suerte amigo!

Valora esta respuesta

Comentar

Modificar datos sin borrar el resto

Exportar datos outlook a csv