What am I missing?
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 |
What am I missing?
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 -- HTH... Jim Thomlinson "keithb" wrote: 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 |
What am I missing?
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 "Jim Thomlinson" wrote: 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 -- HTH... Jim Thomlinson "keithb" wrote: 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 |
All times are GMT +1. The time now is 06:33 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com