DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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.isakarakus' Alıntı:ş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