Scroll Wheel mouse on a userform frame

Hi guys,

I´m tying to be able to scroll up down with my mouse on a frame inside a userform, but so far I was not able to make it work,

I´ve searched and I came across this code, which I will paste below, changed the name of the userform, also the name of the frame on the userform module, but it continues not working,

#it does not give any error, simply does not work.

This is the example file FormScroll.xls

and here is the code pasted on the main Module

Please Login or Register  to view this content.

and here is the part pasted on the userform module

Please Login or Register  to view this content.

I´m using excel 2010 and win 7, 32 bit as shown below

sys.jpg

I appreciate your help, because I have no ideia what I´m doing wrong,

Thanks in Advance

Regards,

Laurel

Hi Lewis,

thanks for the reply,

unfortunately does not work in my system,

I will continue looking,

Thank you anyway

Laurel

Hi Lewis,

Thank you very much for that, but continues not to working, not sure if is my system, but simply does not work on Win 7, Excel 2010,

I´m searching and searching, but so far with no results,

Thanks for the reply,

Laurel

On investigation, on initial opening of workbook and selecting user form, nothing happens. After again selecting worksheet then user form again the scroll works - but very slow.

Thanks for the feedback itsunclebill.

On investigation, on initial opening of workbook and selecting user form, nothing happens. After again selecting worksheet then user form again the scroll works...

Interesting that you should say that. It works flawlessly for me in Excel 2003 (Vista 32 bit) and in 32 bit Excel 2010 (Windows 8.1 64 bit) when I replace the 'Dim' with 'Private' as in post #4 above . However when I put the 'Dim' back in, I see similar symptoms. If I insert the 'Debug.Assert False' (in red below), it works with the 'Dim' statement.

Please Login or Register  to view this content.

----------------

... the scroll works - but very slow.

That is probably because the following lines move up/down one increment at a time. If the up/down lines were repeated (several times), you would probably get the appearance of more robust functionality.

Please Login or Register  to view this content.

Lewis

Dear both,

Thank you,

itsunclebill I haven´t tried that, but is true, after selecting the worksheet and then select the form it starts to work, and by any reason the wheel mouse works in a reversed away.

Lewis I change the code as in mentioned, but it always stops on the line

Please Login or Register  to view this content.

, then I press run again and it works fine without having to select first the worksheet

How can I change the code in order to have the userform working when it opens without having to select the worksheet and then go back to the form?

Thank you for your support,

Laurel

My question is how to

Hi Laurel,

The 'Debug.Assert False line is supposed to make it stop. Comment out the line or delete it.

If the wheel mouse works in a reverse way, change the following code in Sub MouseWheel() in the UserForm module:

Please Login or Register  to view this content.

Lewis

With a lot of assistance, I was successful in getting MouseScroll to work on both a Modal and Non-Modal UserForm. Attached are two files using slightly different approaches. Both files worked for me on a
1. Vista 32 bit System using Excel 2003.
2. Windows 8.1 System using 32 bit Excel 2010.

a. ExcelForumUserformListBoxMouseScroll-2015-03-10-11-25.xlsm is courtesy of RomperStomper based on original code by Peter Thornton. Thank you both. This file uses a UserForm ListBox.
https://social.msdn.microsoft.com/Fo...0?forum=isvvba

b. ExcelForumUserFormMouseWheel3-2015-03-10-11-53.xls is based on a file courtesy of a French Excel Forum. Thank you BrunoM45. The original file was found at: http://www.excel-downloads.com/forum...ml#post1140294
This file has 3 different UserForms:
UserForm1 - Mouse Scroll in a Frame.
UserForm2 - Mouse Scroll in a UserForm.
Userform3 - Mouse Scroll in a UserForm, a Frame, a ComboBox, and 2 ListBoxes.

Lewis

Hi Lewis,

you made me very happy today

I´m grateful for your help, I was almost giving up on this.

Thank you very much for you patience and effort,

Regards,

Laurel

Hi again,

I rebuilt this code to make it simply to use in UserForms. Unfortunatelly the Excel crashes when I use mouse wheel in my large classes. I have class to make table in UserForm (I use only standard controls, TreeView case taught me a lot ).

Why is this happening? There is any posibility to fix it?

ExcelForumUserformListBoxMouseScroll-2015-06-22.xlsm

Thanks for the additional info, but the result stays the same with my touchpad.

Hello, Has anyone managed to get 'ListBox MouseWheel Scrolling' working properly on 64Bit/VBA7?
I'm using Excel 2016 and have tried adapting the code using PtrSafe and LongPtr but I just can't make it work.
If anyone has a working sample, I would really appreciate a copy.
Thanks

Hello,

Do you have a code that will work for 64 bit OS. Thank you in advance.

Jorge

Jorge, It should work in 64 bit.

Hi, what I mean was the code to scroll a frame in userform. Scrolling listbox works fine in my PC. I just made some changes in the code and it worked. I tried playing with the code in post #10 (ExcelForumUserFormMouseWheel3-2015-03-10-11-53) but it didn't work. Can you give me the code to scroll a frame that works in PC with 64 bit OS? Thank you in advance.

Jorge

See the attached file which is an upgrade (32 Bit Excel only) of the file in post #10 above. The only change is the ability to process the Mouse Wheel on MultiPage controls.

The following code is in the UserForm4 code module:

Please Login or Register  to view this content.

The code in red was added to the MouseWheel processing routine in an ordinary code module:

Please Login or Register  to view this content.

Lewis

LongPtr was the key thank you my hero