Pass enter key code to image click event in VBA

Hi Sunil Dushila,

I am using pictures instead of command buttons to look prettier.

The quote above I understand. I don't understand why you need a KeyAscii value of 13. To get additional help, you will have to upload a sample workbook, and explain exactly what you are trying to do.



Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Lewis

I don't see how you think that keyascii does anything for you. When you press Enter key or tab key then the control loses focus and your assignment for that control tied to your named ranges update.

The lostfocus event might be worth exploring or maybe this will give you an idea.

Please Login or Register  to view this content.

Hi Kenneth,

thanks for your reply

i have tried this before but doesn't work. please find attached sheet with your code in it.

it only goes upto msgbox where it says Image was clicked or enter or tab key was pressed for textbox1. but it doesn't return the search in listbox untill you press enter ot tab from key board or click within listbox itself.

Seems to work fine for me.

When either textbox control value is modified and either textbox control loses focus by: clicking another control, pressing Enter key or Tab key, it updates the listbox1's List as that is when your named range formula in "search", is updated.

So, can you be more specific in the steps to have it not update? e.g. Set 1 as textbox1 value, set 100 as textbox2 value. Once focus is changed from textbox2, one row/record is shown in the listbox1 control's list.

Of course you could always force anything to happen. Since you know that the textbox control values arenot set to the value in the named range until they lose focus, then if your goal is to make it update otherwise, what are those steps, exactly?

If textbox1=1 and textbox2=1000 then 3 rows/records are returned to the listbox1's list. In the Runit() routine if we set those values, we still get the same results had we entered the values manually. Of course we could have set a temporary value by updating just the Min and Max named range values directly. This is just to illustrate that concept.

Please Login or Register  to view this content.

Hi Sunil Dushila,

See the attached file which uses a slightly different approach, that does not require the use of auxiliary 'Sheet1.' I hope this does not confuse the issue.

UserForm1 code module code:

Please Login or Register  to view this content.

Ordinary Code module code such as module Module1 or ModUserForm1:

Please Login or Register  to view this content.

It is a best practice to declare all variables. If you misspell a variable in your code, VBA will silently assume it is a Variant variable and go on executing with no clue to you that you have a bug. Go to the VBA development window, click Tools, Options, and check "Require Variable Declaration." This will insert the following line at the top of all new modules:

Please Login or Register  to view this content.

This option requires all variables to be declared and will give a compiler error for undeclared variables.

Lewis