Yaz Kursu Öğrenci Kayıt

[kartal1171]

Değerli Dostlar excel.web.tr.deki güzel çalışmaları izlerken bende acizane bir ufak program yapabilirmiyim diye yola çıktım. Arkadaşların güzel çalışmalarını takdirle karşılıyorum.Çalışmamda bir kaç noktada takıldım kaldım. mesela 1-Otomatik sıra numarası verdirebilirmiyiz.2-Aynı isimli şahısları kaydettiğimizde ki bazen kaydetmemiz gerekebiliyor listbox tan seçtiğimiz aynı isimli şahıslardan sadece birini gösteriyor. Aynı sıkıntı Optionbuttonlarda'da yaşanıyor.Bir incelerde yardımcı olursanız müteşekkir olurum.Şifre 1234 şimdiden teşekkürler. Birde Kayıt sırası ve sıradaki kayıt bölümlerine bir bakarsanız.

 

[halit3]

Değerli Dostlar excel.web.tr.deki güzel çalışmaları izlerken bende acizane bir ufak program yapabilirmiyim diye yola çıktım. Arkadaşların güzel çalışmalarını takdirle karşılıyorum.Çalışmamda bir kaç noktada takıldım kaldım. mesela 1-Otomatik sıra numarası verdirebilirmiyiz.2-Aynı isimli şahısları kaydettiğimizde ki bazen kaydetmemiz gerekebiliyor listbox tan seçtiğimiz aynı isimli şahıslardan sadece birini gösteriyor. Aynı sıkıntı Optionbuttonlarda'da yaşanıyor.Bir incelerde yardımcı olursanız müteşekkir olurum.Şifre 1234 şimdiden teşekkürler. Birde Kayıt sırası ve sıradaki kayıt bölümlerine bir bakarsanız.

Dosyanızın bazı yerlerini farklı düzenledim.

 

[kartal1171]

Halit Bey Gerçekten Çok Teşekkür ederim yardımcı olduğunuz için. Ama şurada bir sıkıntı var mesela 2 numaralı kaydı sildik diyelim yeni kayıtta sıralama tamamen değişiyor buna bir çözüm bulabilirmiyiz. Birde veri sayfasından ana menüdeki kayıtlı kişi sayısı ve sıradaki kayıt sütünlarına veriyi nasıl alabiliriz.Selam ve saygılar.

 

[halit3]

Halit Bey Gerçekten Çok Teşekkür ederim yardımcı olduğunuz için. Ama şurada bir sıkıntı var mesela 2 numaralı kaydı sildik diyelim yeni kayıtta sıralama tamamen değişiyor buna bir çözüm bulabilirmiyiz. Birde veri sayfasından ana menüdeki kayıtlı kişi sayısı ve sıradaki kayıt sütünlarına veriyi nasıl alabiliriz.Selam ve saygılar.

Sil komut düğmesini bununla değiştir.

Private Sub kayitsil_Click()
Dim cevap As Integer
Dim i
If adi.Value = "" Then
MsgBox "Silmek istediğiniz kaydın ismini veya telefon numarasını listeden seçmelisiniz!...", vbOKOnly + vbInformation, "Öğrenci Kayıt -İbrahim Kartal Din Sitesi Camii Lefkoşa/KKTC"
bultxt.SetFocus
Else
cevap = MsgBox(adi.Value & " isimli kayda ait tüm bilgiler rehberden silinecek.. Silinsin mi?", vbInformation + vbOKCancel, "Öğrenci Kayıt -İbrahim Kartal Din Sitesi Camii Lefkoşa/KKTC")
If cevap = vbOK Then
Rows(analist.List(analist.ListIndex, 1)).Delete Shift:=xlUp
For i = 3 To Worksheets("veri").Cells(Rows.Count, "a").End(3).Row
Worksheets("veri").Cells(i, 1).Value = i - 2
Next
anamenu_Initialize
Else
Exit Sub
End If
End If
End Sub

 

[halit3]

