View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default change label on multipage

your code worked fine for me:


Private Sub cboTestType_Click()
If MultiPage1.Pages(0).cboTestType.Value = "Groove Weld" Then
MultiPage1.Pages(1).lblWeldType.Caption = "Groove Weld"
Else
MultiPage1.Pages(1).lblWeldType.Caption = "Fillet Weld"
End If

End Sub

Private Sub UserForm_Initialize()
cboTestType.AddItem "Groove Weld"
cboTestType.AddItem "Fillet Weld"
End Sub


--
Regards,
Tom Ogilvy

wrote in message
oups.com...
I have a Userform with a Multipage on it. On the first page of the
Multipage I have a combobox. What I would like to do is based upon the
value of the combobox on the 1st page change the text of a label on
Page 2.

Is this possible, and if so how, I have tried to Code below but it does
not work.

If MultiPage1.Pages(0).cboTestType.Value = "Groove Weld" then
MultiPage1.Pages(1).lblWeldType.Caption = "Groove Weld"
else
MultiPage1.Pages(1).lblWeldType.Caption = "Fillet Weld"
End if

Regards
Martin