ders dağıtım

[erdenek]

arkadaşlar merhaba meb in son çıkardığı Eğitim Öğretim Yılı Örgün ve Yaygın Eğitimi Destekleme ve Yetiştirme Kursları yönergesine göre okulumuzda kurs açacağız.ekteki dosyada sınıf ve şube bazında kurs için ders seçimi var.bu çizelgeyi arkadaşlar sınıf ders bazında 20 şer kişilik gruplara dağıtacağız.örneğin 5.sınıf Türkçe 20 kişilik 6.sınıf Türkçe 20 kişilik.vs.yani her ders kendi sınıf seviyesinde 20 kişilik gruplara ayrılacak.gruplara dağıtılırken 10 kişiden az 20 kişiden fazla olmayacak.yalnız bir de beden eğitim,müzik ve bilişim teknolojileri dersinde sınıf seviyesinde değil seçen öğrenciler arasında grup oluşturulacak.

 

[erdenek]

yok mu arkadaşlar bir çözüm

 

[erdenek]

Arkadaşlar konu acil 2 gündür bekliyorum yarin lazim

 

[erdenek]

indirmede sorun yaşayan arkadaşlar için dosya paylaşım sitesine de upload ettim.


http://dosya.co/6nzto7t9vujg/H._Temizel_Ortaokul_Kurs_istek_çizelgesi.xlsx.html

 

[ramazan_58]

1500 öğrencisi olan okulumuzda linkteki program hem seçmeli ders dağıtımını hem de kurs seçen öğrencileri rahatlıkla dağıtmaktadır.
Başarıyla 2 yıldır uygulanmaktadır.



https://sites.google.com/site/secmelidersprogrami/secmeli-ders-dagitim-programi

 

[erdenek]

ilginize teşekkür ederim.ama program bana biraz karışık geldi.

 

[Muhammet Okumuş]

Merhaba,
Bazı öğrenciler bütün dersleri seçmişler. Öğrencilerin en fazla alabilceği kurs sınırı var mı?

 

[erdenek]

Muhammet hocam kurs için ders seçiminde bir sinirlama yok.okulda gorulen tüm dersleri secebiliyor

 

[Muhammet Okumuş]

Merhaba,
Dosyada öğrenciler listeleniyor ve hangi dersten kaç grup ve grubun kaç kişi olacağı belirtiliyor. Sınıf listesini oluşturmak size kalıyor. Bir tane şablon sayfa oluşturun ve gruplara belirlenen sayı adedince öğrenci yerleştirin.

 

[erdenek]

Muhammet hocam ellerine sağlık güzel bir çalışma.sınıf listesini elle oluşturmak bayağı zaman alır.1.Sınıf kura programında olduğu gibi liste al butonu oluşturularak alınabilirse çok daha güzel olur.

 

[muygun]

Merhaba;
Mesajınıza istinaden alternatif olsun.
İnceleyin.
İyi çalışmalar.

 

[halit3]

Alternatif kod

Sub aktar()
sil

Application.ScreenUpdating = False

Sayfa = ActiveSheet.Name
Set s1 = Worksheets(Sayfa)

ReDim Sınıf(4)
Sınıf(1) = 5
Sınıf(2) = 6
Sınıf(3) = 7
Sınıf(4) = 8

say1 = 0




For k = 6 To s1.Cells(3, Columns.Count).End(xlToLeft).Column

aranan1 = s1.Cells(3, k)

For j = 1 To 4
aranan2 = Sınıf(j)
say2 = 1

For i = 4 To s1.Range("b65536").End(xlUp).Row

If s1.Cells(i, k) = "X" And aranan2 = s1.Cells(i, 4) Then
say1 = say1 + 1
If say1 = 21 Then say1 = 1

If say1 = 1 Then
Worksheets(Worksheets.Count).Columns("A:F").EntireColumn.AutoFit
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = aranan2 & aranan1 & say2
Set s2 = Worksheets(aranan2 & aranan1 & say2)
say2 = say2 + 1

