why it will error when i click my assigned macro to initialize userform ??

[Jefferson2512]

Private Sub UserForm_Initialize()
    


    Me.MultiPage7.Value = 0
    Me.MultiPage1.Value = 0
    Me.MultiPage2.Value = 0
    Me.MultiPage3.Value = 0
    Me.MultiPage5.Value = 0
    Me.MultiPage6.Value = 0
 End Sub

 

[My Aswer Is This]

So your saying you have 7 Multipages ?

I think you may have 1 Multipage with 7 Pages.

 

[Jefferson2512]

So your saying you have 7 Multipages ?

I think you may have 1 Multipage with 7 Pages.

yes i have 7 multipages .. is that the one who cause the probleM?

 

[My Aswer Is This]

I have b een using Excel for years and never needed more then One Multipage

A Multipage is like a Workbook.
And your Multipage can have several Multipage pages

Just like a Workbook can have several Worksheets.

You seem to be posting scripts that do not work with no explanation of what your attempting to do.

I would eliminate it to One Multipage and test things out before trying to do all 7

 

[Jefferson2512]

I have b een using Excel for years and never needed more then One Multipage

A Multipage is like a Workbook.
And your Multipage can have several Multipage pages

Just like a Workbook can have several Worksheets.

You seem to be posting scripts that do not work with no explanation of what your attempting to do.

I would eliminate it to One Multipage and test things out before trying to do all 7

Sir, the reason why i have 7 multipages because in every tabs that multipage have i put another multipage to have another tabs inside the first multipage

 

[My Aswer Is This]

I have no answer. The script you provided should work if you have 7 Multipages.

 

[Norie]

How many 'tabs/pages' do you need?

 

[dmt32]

Private Sub UserForm_Initialize()
    


    Me.MultiPage7.Value = 0
    Me.MultiPage1.Value = 0
    Me.MultiPage2.Value = 0
    Me.MultiPage3.Value = 0
    Me.MultiPage5.Value = 0
    Me.MultiPage6.Value = 0
 End Sub

Try it this way & see if resolves

Private Sub UserForm_Initialize()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
       If TypeName(ctrl) = "MultiPage" Then ctrl.Value = 0
    Next
 End Sub

Dave

 

[dmt32]

How many 'tabs/pages' do you need?

@Norrie - OP posted their project in another thread - It is very complex.

Dave

 

[Jefferson2512]

Try it this way & see if resolves

Private Sub UserForm_Initialize()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
       If TypeName(ctrl) = "MultiPage" Then ctrl.Value = 0
    Next
 End Sub

Dave

thank you for the help man..

more power!!