üstadlar evrak kayıt programıma bi el atın plase..!!

[ugurarik]

sewgili üstadlarım...:yardim: :yardim: :yardim: :yardim:

ben bir evrak kayıt programı yapmak istiyorum.
ekteki çalışma sayfamda belirttiğim gibi kayıt sayfasında bir form olsun istiyorum.

bu formda yaptığım kayıt hem kendi sayfasına hemde hangi ders seçilmişse oraya kayıt olsun yani bilgisayar ise bilgisayara yabancı dil ise o dersinde kendi sayfasına kayıt olsun istiyorum ilğiniz için teşekkür ederimm.
:yardim: :yardim:

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Kayıt sayfasında kaydet butonuna basınca veriler ilgili sayfaya kaydediliyor.
Kodlarda aşağıdadır.

Sub Düğme24_Tıklat()
Dim sonsat As Long, sayfa As String, syfsonsat As Long, sut As Byte
sonsat = Cells(65536, "A").End(xlUp).Row
If sonsat < 3 Then Exit Sub
mesaj = "[ " & Cells(sonsat, "A").Value & " ] İsimli şahsı kaydetmek istiyormusunuz..??"
If MsgBox(mesaj, vbYesNo, Application.UserName) = vbNo Then Exit Sub
sayfa = Cells(sonsat, "M").Value
If sayfa = "" Then
    MsgBox "Bir Sayfa İsmi Seçmelisiniz..!!", vbCritical, Application.UserName
    Exit Sub
End If
On Error GoTo hata
syfsonsat = Sheets(sayfa).Cells(65536, "A").End(xlUp).Row
If syfsonsat = 65535 Then
    MsgBox "[ " & sayfa & " ] isimli sayfada satır doldu.Başka veri girişi yapamazsınız...!!!", vbCritical, Application.UserName
    Exit Sub
End If
For sut = 1 To 13
    Sheets(sayfa).Cells(syfsonsat + 1, sut).Value = Cells(sonsat, sut).Value
Next
MsgBox "[ " & Cells(sonsat, "A").Value & " ] İsimli şahıs [ " & sayfa & " ] isimli sayfaya kayıt edildi..!!", vbOKOnly, Application.UserName
Exit Sub
hata:
MsgBox "Kayıt Yapılamadı bir hata oluştu.Sayfa İsimi uymamsı olası.", vbCritical, Application.UserName
End Sub