Clear Userform but doesn't clear CombiBox

[Patriot2879]

Hi all, good morning i have made the code below which works well but it doesn't clear the combiboxes. can you advise please.

'---------------------------------------------------------------------------------------
' DateTime : 09/05/2007 08:43
' DateTime : 09/05/2007 08:43
' Author : Roy Cox (royUK)
' Website : click here for more examples and Excel Consulting
' Purpose : Loops through controls of UserForm & clears setting
'
' Disclaimer; This code is offered as is with no guarantees. You may use it in your
' projects but please leave this header intact.


'---------------------------------------------------------------------------------------
Option Explicit


Public Function ClearAll(frm As MSForms.UserForm) As Boolean
' clear out all controls
Dim Octrl As Control
' if any error occurs, just exit
On Error GoTo ExitFunc


' loop through controls, figure out type and
' use appropriate method to clear it
For Each Octrl In frm.Controls
Select Case TypeName(Octrl)
Case "TextBox": Octrl = Empty
Case "CheckBox", "OptionButton": Octrl.Value = False
Case "ComboBox", "ListBox": Octrl.ListIndex = -1
Case Else:
End Select
Next Octrl


ExitFunc:
Set Octrl = Nothing
End Function

Private Sub CommandButton2_Click()
ClearAll Me
End Sub

 

[DanteAmor]

Try this:

Public Function ClearAll(frm As MSForms.UserForm) As Boolean
  ' clear out all controls
  Dim Octrl As Control
  ' if any error occurs, just exit
  On Error GoTo ExitFunc
  
  
  ' loop through controls, figure out type and
  ' use appropriate method to clear it
  For Each Octrl In frm.Controls
  Select Case TypeName(Octrl)
  Case "TextBox": Octrl = Empty
  Case "CheckBox", "OptionButton": Octrl.Value = False
  Case "ListBox": Octrl.ListIndex = -1
  Case "ComboBox"
    Octrl.ListIndex = -1
    Octrl = Empty
  Case Else:
  End Select
  Next Octrl
  
  
ExitFunc:
  Set Octrl = Nothing
End Function

Regards
Dante Amor

 

[Patriot2879]

Try this:

Public Function ClearAll(frm As MSForms.UserForm) As Boolean
  ' clear out all controls
  Dim Octrl As Control
  ' if any error occurs, just exit
  On Error GoTo ExitFunc
 
 
  ' loop through controls, figure out type and
  ' use appropriate method to clear it
  For Each Octrl In frm.Controls
  Select Case TypeName(Octrl)
  Case "TextBox": Octrl = Empty
  Case "CheckBox", "OptionButton": Octrl.Value = False
  Case "ListBox": Octrl.ListIndex = -1
  Case "ComboBox"
    Octrl.ListIndex = -1
    Octrl = Empty
  Case Else:
  End Select
  Next Octrl
 
 
ExitFunc:
  Set Octrl = Nothing
End Function

Regards
Dante Amor

That works great thank you

 

[Peter_SSs]

That works great thank you

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.

BTW, I suggest that you update your Account details (click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)