s2.Cells(1, 1) = "Sıra No"
s2.Cells(1, 2) = "Öğrencinin Adı Soyadı"
s2.Cells(1, 3) = "Okul No"
s2.Cells(1, 4) = "Sınıfı"
s2.Cells(1, 5) = "Şube"
s2.Cells(1, 6) = "Ders"


End If

sonsatir = s2.Range("A65536").End(xlUp).Row + 1
s2.Cells(sonsatir, 1) = sonsatir - 1
s2.Cells(sonsatir, 2) = s1.Cells(i, 2)
s2.Cells(sonsatir, 3) = s1.Cells(i, 3)
s2.Cells(sonsatir, 4) = s1.Cells(i, 4)
s2.Cells(sonsatir, 5) = s1.Cells(i, 5)
s2.Cells(sonsatir, 6) = s1.Cells(3, k)
End If
Next i

son1 = 0
If aranan1 = "Bilişim Tekn." Or aranan1 = "Beden Eğt." Or aranan1 = "Müzik" Then
son1 = 1
End If

If son1 = 0 Then
say1 = 0
End If

Next j
Next k
Worksheets(Worksheets.Count).Columns("A:F").EntireColumn.AutoFit

Sheets(Sayfa).Select
Application.ScreenUpdating = True
MsgBox "İşlem tamam."
End Sub

Sub sil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sayfa = ActiveSheet.Name

Dim myArray() As Variant
Dim i As Integer
Dim j As Integer
j = 0
If Sheets.Count <= 1 Then Exit Sub
For i = 1 To Sheets.Count
r = 0
If Sheets(i).Name <> Sayfa Then
r = 1
End If

If r = 1 Then
ReDim Preserve myArray(j)
myArray(j) = i
j = j + 1
End If
Next i

Sheets(myArray).Select
Sheets(myArray).Delete

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[erdenek]

değerli üstadlarım muygun ve halit3 emekleriniz için teşekkür ederim.hakkınız helal edin.üstadlar bir sorum olacaktı.Ben çizelgelere yeni bir ders eklediğimde makrolarda bir sıkıntı olmaz değil mi?

 

[halit3]

değerli üstadlarım muygun ve halit3 emekleriniz için teşekkür ederim.hakkınız helal edin.üstadlar bir sorum olacaktı.Ben çizelgelere yeni bir ders eklediğimde makrolarda bir sıkıntı olmaz değil mi?

Merhaba

Sorunuza 3 kişi farklı cevap vermiş
siz genele ait bir soru soruyorsunuz
benim yazdığım kod ile ilgili 4 sınıfın dışında koda ilave yapmak gerekir ayrıca örnek dosyada son sütuna eklenecek bir derslik ile sıkıntı olmaz
diğer taraftan ekleyeceğiniz derslikler Bilişim Tekn.,Beden Eğt.,Müzik derslerinden sonra olmamalı bu ayırımı siz 1 nolu mesajınızda yapmıştınız.

yeni ekleyeceğiniz sayfalarla ilgilide kod hangi sayfada çalışıyorsa bunun dışındaki bütün sayfalarıda silecektir.

 

[erdenek]

Merhaba

Sorunuza 3 kişi farklı cevap vermiş
siz genele ait bir soru soruyorsunuz
benim yazdığım kod ile ilgili 4 sınıfın dışında koda ilave yapmak gerekir ayrıca örnek dosyada son sütuna eklenecek bir derslik ile sıkıntı olmaz
diğer taraftan ekleyeceğiniz derslikler Bilişim Tekn.,Beden Eğt.,Müzik derslerinden sonra olmamalı bu ayırımı siz 1 nolu mesajınızda yapmıştınız.

yeni ekleyeceğiniz sayfalarla ilgilide kod hangi sayfada çalışıyorsa bunun dışındaki bütün sayfalarıda silecektir.

bilgi için teşekkür ederim üstad.ellerinize sağlık