Seviye Sınıfları oluşturma

[Feylosof]

Arkadaşlar merhaba;
Kız ve Erkek sayıları dengeli olacak şekilde not ortalamasına göre en yüksekten en düşüğe doğru sınıfları oluşturmak istiyorum. Örnek dosya ekledim.
Desteğiniz için şimdiden teşekkürler.

 

[muratboz06]

chatgptye çözdürülmüştür.

ChatGPT - VBA Sınıf Listesi Oluşturma

Shared via ChatGPT

chatgpt.com

 

[Muzaffer Ali]

Merhaba.

Alternatif
Bir modüle kopyalayıp çalıştırın.

Sub SiniflariOlustur()

    Dim Sube As Integer
    Dim Bak As Long
    Dim Say As Integer
    Dim SayKiz As Integer
    Dim SayErkek As Integer
    Dim KizKacinci As Integer

    Application.ScreenUpdating = False
    Sube = 64
    Say = Cells(Rows.Count, "E").End(xlUp).Row
    
    With ThisWorkbook.ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("E2:E" & Say), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add2 Key:=Range("F2:F" & Say), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("A1:F" & Rows.Count)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        
    Range("B2:B" & Say).ClearContents

    SayKiz = WorksheetFunction.CountIf(Range("E:E"), "Kız")
    SayKiz = WorksheetFunction.Round(SayKiz / ((Say - 1) / 100), 1)
    SayKiz = Range("I2") * (SayKiz / 100)
    SayErkek = Range("I2") - SayKiz
    KizKacinci = Range("E:E").Find(what:="Kız").Row
    
    For Bak = 2 To KizKacinci - 1 Step SayErkek
        Sube = 1 + Sube
        If Bak + SayErkek > (KizKacinci - 1) Then SayErkek = (KizKacinci - Bak) - 1
        Range("B" & Bak, "B" & Bak + SayErkek) = ActiveSheet.Name & ". Sınıf /  " & Chr(Sube) & " Şubesi"
    Next
    Sube = 64
    For Bak = KizKacinci To Say Step SayKiz
        Sube = 1 + Sube
        If Bak + SayKiz > (Say - 1) Then SayKiz = (Say - Bak)
        Range("B" & Bak, "B" & Bak + SayKiz) = ActiveSheet.Name & ". Sınıf /  " & Chr(Sube) & " Şubesi"
    Next
    
    With ThisWorkbook.Worksheets("9").Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("B2:B" & Say), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:F" & Rows.Count)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
End Sub

 

[Feylosof]

Sayın @muratboz06 ve sayın @Muzaffer Ali ustalarım ilginiz için her ikinize de ayrı ayrı teşekkür ederim. @Muzaffer Ali üstadım kodda ekran görüntüsündeki satırda hata verdi. object doesn't support property or method hatası. Murat hocam dosyanın formatını bozmadan ve kız erkek sayfalarını ikiye ayırmadan yapmak mümkün değil midir?

 

[Muhammet Okumuş]

Merhaba,
I sütununda şube sayısına tıklayarak çalışır.

 

[Muzaffer Ali]

Kodları örnek dosyaya ekledim. Hata vermiyor.

 

[Feylosof]

Kodları örnek dosyaya ekledim. Hata vermiyor.

Değerli hocam sanırım bende yüklü excelden kaynaklanıyor. Zira aynı hata devam ediyor. vba kısmında bir şey aktifleştirmek mi gerekiyor acaba

 

[Feylosof]

Merhaba,
I sütununda şube sayısına tıklayarak çalışır.

Muhammed hocam çok güzel çalışma olmuş eline sağlık. Bu 9 ve 10. sınıflarda oluşturulacak seviye sınıfları için mükemmel. Bir de 11. sınıflarda bir kriter daha ekleyerek SAYISAL, EŞİT AĞIRLIK SÖZEL GİBİ bu alanların içinde seviye sınıfı oluşturabilir miyiz. Yoksa yeni konu mu açayım bunun için.

 

[Muzaffer Ali]

Değerli hocam sanırım bende yüklü excelden kaynaklanıyor. Zira aynı hata devam ediyor. vba kısmında bir şey aktifleştirmek mi gerekiyor acaba

Add2 yazan 3 tane yer ver hepsini Add ile değiştirin.
Eğer yine hata verirse hata mesajını da paylaşırsanız belki sorunu çözebiliriz
Yada üzerinde çalıştığınız dosyayı paylaşın, dosyayı kontrol edelim.

 

[Feylosof]

Add2 yazan 3 tane yer ver hepsini Add ile değiştirin.
Eğer yine hata verirse hata mesajını da paylaşırsanız belki sorunu çözebiliriz
Yada üzerinde çalıştığınız dosyayı paylaşın, dosyayı kontrol edelim.

4. Mesajdaki satırda ekli hatayı veriyor

 

[Muhammet Okumuş]

Muhammed hocam çok güzel çalışma olmuş eline sağlık. Bu 9 ve 10. sınıflarda oluşturulacak seviye sınıfları için mükemmel. Bir de 11. sınıflarda bir kriter daha ekleyerek SAYISAL, EŞİT AĞIRLIK SÖZEL GİBİ bu alanların içinde seviye sınıfı oluşturabilir miyiz. Yoksa yeni konu mu açayım bunun için.

Yeni konu açmanıza gerek yok. Kodlarda düzenleme yapmak gerekiyor. Başka koşul olacak mı?

 

[Feylosof]

Yeni konu açmaniza gerek yok. Kodlarda düzenleme yapmak gerekiyor. Başka koşul olacak mı?

Hocam çok teşekkür ederim. Başka koşul yok. Aynı bölümü seçenleri kendi içinde erkek ve kız sayıları dengeli olacak şekilde diğer dosyada olduğu mantıkla seviye sınıfı oluşturacak.

 

[Muhammet Okumuş]

Sayısal, Sözel, Eşit ağırlık şube sayıları her zaman eşit mi? Onları ayrı ayrı belirtmek daha doğru olur.

 

[Muzaffer Ali]

4. Mesajdaki satırda ekli hatayı veriyor

9. mesajda söylediğimi yapsanız bu hata gidecek.

 

[Feylosof]

Sayısal, Sözel, Eşit ağırlık şube sayıları her zaman eşit mi? Onları ayrı ayrı belirtmek daha doğru olur.

Genelde 2 SAYISAL 4 EA 1 DİL sınıfı oluyor. Ama bu sayıları biz belirlesek dosyada olduğu gibi olur mu acaba

 

[Feylosof]

9. mesajda söylediğimi yapsanız bu hata gidecek.

Hocam kusura bakmayın. Ben mevzuyu şimdi anladım. Kod kısmında yapılacak diye anlamadım. Listeyi kontrol ettim. Şimdi oldu. Teşekkürler.

 

[Muhammet Okumuş]

Hocam isteğiniz doğrultusunda hazırlamaya çalıştım.

 

[Feylosof]

s

Hocam isteğiniz doğrultusunda hazırlamaya çalıştım.

Değerli hocam emeğinize sağlık. ne kadar teşekkür etsem azdır. Başka diyecek söz bulamıyorum. Var olun. Kalın sağlıcakla

 

[Muhammet Okumuş]

Rica ederim hocam. Yaşadığımız sürece buralardayız. Sorununuz, sorunumuzdur.