ListBox Fill Issues

[cstimart]

I have a form that gives the user 2 choices. Based on the choice, a listbox is supposed to fill with a list of possible file choices to select...with the possibility of cancelling and going back to the initial choices.

Here is the example of the issue I encounter...
User selects Choice 1, listbox populates correctly, user cancels and then selects Choice 2...listbox populates with same list as before.

From the 1st Form/Choices there is the following...

Private Sub Something_Click()
    MyFile = Dir(MyFolder & "Something *.xlsm")
.
.
.
End Sub

Private Sub SomethingElse_Click()
    MyFile = Dir(MyFolder & "Something.Else*.xls")
.
.
.
End Sub

Then there's this code on the form with the listbox...

Private Sub UserForm_Initialize()
Do While MyFile <> ""
    FileListForm.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
End Sub

 

[p45cal]

The
_Initialize
event only happens the first time the userform is shown. You should use similar code in another event after clearing the listbox with …to follow

 

[p45cal]

…Listbox1.Clear
viz.:

Private Sub UserForm_Initialize()
MyFile = Dir(myFolder & "*.xlsm")
Do While MyFile <> ""
    Me.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
End Sub

Private Sub Something_Click()
MyFile = Dir(myFolder & "*.xlsm")
Me.ListBox1.Clear
Do While MyFile <> ""
    Me.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
End Sub

Private Sub SomethingElse_Click()
MyFile = Dir(myFolder & "*.xls")
Me.ListBox1.Clear
Do While MyFile <> ""
    Me.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
End Sub

 

[cstimart]

I'll make the changes. Thanks!

 

[cstimart]

Works perfectly now! Thanks!