application.onkey

Hi all, this is my first post here, but I've been a long time learner of vba. This is the first time I've ever tried to do something like this and I haven't been able to make it work, sadly. I wanted to create a key combination that would add 1 to a cells value if it was a date. I also intend...

I create some code for test Press F3 on VBA Excel, the function is Application.OnKey this method excel not working during write on the Cell and Cursor Flashing inside Cell, but work fine after pressing Enter Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey...

Is it possible to identify if a Application.OnKey is set or not? if Application.OnKey."+^{g}" = "MyMacro" then msgbox "Yeah" The final goal is ONE macro which disable or enable all shortcuts.

I thought this was going to be easy as Private Sub Workbook_Activate() Application.OnKey "{BACKSPACE}" Application.OnKey "{DELETE}" End Sub Private Sub Workbook_Deactivate() Application.OnKey "{BACKSPACE}" Application.OnKey "{DELETE}"End Sub Apparently its not working when...

Anyone who know the code ? now i found the code follow as below but it's can printscreen :( help me please... <code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Private Sub Workbook_Activate() Application.OnKey "{42}", "TEST" End...

I am having issues getting keyboard shortcuts with ALT to work and I'm wondering if I'm doing something wrong. The CTRL+SHIFT shortcuts work fine; however, in order to minimize re-assigning native CTRL shortcuts that I normally use, I've moved on to using ALT. However, they don't function at...

Hope someone can help me with the problem mentioned in "Title". Here is what I do and what happens: 1. I assign Proc1 to Application.OnKey "{UP}", command is Application.OnKey "{UP}", "Proc1" 2. when I hit the up arrow key Proc1 is run and does what I want. 3. I reassign Application.OnKey "{UP}"...

In the workbook open sub - functions keys, formula bar & right click are all deactivated, and in the sub below it activates them back before closing..it is good if save or not save is selected because the workbook will be closed. BUT if not and CANCEL is pressed, all those presets are gone. Do I...

I customized some key strokes to launch forms in two different workbooks. For some reason, if I have multiple workbooks open, the custom key strokes no longer work, but they do work when only one workbook is open. Here's the code that I have. Both are stored in their respective ThisWorkbook...

I have a control page with a single cell named range 'LETTER' to determine my index letter for filtered lists on another sheet. I want a shortcut to be able to change the index letter without having to leave my list sheet. To do this I have set up the following: Sub HotKeys() Application.OnKey...

The user fill in these cells: D5, D6, D7, D9 and D10. Other cells are locked, so with Tab, Enter or Arrows, you step through these cells. D5 and D7 are pull down lists with 10 different alternatives each. Normally you start with selecting someting in the D5 list. Depending on what you select in...

Hello, Everyone. In my Test.xlsm Excel workbook. thisworkbook code is : sub workbook_open()Application.OnKey "{ESC}", "a" end sub the module code is : sub a()thisworkbook.close savechanges:=fasle end sub sub b()for i=1 to 1048576 sheet1.cells(i,1)=i doevents next end sub Now, here is my...

I'm using the following code to capture key press events when the specified keys on the 10-key pad are pressed. It works perfectly, with one exception. When I'm in column 3 I do not want the key presses to do anything. I want normal key and cell behavior. Here is what is happening... I...

I found some great source code from a website (https://www.rondebruin.nl/win/s4/win012.htm) that enables you to disable the user's ability to use keyboard shortcuts. I've used the blocks of code that disable/enable all keyboard shortcuts — not just ones that are listed. I'd like to adapt the...

I used the VBA code below but need to reinstate or enable cut copy paste in Excel 2010. Thanks in advance for your assistance. <code class="vb keyword" style="white-space: nowrap; padding: 0px !important; font-family: Consolas, 'Bitstream Vera Sans Mono', 'Courier New', Courier, monospace...

Hi I have a workbook that I have used for several years that successfully used the following code: Application.OnKey "*x", "CutValues" 'Intercept pressing of CMD+X keys. Application.OnKey "*v", "PasteValues" 'Intercept pressing of CMD+V keys. I have updated to the atrocious Excel 2016 for Mac...

Hi All, I have procedure that runs a macro based on a shortcut, many shortcuts in my case -works really well. Application.OnKey "^h", "Macro1" I'm trying to implement a CheckBox in the ribbon that tells me if the shortcuts is enabled or not, in a similar manner to...

Hello i am using following code on Worksheet_Change event. In this Worksheet_Change code, i have used Application.OnKey and there are other procedures in this Worksheet_Change. when Application.OnKey occurs, it run the macro as said, but after completion of all those procedures in macro, it...

Hello, I'm struggling for a while with a generic mechanism to assign some short-cuts to methods that are implemented in classes. This is what I have so far: In a class module ("test2"): Private Sub Class_Initialize() Dim var(0 To 1) As Variant var(0) = 5 var(1) = "ThisIsAstring"...

Hello, So basically I'm trying to create an add-in. Most of the functionality is in the ribbon but some procedures will just run better as keyboard shortcuts. I don't want the add-in to be a permanent fixture in Excel. In other words, the user will just open the add-in file directly (which...