Dependent Combo Box in multipage

[haseft]

Hi,
In a usefrom a have a multipage with 7 pages.
In page 5, 6 and 7 there is a combobox and they populate from the same range in sheet1 (working fine).
I want combobox in page 5, 6 and 7 will show the same item/row when I go back and forth between these tre pages.
Its not workning,
Thansk for hep,

Dim MyIndex As Integer  ' in UserForm_Initialize()
'----------------------------------

Private Sub Page5ComboBox1_Change()
  MyIndex = Page5ComboBox1.ListIndex
End Sub

Private Sub Page6ComboBox1_Change()
  MyIndex = Page6ComboBox1.ListIndex
End Sub

Private Sub Page7ComboBox1_Change()
  MyIndex  = Page7ComboBox1.ListIndex
End Sub
'----------------------------------

Private Sub MultiPage1_Change()
  Select Case MultiPage1.SelectedItem.Index
    Case 4 ' = Page5
       Page5ComboBox1.ListIndex = MyIndex
    Case 5 ' = Page6
       Page6ComboBox1.ListIndex = MyIndex
    Case 6 ' = Page7
       Page7ComboBox1.ListIndex = MyIndex
  End Select
End Sub
'----------------------------------

 

[Saurabhj]

Hello Haseft,

please use below code:

Option Explicit
Dim selItem As String, selectedPage As Byte

Private Sub cbo5_Change()
     selItem = cbo5.Value
End Sub

Private Sub cbo6_Change()
     selItem = cbo6.Value
End Sub

Private Sub cbo7_Change()
     selItem = cbo7.Value
End Sub

'Multipage change event
Private Sub MultiPage1_Change()
    selectedPage = MultiPage1.SelectedItem.Index
    'MsgBox selectedPage
    Select Case selectedPage
        Case 4 ' = Page5
           cbo5.Value = selItem
        Case 5 ' = Page6
           cbo6.Value = selItem
        Case 6 ' = Page7
           cbo7.Value = selItem
  End Select
End Sub

Thanks,
Saurabh

 

[haseft]

Thanks Saurabhj,
its not working

where should I put these linse:

Option Explicit
Dim selItem As String, selectedPage As Byte

in in UserForm_Initialize() or in a Modul?

 

[Akuini]

I want combobox in page 5, 6 and 7 will show the same item/row when I go back and forth between these tre pages.

Untested, maybe this:

Private Sub MultiPage1_Change()
  Select Case MultiPage1.SelectedItem.Index
    Case 4,5,6
       Page5ComboBox1.ListIndex = MyIndex

       Page6ComboBox1.ListIndex = MyIndex

       Page7ComboBox1.ListIndex = MyIndex
  End Select
End Sub

 

[Saurabhj]

Thanks Saurabhj,
its not working

where should I put these linse:

Option Explicit
Dim selItem As String, selectedPage As Byte

in in UserForm_Initialize() or in a Modul?

In the userform on the top. These are module level variables so we are not declaring these variables inside any event.

I have tested the same. It's working as required.

(See attached)

 

[haseft]

Thansk Saurabhj,
I tested in a new workbok and it work great.
There is somthing wrong with my original Project, I will check it and find the problem.
Thanks igain.

Akuini: I did not tested your codes yet.