What am I missing?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

keithb - 19 Dec 2005 23:26 GMT

What am I missing? This code is in the "ThisWorkbook" Module; however it
does not execute ShiftLeft and ShiftRight when the designated keys are
pressed.

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Application.OnKey "%{LEFT}", "ShiftLeft"
Application.OnKey "%{RIGHT}", "ShiftRight"
End Sub

Sub ShiftLeft()
With Selection
If (.IndentLevel > 0) Then
.InsertIndent -1
Else
Beep
End If
End With
End Sub

Sub ShiftRight()
With Selection
If (.IndentLevel < 15) Then
.InsertIndent 1
Else
Beep
End If
End With
End Sub

Reply to this Message

Jim Thomlinson - 19 Dec 2005 23:36 GMT

I am assuming that this is a regular workbook and not an addin? Do you have a
class instantiated to catch events. If not then in ThisWorkbook you want

Private Sub Workbook_Open()
Application.OnKey "%{LEFT}", "ShiftLeft"
Application.OnKey "%{RIGHT}", "ShiftRight"
End Sub

Signature

HTH...

Jim Thomlinson

> What am I missing? This code is in the "ThisWorkbook" Module; however it
> does not execute ShiftLeft and ShiftRight when the designated keys are
[quoted text clipped - 24 lines]
> End With
> End Sub

Reply to this Message

SKRS - 21 Feb 2006 14:10 GMT

hey thr,

this assignment in workbook_open is havin no effect.

Private Sub Workbook_Open()
MsgBox "open"
Application.OnKey "{~}", "EnterKey"
End Sub
Sub EnterKey()
MsgBox "enter key"
Call ActiveCell.Offset(ActiveSheet.Target.Row + 1,
ActiveSheet.Target.Column)
End Sub

in the above code, enterkey is not being invoked. where should the
application.onKey assignment be done.

appreciate your inputs.

thanks

> I am assuming that this is a regular workbook and not an addin? Do you have a
> class instantiated to catch events. If not then in ThisWorkbook you want
[quoted text clipped - 32 lines]
> > End With
> > End Sub

Reply to this Message