multipage page2 click

[wqazx]

Merhabalar
Aşağıdaki olayın intialize şeklinde değil de multipage üzerindeki page1 sekmesine tıklayınca gerçekleşmesini istiyorum.

Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbcekmusteriad.RowSource = "Veri!B2:B" & say
'cbad.SetFocus
End Sub

 

[Ahmet1982]

Private Sub MultiPage1_Click(ByVal Index As Long)
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbad.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbcekmusteriad.RowSource = "Veri!B2:B" & say
'cbad.SetFocus

End Sub