Bu kodu userformunuza ekleyin.

Private Sub UserForm_Initialize()
kayitlikisi.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 2
siradakikayit.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 1
End Sub

Kayıtet ve kayıt sil kodlarının altınada bunu ekleyin

UserForm_Initialize

veya bunları

kayitlikisi.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 2
siradakikayit.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 1

 

[kartal1171]

Halit bey gerçekten harikasınız sorun çözüldü gibi bu programı kullanan arkadaşlar sizin için duacı olacaklardır. Bir iki noktada daha yardımınızı istirham edeceğim ekli resimlerde de göreceğiniz üzere kayıt güncelleme esnasında sıra numarasını karıştırıyor. Kişilerin kimlik numaralarıda değişiyordu onu ben hallettim inşaallah. Özellikle bul komutu ile listboxta sıralanan kişiler click ile texboxlarda gözükmüyor. Tüm kayıt dendiğinde gözüküyor yardımcı olursanız memnun olurum. Birde daha önce rapor alma üzerine hiç çalışmadım bir kaç çeşit rapor almamız gerekecek mesela Kayseri Kursunda olan öğrencilerin ad soyad kimlik no, tel. adres vs. gibi genel liste gibi, kız erkek gibi çoğaltabiliriz bu konuda vapılmış bir örnek çalışma varmıdır veya kodlar konusun da yardımcı olursanız çok müteşekkir olurum. Selam ve Dua ile.

 

[halit3]

Halit bey gerçekten harikasınız sorun çözüldü gibi bu programı kullanan arkadaşlar sizin için duacı olacaklardır. Bir iki noktada daha yardımınızı istirham edeceğim ekli resimlerde de göreceğiniz üzere kayıt güncelleme esnasında sıra numarasını karıştırıyor. Kişilerin kimlik numaralarıda değişiyordu onu ben hallettim inşaallah. Özellikle bul komutu ile listboxta sıralanan kişiler click ile texboxlarda gözükmüyor. Tüm kayıt dendiğinde gözüküyor yardımcı olursanız memnun olurum. Birde daha önce rapor alma üzerine hiç çalışmadım bir kaç çeşit rapor almamız gerekecek mesela Kayseri Kursunda olan öğrencilerin ad soyad kimlik no, tel. adres vs. gibi genel liste gibi, kız erkek gibi çoğaltabiliriz bu konuda vapılmış bir örnek çalışma varmıdır veya kodlar konusun da yardımcı olursanız çok müteşekkir olurum. Selam ve Dua ile.

Bul kodu

