multipage de sayfa seçmek

[okanok]

selam ark.
excel 2003 tr kullanıyorum

bir userform oluşturdum ve içine multipage ekledim

problem page1, 2 veya 3 e mausla tıkladığımda faklı excel sayfalarının açıklmasını istiyorum. yardımlarınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:ac66853c70]Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.SelectedItem.Name = "Page1" Then Sheets("sayfa1").Select
If MultiPage1.SelectedItem.Name = "Page2" Then Sheets("sayfa2").Select
If MultiPage1.SelectedItem.Name = "Page3" Then Sheets("sayfa3").Select
End Sub
[/vb:1:ac66853c70]

 

[Haluk]

Veya;

[vb:1:6c8c5ff9f6]Private Sub MultiPage1_Click(ByVal Index As Long)
Sheets(Index + 1).Select
End Sub
[/vb:1:6c8c5ff9f6]