Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multipage on a userform
I have just put a mulitpage on the userform it has 8 pages, is it possible
to name the individual pages to the same as in cell a2 - a9 on worksheet called teams. Thanks in advance Browie |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multipage on a userform
Put this in the code behind your userform. I'm sure there is a way to loop through your pages and source range but this is a quick solution for your situation. Code: -------------------- Private Sub UserForm_Initialize() MultiPage1.Page1.Caption = Range("A2").Value MultiPage1.Page2.Caption = Range("A3").Value MultiPage1.Page3.Caption = Range("A4").Value MultiPage1.Page4.Caption = Range("A5").Value MultiPage1.Page5.Caption = Range("A6").Value MultiPage1.Page6.Caption = Range("A7").Value MultiPage1.Page7.Caption = Range("A8").Value MultiPage1.Page8.Caption = Range("A9").Value End Sub -------------------- HTH -- bhofsetz ------------------------------------------------------------------------ bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807 View this thread: http://www.excelforum.com/showthread...hreadid=379050 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multipage on a userform
Dim i As Long
For i = 0 To 7 Me.MultiPage1.Pages(i).Caption = Worksheets("teams").Range("A" & i + 2).Value Next i -- HTH Bob Phillips "browie" wrote in message ... I have just put a mulitpage on the userform it has 8 pages, is it possible to name the individual pages to the same as in cell a2 - a9 on worksheet called teams. Thanks in advance Browie |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Multipage on a userform
Thanks For your help
Greg Brow "bhofsetz" wrote in message ... Put this in the code behind your userform. I'm sure there is a way to loop through your pages and source range but this is a quick solution for your situation. Code: -------------------- Private Sub UserForm_Initialize() MultiPage1.Page1.Caption = Range("A2").Value MultiPage1.Page2.Caption = Range("A3").Value MultiPage1.Page3.Caption = Range("A4").Value MultiPage1.Page4.Caption = Range("A5").Value MultiPage1.Page5.Caption = Range("A6").Value MultiPage1.Page6.Caption = Range("A7").Value MultiPage1.Page7.Caption = Range("A8").Value MultiPage1.Page8.Caption = Range("A9").Value End Sub -------------------- HTH -- bhofsetz ------------------------------------------------------------------------ bhofsetz's Profile: http://www.excelforum.com/member.php...o&userid=18807 View this thread: http://www.excelforum.com/showthread...hreadid=379050 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Multipage Userform Events | Excel Programming | |||
Userform, multipage, select a tab | Excel Programming | |||
Problems with the userform multipage | Excel Programming | |||
Problems with the userform multipage | Excel Programming | |||
MultiPage UserForm | Excel Programming |