Page2_Initialize

[wqazx]

herkese merhaba
UserForm_Initialize olyı var malumunuz.Multipage kullandığımızda mesela page2 yi tıkladığımızda Page2_Initialize diye bir olay var mı acaba?

 

[ALPEN]

Merhaba

[vb:1:048de5236e]Private Sub MultiPage1_Click(ByVal Index As Long)
msgbox ("tıklanan sayfa: " & Index)
End Sub[/vb:1:048de5236e]

 

[wqazx]

Private Sub MultiPage2_Click(ByVal Index As Long)
Sheets("sayfa2").Select
End Sub

bu komutu yazıyorum ama page2 yi tıklayınca sayfa2 yi seçmiyor

 

[Levent Menteşoğlu]

Seçmemesi için hiç bir neden yok, mutlaka bir yerde hata yapıyorsunuz. Kod doğru.

 

[wqazx]

Sanırım şimdi anladım.Ben Multipage2_click derken multipage üzerindeki page2 sekmesine tıklayınca sayfa2 yi seçebileceğimizi, page1 e tıklayınca sayfa1 i seçebileceğimizi zannediyorum.Oysa multipage1 komple o multipage i ifade ediyor galiba.
Benim isteğim olmuyor galiba yani multipage üzerindeki page sekmelerine tıklayınca ayrı ayrı sayfalar seçilsin.

 

[isakarakus]

şunu dene

Private Sub MultiPage1_Change()
sayfa = MultiPage1.SelectedItem.Caption
    
    If sayfa = "Page2" Then
        Sheets("sayfa2").Select
    Else
        MsgBox "Seçilen sayfa : " & sayfa
    End If

End Sub

 

[isakarakus]

şunu dene


Private Sub MultiPage1_Change()
sayfa = MultiPage1.SelectedItem.Caption

If sayfa = "Page2" Then
Sheets("sayfa2").Select
Else
MsgBox "Seçilen sayfa : " & sayfa
End If

End Sub

 

[isakarakus]

:shock:

Acaba benim bilgisayarda mı bir sorun var yoksa server de mi?
kotlar acayip oldu...

yapmanız gereken MultiPage1_Change() olayında, MultiPage1.SelectedItem.Caption özelliğini kullanmak
iyi çalışmalar...

 

[wqazx]

şunu dene


Private Sub MultiPage1_Change()
sayfa = MultiPage1.SelectedItem.Caption

If sayfa = "Page2" Then
Sheets("sayfa2").Select
Else
MsgBox "Seçilen sayfa : " & sayfa
End If

End Sub

Sn.isakarakus öncelikle teşekkürler.
Peki bunu aynı yerde sayfa1 için de kullanabilirmiyiz.page1 i tıklayınca "veri" isimli sayfayı seçsin; page2 yi tıklayınca "cekler" isimli sayfayı seçsin.

 

[isakarakus]

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

 

[wqazx]

İşte budur teşekkürler.