Initialize all controls on each page of multi-page userform

[haseft]

hi,
have problrm,
1st page is not initialized,
when 2nd page is clicked its initialized,
but, when I switch back to page 1, its initialized.

the correct way mast be: when I open userform it must show page1 (0) and when I click on combobox cbWorker it skould show "A","B","C" and cbCountry must skow "x","y","z".
help with this please,

Private Sub UserForm_Initialze()
   me.MultiPage1.value=0
End Sub

Private Sub MultiPage1_Change()
   Select Case MultiPage1.SelectedItem.index
   Case 0
      cbWorker.list=array("A","B","C")
      cbCountry.list=array("x","y","z")
   Case 1
      cbStatus.list=array("A","B","C","D")
      cbCommission.list=array(1,2,"x","y","z")
   End Select
End Sub

 

[dmt32]

Hi,
try placing your codes in the Intialize event & see if resolves your issue

Private Sub UserForm_Initialize()
    Me.MultiPage1.Value = 0
    cbWorker.List = Array("A", "B", "C")
    cbCountry.List = Array("x", "y", "z")
    cbStatus.List = Array("A", "B", "C", "D")
    cbCommission.List = Array(1, 2, "x", "y", "z")
End Sub

Dave

 

[haseft]

Hi,
try placing your codes in the Intialize event & see if resolves your issue

Private Sub UserForm_Initialize()
    Me.MultiPage1.Value = 0
    cbWorker.List = Array("A", "B", "C")
    cbCountry.List = Array("x", "y", "z")
    cbStatus.List = Array("A", "B", "C", "D")
    cbCommission.List = Array(1, 2, "x", "y", "z")
End Sub

Dave

thanks dmt32 , it works greate, ?

 

[dmt32]

thanks dmt32 , it works greate, ?

welcome - glad resolved

Dave