userformdan istenilen sayfaya veri girişi

[aliballi]

arkadaşlar öncelikle ramazan bayramınızı kutlarım..
arkadaşlar aşşağıdaki kodla userformdan verileri bulunduğum sayfaya aktarıyorum..yanlız benim istediğim. userformu giriş sayfasında açıp
textbox5 e gireceğim sayfa numarasına aktarmasını istiyorum..
Not: Bütün sayfalar aynı şekildedir.


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

 

[iso07]

Bende çok yeniyim bu konularda ama böyle bir dene istersen.

Private Sub CommandButton1_Click()
Sheets(Textbox5.Text).Select
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