As per subject... is there a way to do this?

I would like to detect the Enter key code and SHIFT+Enter keys combination.

TIA

Hernan.

If the user is editing a cell, then for any practical purpose, macros don't
run.

--
Regards,
Tom Ogilvy

"Hernan" wrote in message
...
As per subject... is there a way to do this?

I would like to detect the Enter key code and SHIFT+Enter keys
combination.

TIA

Hernan.

hmmm...

how about on "exiting" the cell?


"Tom Ogilvy" wrote:

If the user is editing a cell, then for any practical purpose, macros don't
run.

--
Regards,
Tom Ogilvy

"Hernan" wrote in message
...
As per subject... is there a way to do this?

I would like to detect the Enter key code and SHIFT+Enter keys
combination.

TIA

Hernan.

There's a worksheet_Change event that may do what you want.

If you want to read more about events:

Chip Pearson's site:
http://www.cpearson.com/excel/events.htm

David McRitchie's site:
http://www.mvps.org/dmcritchie/excel/event.htm

Hernan wrote:

hmmm...

how about on "exiting" the cell?

"Tom Ogilvy" wrote:

If the user is editing a cell, then for any practical purpose, macros don't
run.

--
Regards,
Tom Ogilvy

"Hernan" wrote in message
...
As per subject... is there a way to do this?

I would like to detect the Enter key code and SHIFT+Enter keys
combination.

TIA

Hernan.




--

Dave Peterson

I would like to detect the Enter key code and SHIFT+Enter keys combination.

Application.Onkey can be used to respond to keyboard events.


Regards,
Vic Eldridge

Good thought.

Sub SetKey()
Application.OnKey "~", "MyEnter"
Application.OnKey "+~", "MyShiftEnter"
End Sub

Sub UnSetKey()
Application.OnKey "~"
Application.OnKey "+~"
End Sub

Sub MyEnter()
MsgBox "In MyEnter"
End Sub
Sub MyShiftEnter()
MsgBox "In MyShiftEnter"
End Sub

--
Regards,
Tom Ogilvy

"Vic Eldridge" wrote in message
...
I would like to detect the Enter key code and SHIFT+Enter keys
combination.

Application.Onkey can be used to respond to keyboard events.


Regards,
Vic Eldridge

Thank you Dave and Vicfor your help on this, and you Tom for the example.


Hernan.

"Tom Ogilvy" wrote:

Good thought.

Sub SetKey()
Application.OnKey "~", "MyEnter"
Application.OnKey "+~", "MyShiftEnter"
End Sub

Sub UnSetKey()
Application.OnKey "~"
Application.OnKey "+~"
End Sub

Sub MyEnter()
MsgBox "In MyEnter"
End Sub
Sub MyShiftEnter()
MsgBox "In MyShiftEnter"
End Sub

--
Regards,
Tom Ogilvy

"Vic Eldridge" wrote in message
...
I would like to detect the Enter key code and SHIFT+Enter keys
combination.

Application.Onkey can be used to respond to keyboard events.


Regards,
Vic Eldridge

I know this is an old, old thread.

What I want is that for cells in the named range Range("WeekDays") that on
typinging "+" the value is increased by 0.25 and on pressing "-" the value
decreased by 0.25.

What's the best way of achieving that in Excel 2003 ?

"Tom Ogilvy" wrote:

Good thought.

Sub SetKey()
Application.OnKey "~", "MyEnter"
Application.OnKey "+~", "MyShiftEnter"
End Sub

Sub UnSetKey()
Application.OnKey "~"
Application.OnKey "+~"
End Sub

Sub MyEnter()
MsgBox "In MyEnter"
End Sub
Sub MyShiftEnter()
MsgBox "In MyShiftEnter"
End Sub

--
Regards,
Tom Ogilvy

"Vic Eldridge" wrote in message
...
I would like to detect the Enter key code and SHIFT+Enter keys
combination.

Application.Onkey can be used to respond to keyboard events.


Regards,
Vic Eldridge

I don't think you can code the + and - keys, as they put any cell directly
into edit mode. So how about the left and right arrow keys

in the code below, the tow keys set a value to increase or decrease a cell
or cells by . this handles multiple cells

Option Explicit
Sub setkeys()
Application.OnKey "{right}", "IncreaseCellValue"
Application.OnKey "{left}", "DecreaseCellValue"
End Sub

Sub unsetkeys()
Application.OnKey "{right}"
Application.OnKey "{left}"
End Sub

Sub IncreaseCellValue()
ChangeCellValue 0.25
End Sub
Sub DecreaseCellValue()
ChangeCellValue -0.25
End Sub

Sub ChangeCellValue(amount As Double)
Dim target As Range
Dim cell As Range
Set target = Intersect(Selection, Range("range1"))
If Not target Is Nothing Then
For Each cell In target
If IsNumeric(cell.Value) Then
cell.Value = cell.Value + amount
End If
Next
End If
End Sub


"SmartWombat" wrote in message
...
I know this is an old, old thread.

What I want is that for cells in the named range Range("WeekDays") that on
typinging "+" the value is increased by 0.25 and on pressing "-" the value
decreased by 0.25.

What's the best way of achieving that in Excel 2003 ?

"Tom Ogilvy" wrote:

Good thought.

Sub SetKey()
Application.OnKey "~", "MyEnter"
Application.OnKey "+~", "MyShiftEnter"
End Sub

Sub UnSetKey()
Application.OnKey "~"
Application.OnKey "+~"
End Sub

Sub MyEnter()
MsgBox "In MyEnter"
End Sub
Sub MyShiftEnter()
MsgBox "In MyShiftEnter"
End Sub

--
Regards,
Tom Ogilvy

"Vic Eldridge" wrote in message
...
I would like to detect the Enter key code and SHIFT+Enter keys
combination.

Application.Onkey can be used to respond to keyboard events.


Regards,
Vic Eldridge