Aktif multipage'e göre işlevi değişen commandbutton

[ziya]

Merhaba,
Her multipage de ayrı ayrı kaydet butonu var, toplam 5 adet. Elbette işlevleri farklı. 5 ayrı buton yerine userform üzerinde tek buton kullanarak, hangi multipage'in aktif (seçili) olduğunu kontrol ettikten sonra aktif multipage için gereken kodu çalıştıracak bir uygulama yapılabilir mi.
1 nolu multipage aktifse, şunu yap,
2 nolu multipage aktifse, bunu yap gibi.

 

[hamitcan]

Private Sub CommandButton1_Click()
    If MultiPage1.Value = 0 Then
        '.....Kodlarınız
    Else
        '.....Kodlarınız
    End If
End Sub

şeklinde deneyin.

 

[parametre]

peki bu sayfa adedi enaz 15 ise yine ayni sekildemi olur

 

[ziya]

Sn hamitcan,
Teşekkür ederim. Selamlar,

 

[halit3]

aşağıdaki kodu kodu kendinize uyurlayın

Private Sub CommandButton1_Click()
If MultiPage1.Value + 1 = 1 Then
makro1
ElseIf MultiPage1.Value + 1 = 2 Then
makro2
ElseIf MultiPage1.Value + 1 = 3 Then
makro3
ElseIf MultiPage1.Value + 1 = 4 Then
makro4
Else
MsgBox "makro yok"
End If
End Sub



Private Sub MultiPage1_Click(ByVal Index As Long)
For i = 1 To MultiPage1.Value + 1
If (Index) = i - 1 Then
MsgBox i
MsgBox "buraya makronuzu yazınız"
End If
Next
End Sub

 

[parametre]

tesekkur ederiz iyi çalısmalar efendim

 

[ziya]

Sn halit3
Teşekkür ederim.
Selamlar,