Private Sub bul_Click()
analist.Clear
analist.ColumnCount = 2
analist.ColumnWidths = "100;0;0" 'lisbox'taki sütunların genişliği
Dim sat
Dim hucre As Range
If OptionButton1.Value = True Then
Label20.Caption = "Tüm İsim Listesi:"
For Each hucre In Range(Range("C3"), Range("C" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton2.Value = True Then
Label20.Caption = "Tüm  Ev Telefon Numarası Kayıtları:"
For Each hucre In Range(Range("K3"), Range("K" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton3.Value = True Then
Label20.Caption = "Cep Telefon Numarası Kayıtları:"
For Each hucre In Range(Range("L3"), Range("L" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If
If OptionButton4.Value = True Then
Label20.Caption = "Kurs Yeri Listesi:"
For Each hucre In Range(Range("N3"), Range("N" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton5.Value = True Then
Label20.Caption = "Kurs Telefon Numaraları Listesi:"
For Each hucre In Range(Range("O3"), Range("O" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If
If OptionButton6.Value = True Then
Label20.Caption = "Tüm E-Mail Adresleri:"
For Each hucre In Range(Range("M3"), Range("M" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

bultxt = Empty
bultxt.SetFocus
End Sub

 

[halit3]

Bu dosyaya ben bir adet form ekledim raporlarınızı buradan alabilirsiniz.
Formu birazcık kurcalayın bakalım.

 

[kartal1171]

Halit bey Göstermiş olduğunuz ilgi için çok teşekkürler.

 

[kartal1171]

Halit bey eklemiş olduğunuz rapor çok güzel olmuş ama ben biraz daha üzerinde çalıştığım forma eklediğimde çalştıramadım herhalde makroları atayamadım , veri sayfasındaki butonu user forma ekledim ondan kaynaklanabilirmi! en gin tecrübelerinize sunulur. Birde son bir iki husus Bul İle listelenen şahsa click lendiğinde o kişinin bilgileri değilde Kayıttaki ilk şahsın bilgileri geliyor son olarak ise user forma kayıtlı kız-erkek sayıları için iki texbox ekledim bunlarada bir yardımcı olursanız Dualarımızdan sizi eksik etmeyeceğiz inşaallah Son çalışmayı ben ekliyorum bir göz atarda varsa eksikleri giderebilirseniz çok memnun oluruz.Güncellemedeki numaralandırma hatası devam ediyor (bir önceki mesajda belirttiğim)-bazende sil'de hata veriyor. Kıbrıstan bir Din görevlisi kardeşiniz.

 

[kartal1171]

Halit Bey10 Numaralı mesaja Dosya eklenmemiş galiba Mesaja ve Dosyaya bir göz atarsanız Şükranlarımızı sunarız. İyi Çalışmalar (Şifre 1234)

 

[halit3]

Halit bey eklemiş olduğunuz rapor çok güzel olmuş ama ben biraz daha üzerinde çalıştığım forma eklediğimde çalştıramadım herhalde makroları atayamadım , veri sayfasındaki butonu user forma ekledim ondan kaynaklanabilirmi! en gin tecrübelerinize sunulur. Birde son bir iki husus Bul İle listelenen şahsa click lendiğinde o kişinin bilgileri değilde Kayıttaki ilk şahsın bilgileri geliyor son olarak ise user forma kayıtlı kız-erkek sayıları için iki texbox ekledim bunlarada bir yardımcı olursanız Dualarımızdan sizi eksik etmeyeceğiz inşaallah Son çalışmayı ben ekliyorum bir göz atarda varsa eksikleri giderebilirseniz çok memnun oluruz.Güncellemedeki numaralandırma hatası devam ediyor (bir önceki mesajda belirttiğim)-bazende sil'de hata veriyor. Kıbrıstan bir Din görevlisi kardeşiniz.

Dosyanız ekte raporla ilgili bölümü çalıştıramamınızın nedeni referanlarla ilgili bölümü ek sik olduğundandır.

 

[kartal1171]

Teşekkürler Halit Bey

Halit Bey Destekleriniz için teşekkürler. Güzel bir çalışma oldu kanaatindeyim Dileyen arkadaşlar kullanabilirler Acizane bize ve size kısa bir dua ile (Allah Razı olsun) Eksik yanlarını göre arkadaşlar dahada geliştirebilirler. Bu Çalışma Yaz Kur'an Kurslarına katılacak olan öğrenciler için bizden istenmişti yardımcı olabildiysek ne mutlu İyi günlerde Kullanmanız dileğiyle. Bilgi Paylaşıldıkça Güzeldir.

 

[halit3]

Halit Bey Destekleriniz için teşekkürler. Güzel bir çalışma oldu kanaatindeyim Dileyen arkadaşlar kullanabilirler Acizane bize ve size kısa bir dua ile (Allah Razı olsun) Eksik yanlarını göre arkadaşlar dahada geliştirebilirler. Bu Çalışma Yaz Kur'an Kurslarına katılacak olan öğrenciler için bizden istenmişti yardımcı olabildiysek ne mutlu İyi günlerde Kullanmanız dileğiyle. Bilgi Paylaşıldıkça Güzeldir.

Rapor formunuda formdaki rapor düğmesine ekledim.

 

[kartal1171]

Harikasınız! Fazla söze ne Hacet

 

[halit3]

Harikasınız! Fazla söze ne Hacet

Teşekkürler iyi çalışmalar