Excel locking up when scrolling listbox down with - vba

Question

0.00/5 (No votes)

See more:

Hello,

Dose anyone know the answer why excel closes down when scrolling down the mouse on listbox? Is there anything I should adjust in the properties? Thanks.

[EDIT]Moved from comment - LOSMAC[/EDIT]

I am using excel 2007, and this is the code used on listbox and it is populated with directories names when I select single directory name other list box will be populated with files names, and whenever I have the listbox active and item is selected and scroll down the mouse I will have the entire workbook goes into closing down and file recovery mode. Is there any way to prevent scrolling down while items are selected? or any other solutions. Thank.

VB

Private Sub ListBox2_Click()
Dim strFile As String
Dim i As Integer

Me.ListBox1.Clear
For i = 0 To Me.ListBox2.ListCount - 1
    If Me.ListBox2.Selected(i) Then
         strFile = Dir("C:\Users\hawari\Documents\TLC\" & Me.ListBox2.Text & "\*.xls")
         Do While Len(strFile) > 0
             ListBox1.AddItem strFile
             strFile = Dir
         Loop
    End If
Next
End Sub

Posted 26-Nov-11 9:40am

ahawari09

Updated 27-Nov-11 3:32am

Maciej Los

v3

Add a Solution

Comments

DaveAuld 27-Nov-11 1:26am

Sounds like a bug, post the code you are using to scroll and which version of excel you are using.

ahawari09 27-Nov-11 3:25am

I am using excel 2007, and this is the code used on listbox and it is populated with directories names when I select single directory name other list box will be populated with files names, and whenever I have the listbox active and item is selected and scroll down the mouse I will have the entire workbook goes into closing down and file recovery mode. Is there any way to prevent scrolling down while items are selected? or any other solutions. Thank.
Private Sub ListBox2_Click()
Dim strFile As String
Dim i As Integer
me.ListBox1.Clear
For i = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(i) Then
strFile = Dir("C:\Users\hawari\Documents\TLC\" & Me.ListBox2.Text & "\*.xls")
Do While Len(strFile) > 0
ListBox1.AddItem strFile
strFile = Dir
Loop
End If
Next
End Sub

DaveAuld 27-Nov-11 3:35am

From what you are saying it sounds like your install of excel or one of the files is corrupt. It shouldn't crash in that way. I would try an over install first or a Repair Install. Failing that uninstall and reinstall.

ahawari09 27-Nov-11 4:08am

Thank you for your answer. But dose it have anything to do with excel installation? Thanks.

DaveAuld 27-Nov-11 4:53am

Yes it sounds like something has been corrupted. see my previous comment.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2011-11-30T10:34:00

In my opinion, the reason of error is not in the procedure "ListBox2_Click".
Probably your file is corrupted. You need to export userform(s) into file(s) /use right click on the userform on the left side of the compilator's window/, then create new Excel file and import the userform(s) from file(s).
I hope, it would be helpful. If not, try to reinstall (repair) MS Office, as DaveAuld said.