P
Patrick Simonds
I am having a problem Initializing my UserForm which has on it 2 MultiPage
controls. Before I added the second MultiPage control (which is located on
Page2 of MultiPage1) everything worked fine. Now when I try to open the
UserForm I get Object not found errors. I assume I must some how account for
the second MultiPage control in the "With" statement, but nothing I have
tried works.
With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With
Private Sub UserForm_Initialize()
'This macro intializes the Data Input UserForm
With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With
'Populates the End of Period Data on MultiPage1
TextBox1.Text = Worksheets("Audit Report Page 1").Range("E4").Text
TextBox2.Text = Worksheets("Audit Report Page 1").Range("E7").Text
TextBox3.Text = Worksheets("Audit Report Page 1").Range("E8").Text
'Populates Outstanding Checks on MultiPage1
TextBox8.Text = Worksheets("Outstanding Checks").Range("A5").Text
TextBox9.Text = Worksheets("Outstanding Checks").Range("B5").Text
TextBox10.Text = Worksheets("Outstanding Checks").Range("C5").Text
'Populates January Income on MultiPage2
TextBox80.Text = Worksheets("Income").Range("B3").Text
TextBox81.Text = Worksheets("Income").Range("C3").Text
TextBox82.Text = Worksheets("Income").Range("D3").Text
controls. Before I added the second MultiPage control (which is located on
Page2 of MultiPage1) everything worked fine. Now when I try to open the
UserForm I get Object not found errors. I assume I must some how account for
the second MultiPage control in the "With" statement, but nothing I have
tried works.
With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With
Private Sub UserForm_Initialize()
'This macro intializes the Data Input UserForm
With Me.MultiPage1
.Value = .Pages(myMPPageName).Index
End With
'Populates the End of Period Data on MultiPage1
TextBox1.Text = Worksheets("Audit Report Page 1").Range("E4").Text
TextBox2.Text = Worksheets("Audit Report Page 1").Range("E7").Text
TextBox3.Text = Worksheets("Audit Report Page 1").Range("E8").Text
'Populates Outstanding Checks on MultiPage1
TextBox8.Text = Worksheets("Outstanding Checks").Range("A5").Text
TextBox9.Text = Worksheets("Outstanding Checks").Range("B5").Text
TextBox10.Text = Worksheets("Outstanding Checks").Range("C5").Text
'Populates January Income on MultiPage2
TextBox80.Text = Worksheets("Income").Range("B3").Text
TextBox81.Text = Worksheets("Income").Range("C3").Text
TextBox82.Text = Worksheets("Income").Range("D3").Text