nested multi page userform

[charly1]

Hi all
I'd appreciate if anyone would be able to help me.

I have a user form with a multipage control [6 pages]. Page 4 contains a nested multipage consisting of two additional pages.
I have already created command buttons on the first 2 pages of the user form to jump to the next page using the code below:

Dim NextPage1 As Long
    NextPage1 = UserForm1.MultiPage1.SelectedItem.Index + 1
    UserForm1.MultiPage1.Value = NextPage1

My problem is that on page 3 my command button needs to be able to jump next page - in this case being page 1 or 2 [using if function] of the nested multipage2.

I have tried to work this out myself but I cannot seem to manage?

 

[charly1]

Anyway I've been banging my head on the wall and i cant work it out. I've tried another way of getting the same result and again it is just not working.
I have rearranged my user form to contain only a single multi page. Depending on text entered into textbox i need the command button to either jump to the next page in the multipage or the page after that. I have posted my code below, all i get is error. Please if anyone can help me out I would appreciate it immensely.

Private Sub ButtonNewSeferNextPlace_Click()
    Dim NextPage As Long
    NextPage = UserFormNewSefer.MultiPage1.SelectedItem.Index + 1
    If UserFormNewSefer.TextBoxNewSeferVolume.Value = 0 Then
        UserFormNewSefer.MultiPage1.Value = NextPage
    Else
    UserFormNewSefer.MultiPage1.Value = NextPage + 1
    End If
End Sub

 

[charly1]

Hi All
Spent the morning on it. Seems there was nothing wrong with the code. I had this addin called CodeVBA installed on my pc. I removed it and reran the code, it worked like a charm. Goes to show what you get for paying through the roof for vba add ins
Thanks