Multipage değişimi

[cebelitarık]

Forumun Değerli üyeleri
Usarform üzerinde işlem yaparken
Multipage1 in Page 1 seçili ise arka planda "veri" sayfa seçili olsun
Multipage1 in Page 2 seçili ise arka planda "anasayfa" sayfa seçili olsun
nasıl yazılır.
Saygılarımla

 

[halit3]

Forumun Değerli üyeleri
Usarform üzerinde işlem yaparken
Multipage1 in Page 1 seçili ise arka planda "veri" sayfa seçili olsun
Multipage1 in Page 2 seçili ise arka planda "anasayfa" sayfa seçili olsun
nasıl yazılır.
Saygılarımla

Böyle denermisiniz.

Private Sub MultiPage1_Click(ByVal Index As Long)
yer = MultiPage1.Pages(Index).Caption
If yer = "Page1" Then
Sheets("veri").Select
ElseIf yer = "Page2" Then
Sheets("anasayfa").Select
End If
End Sub

 

[cebelitarık]

Teşekkürler sayın halit


Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.Value = 0 Then
Sheets("veri").Select
Else
Sheets("anasayfa").Select
End If
End Sub

Şeklinde alternatif çözüm oldu

 

[halit3]

Teşekkürler sayın halit


Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.Value = 0 Then
Sheets("veri").Select
Else
Sheets("anasayfa").Select
End If
End Sub

Şeklinde alternatif çözüm oldu

Alternatif olarak kod iyi ama MultiPage içinde ikiden fazla sayfa olursa ve sayfa yerleri değişirse bu kod pek kullanışlı değil

 

[cebelitarık]

Sayın Halit3
İlgin,z için teşekkür ederim.

 

[camelmoonbull]

Hocam, soru ve cevap için her ikinize de teşekkür ederim. Hayırlı günler dilerim.