Multipage sekmelere çalışma sayfası atama

[ridvan2111]

Selam arkadaşlar
multipage nestnesinde her sekmeye değişik çalışma sayfası atamak istiyorum
yani diğer sekmeye geçtiğimde istediğim sayfaya otomatik geçsin

properties penceresinde böyle bir özellik varmı
yoksa kod mu yazmak gerekir?

 

[ASMET67]

Multipage sayfa isimleri ve çalışma syfanızın isimlerini kendinize göre uyarlayınız.

Private Sub MultiPage1_Change() 
Select Case MultiPage1.SelectedItem.Caption 
Case "Page1": Sheets("Sayfa1").Select 
Case "Page2": Sheets("Sayfa2").Select 
Case "Page3": Sheets("Sayfa3").Select 
Case "Page4": Sheets("Sayfa4").Select 
End Select 
End Sub

 

[ridvan2111]

Sayın ASMET67
çok teşekkür ederim

 

[badboy714]

Private Sub MultiPage1_Click(ByVal Index As Long)
Select Case Index
Case 0: Sheets("sayfa1").Select
Case 1: Sheets("sayfa2").Select
Case 2: Sheets("sayfa3").Select
Case 3: Sheets("sayfa4").Select
Case 4: Sheets("sayfa5").Select
Case 5: Sheets("sayfa6").Select
Case 6: Sheets("sayfa7").Select
Case 7: Sheets("sayfa8").Select
End Select
End Sub

Bu da çalışıyor...

 

[Seyit Tiken]

Bu şekilde bir döngüyle yapılabilir.

Private Sub MultiPage1_Click(ByVal Index As Long)
On Error Resume Next
For s = 1 To Me.MultiPage1.Value + 1
Sheets(s).Select
Me.Caption = ActiveSheet.Name
Next
End Sub