user formdan girilen verileri ilgili sayfalara aktarmak

[kadr]

arkadaşlar user form üzerinden girdiğim verileri kod nosuna göre (yani text1 99-2-1063 kodu girildi ise 99-2-1063 kaydedecek text1 87-3-001 girildi ise o sayfanın boş son satırına yazmak)açılan sayfalara alt alta kaydetmek istiyorum nasıl yapabilirim

 

[Orion1]

Dosyanız hazır.

Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then
    MsgBox "Araç kodunu seçiniz..!!", vbCritical, "DİKKAT"
    ComboBox1.SetFocus
    Exit Sub
End If
If TextBox2.Value = "" Then
    MsgBox "Plakası boş olamaz Plakasını giriniz..!!", vbCritical, "DİKKAT"
    TextBox2.SetFocus
    Exit Sub
End If
On Error GoTo hata
sat = Sheets(ComboBox1.Value).Cells(65536, "A").End(xlUp).Row + 1
If sat >= 65333 Then
    MsgBox "[ " & ComboBox1.Value & " İsimli sayfada satır doldu Yeni kayıt girmezsiniz..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
Sheets(ComboBox1.Value).Cells(sat, "A").Value = ComboBox1.Value
For i = 2 To 10
    Sheets(ComboBox1.Value).Cells(sat, i).Value = Controls("TextBox" & i).Value
    Controls("TextBox" & i).Value = Empty
Next i
MsgBox "Kayıt Girildi..!!", vbOKOnly + vbInformation, Application.UserName
ComboBox1.SetFocus
Exit Sub
hata:
MsgBox "[ " & ComboBox1.Value & " ] İsimli sayfa yok.Kayıt yapılmadı..!!", vbCritical, "DİKKAT"
ComboBox1.SetFocus
End Sub


Private Sub UserForm_Initialize()
Dim syf As Worksheet
For Each syf In Worksheets
    If UCase(syf.Name) <> "SAYFA1" And UCase(syf.Name) <> "ANASAYFA" Then
        ComboBox1.AddItem syf.Name
    End If
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[kadr]

evren gizlen teşekkürler cevabınız için yanlız birde bunları hangi kodlu araç olursa olsun ana sayfada alt alta nasıl yedeklerim ilgili sayfaya kayıt esnasında birde sayfadaki ilgili yerlere kayıt yapamazmıyız böyle karışık değilde

 

[Orion1]

Verileri karışık kaydetmedim.Siz nesneleri userformun üzerine hangi sırada koyduysanız ve nesnelerin indis sırası neyse ona göre yaptım.Siz userform üzerindeki nesnelerin indis sırasını o şekilde vermişsiniz.
Userform'u açın ve textboxların indis nosunu istediğiniz sırayı vererek işlemi yapın veya sayfa üzerindeki başlıkların yerlerini değiştirin.

 

[kadr]

teşekkürler