Okul Programi

[mami68]

Sayın Üstadlarım yapmış olduğum bu programı, bir öğretmenin isteği üzere oluşturdum.Ama hata oluşuyor şöyle ki:Form açıldığında ilk önce onay kutusunu doğrulaman lazım [kadrolu] onayını seçiyorsun ve kadrolu sayfası otomatikmen aktiv oluyor yada [SÖZLEŞMELİ] onay kutusu onaylandığı an sözleşmeli sayfası aktiv oluyor.Buraya kadar problem yok.Ve kadrolu sayfada hiç problem yok.Asıl problem SÖZLEŞMELİ sayfasına geçince kayıt tam sırasıyla olmuyor nede ÜCRETLİ SAYFASINDA sırasıyla kayıt olmuyor. Bu hatayı düzeltirseniz çok sayıda eğitim görevlileri faydalanır inşallah.Saygılar

 

[Orion1]

e = s1.[e65536].End(3).Row

Yukarıdaki satırı aşağıdaki satırla değiştiriniz.

e = [e65536].End(3).Row

 

[mami68]

Sayın Orion2 elinize sağlık hata giti.Şimdi tüm bilgiler giriş sayfasına kayıt edebilirmiyiz anasayfa olsun ki hocamız tek tek sayfalarda aranmasın oradan nereye kayıtlı olmuş görsün.Yeni Yılınız Kutlu Olsun .Teşekürler.Bitmiş dosyadan isteyenler faydalansınlar,ekledim.

 

[Orion1]

Sayın Orion2 elinize sağlık hata giti.Şimdi tüm bilgiler giriş sayfasına kayıt edebilirmiyiz anasayfa olsun ki hocamız tek tek sayfalarda aranmasın oradan nereye kayıtlı olmuş görsün.Yeni Yılınız Kutlu Olsun .Teşekürler.Bitmiş dosyadan isteyenler faydalansınlar,ekledim.

Aşağıdaki kodlar ayni zamanda GİRİŞ sayfasınada kaydediyor.

Private Sub CommandButton1_Click()
Set s1 = Sheets("GİRİŞ")

If TextBox1 = "" Then

MsgBox "NO YU GİRİNİZ!!!"
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox " LÜTFEN KAYNAK BİLGİLERİNİ GİRİNİZ!!!"
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox "lütfen adınızı soyadınızı giriniz !!!!!!"
Exit Sub
ElseIf TextBox4.Text = "" Then
MsgBox "lütfen görevi giriniz!! "
Exit Sub
ElseIf TextBox5.Text = "" Then
MsgBox " LÜTFEN VERDİĞİ DERS GİRİNİZ !"
Exit Sub
ElseIf TextBox6.Text = "" Then
MsgBox " LÜTFEN İSTİHDAM TİPİ GİRİNİZ!!!"
Exit Sub
End If
e = [e65536].End(3).Row
b = s1.[e65536].End(3).Row
Cells(e + 1, "a") = TextBox1.Text
Cells(e + 1, "b") = TextBox2.Text
Cells(e + 1, "c") = TextBox3.Text
Cells(e + 1, "d") = TextBox4.Text
Cells(e + 1, "e") = TextBox5.Text
Cells(e + 1, "F") = TextBox6.Text

s1.Cells(b + 1, "a") = TextBox1.Text
s1.Cells(b + 1, "b") = TextBox2.Text
s1.Cells(b + 1, "c") = TextBox3.Text
s1.Cells(b + 1, "d") = TextBox4.Text
s1.Cells(b + 1, "e") = TextBox5.Text
s1.Cells(b + 1, "F") = TextBox6.Text


TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""


Dim i As Integer
  For i = 1 To 1000
   
    DoEvents
  Next i
  MsgBox "Kayıt Tamamlandı!!!"
End Sub

 

[mami68]

Hocam süpersiniz süper oldu yine güncelenmiş dosya ekte.Teşekürler

 

[Orion1]

Hocam süpersiniz süper oldu yine güncelenmiş dosya ekte.Teşekürler

Rica ederim.
İyi çalışmalar.

 

[nur_u_allah]

teşekkürler

 

[mami68]

Küçük bir düzeltme yapıldı.Başkaları uğraşmasın amacıyla yeni dosya gönderdim.