userformdan istenilen sayfaya girişi

[aliballi]

merhaba arkadaşlar, herkesin ramazan bayramını kutlarım..
userformdan bilgileri aşağıdaki gibi sayfaya aktarıyorum.
fakat benim istediğim bu sayfaların sayısı çok fazla ve ben bu userformu giriş sayfasında açıp textbox5 e gieceğim sayfa numarasına aktarmasını istiyorum..
yardımcı olursanın çok sevinirim.

teşekkürler


Private Sub CommandButton1_Click()
SONSAT = [a65536].End(3).Row + 1
Cells(SONSAT, 1) = SONSAT - 12
Cells(SONSAT, 2) = TextBox1
Cells(SONSAT, 3) = TextBox2
Cells(SONSAT, 4) = TextBox3
Cells(SONSAT, 5) = TextBox4
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

 

[Kemal Demir]

sn.aliballi

Ek'teki Örnek zannedersem aradıgınız tipte bir örnek oldugu dusuncesindeyim.

İyi Çalışmalar.

 

[sahin78]

arkada&#351;&#305;m bu benim i&#351;ime yarad&#305; eme&#287;in ve bilgi payla&#351;&#305;m&#305;n i&#231;in te&#351;ekk&#252;r ederim