sınıf karma programı

[hakkım]

arkadaşlar bi arkadaşım bi lisede çalışyor öğrencilere sınıf atayacaklar ama bunun içn excelde bi program istiyorum yapabilecek olan varmı
ben bir şablon oluşturdum detaylar içinde mevcuttur

 

[Necdet]

Merhaba,

Ekteki dosyayı inceler misiniz? Tam kontrol etmedim

 

[hakkım]

sağolun işime yaradı

 

[hakkım]

ya bişey soracam bu kızlarlar erkekleri 16-14 şeklinde karmayı kodun neresinden ayarladınız

Public Sub Dagit()
'-------- Sayfaları Boşalt -------------
For i = 2 To 13
Sheets(i).Range("B2:C65536").ClearContents
Next i

'----------- Dağıtımı Gerçekleştir ----------
SayfaNo = 13
Sayfa = 1
For i = 2 To [A65536].End(3).Row
If Cells(i, "C") = "e" Then Exit For
Sayfa = Sayfa + 1
If Sayfa > SayfaNo Then Sayfa = 2
SatirNo = Sheets(Sayfa).[B65536].End(3).Row + 1
Sheets(Sayfa).Cells(SatirNo, "B") = Cells(i, "B")
Sheets(Sayfa).Cells(SatirNo, "C") = Cells(i, "C")
Sheets(Sayfa).Cells(SatirNo + 1, "B") = Cells(i, "B").Offset(192, 0)
Sheets(Sayfa).Cells(SatirNo + 1, "C") = Cells(i, "C").Offset(192, 0)
Next i
MsgBox "Dağıtım Bitmiştir............"
End Sub

 

[hakkım]

kızları baş tarafa erkekleri son tarafa yazdığımdan her sınıfa 16 kız 14 erkek düşmüş bunu karışık yazınca dağıtım yapmıyor bi ona bakabilirmisiniz

 

[Necdet]

Merhaba Sayın hakkım,

Aslında ben hiç bir şey ayarlamadım. Sizin örneğinizde önce bayanlar sonra baylar geliyordu.

İlk bay ilk bayandan 192 satır sonra idi. Eğer kodda 192 kodunu görürseniz ordan ayarlamış oluyorum.

İyi Geceler.

 

[hakkım]

kızları baş tarafa erkekleri son tarafa yazdığımdadağıtım yapıyor ama kızlarla erkekleri karışık yazınca dağıtım yapmıyor bi bakabilirmisiniz

 

[Necdet]

Merhaba Sayın hakkım,

Daha genel bir mantık kurdum.

1. Kız ve Erkek öğrencileri saydırıyorum.
2. Sayı olarak hangisi çok ise, çok olan başa gelecek şekilde cinsiyete göre sıralatıyorum.
3. Toplam sayıya göre sınıf sayısını sizin belirlemeniz gerekiyor. (Burada ise SayfaNo)

Public Sub Dagit()
'----- SIRALA ------------------
i = [B65536].End(3).Row
Erkekler = Application.WorksheetFunction.CountIf(Range("C2:C" & i), "e")
Kizlar = Application.WorksheetFunction.CountIf(Range("C2:C" & i), "k")
If Erkekler <= Kizlar Then
   Range("B2:C" & i).Sort Key1:=[C2], Order1:=xlDescending, Key2:=[C2]
   Adet = Kizlar
   Cinsiyet = "e"
Else
   Range("B2:C" & i).Sort Key1:=[C2], Order1:=xlAscending, Key2:=[C2]
   Adet = Erkekler
   Cinsiyet = "k"
End If
'-------- Sayfalar&#305; Bo&#351;alt -------------
For i = 2 To 13
    Sheets(i).Range("B2:C65536").ClearContents
Next i
'----------- Da&#287;&#305;t&#305;m&#305; Ger&#231;ekle&#351;tir ----------
SayfaNo = 13
Sayfa = 1
For i = 2 To [A65536].End(3).Row
    If Cells(i, "C") = Cinsiyet Then Exit For
    Sayfa = Sayfa + 1
    If Sayfa > SayfaNo Then Sayfa = 2
    SatirNo = Sheets(Sayfa).[B65536].End(3).Row + 1
    Sheets(Sayfa).Cells(SatirNo, "B") = Cells(i, "B")
    Sheets(Sayfa).Cells(SatirNo, "C") = Cells(i, "C")
    Sheets(Sayfa).Cells(SatirNo + 1, "B") = Cells(i, "B").Offset(Adet, 0)
    Sheets(Sayfa).Cells(SatirNo + 1, "C") = Cells(i, "C").Offset(Adet, 0)
Next i
MsgBox "Da&#287;&#305;t&#305;m Bitmi&#351;tir............"
End Sub

 

[hakkım]

GelİŞtİr

TEŞEKKÜRLER NECDET SEZER SINIF KARMA PROGRAMI ÇALIŞIYOR AMA BİR ÖZELLİK DAHA EKLEMEYİ DÜŞÜNDÜM BİR ÖĞRENCİNİN D SÜTÜNÜNDA A, B, C, D, F, G, H, K, İ, M, N, GİBİ SINIF ADLARI YAZIYOSA O ÖĞRENCİYİ KARŞISINDA HANGİ SINIF YAZIYOSA O SINIFA YERLEŞTİRSİN EĞER YAZMIYOSA ÖĞRENCİYİ HANGİ SINIFA YERLEŞTİRDİĞİNİ D SÜTÜNUNA YAZSSA ÇOK İYİ OLUR ZATEN SINIF ADLRIYLA SAYFA ADLARI AYNI SAYFA ADLARI A, B, C, D, F, G, H, K, İ, M, N, ŞEKLİNDE
Dosyanin Son GÜncelenmİŞ Halİ AŞaĞida

 

[hakkım]

Yardim Yokmu

 

[hakkım]

Yardim Yokmu

 

[Mahmut Bayram]

D sütununda formül girebilirsiniz.
=SOLDAN(A1;1) & " sayfasına kaydedildi"

gibisinden.

 

[hakkım]

arkadaşım verdiğin kod çalışmadı öğrenciyi sayfa 1 de yani a sınıfında gösteriyo fakat b sınıfında yani sayfa 2 de

 

[Mahmut Bayram]

Ben yazdıklarını niye okuyamıyor ve anlayamıyorum.

 

[hakkım]

KardeŞ Dosya Yukarda VerdİĞİn Kod ÇaliŞiyormu Bİ Denermİsİn Benİm İstedİĞİmde Bİr ÖĞrencİnİn D SÜtÜnÜnda A, B, C, D, F, G, H, K, İ, M, N, Gİbİ Sinif Adlari Yaziyosa O ÖĞrencİyİ KarŞisinda Hangİ Sinif Yaziyosa O Sinifa YerleŞtİrdİn EĞer Yosmiyosa ÖĞrencİyİ Hangİ Sinifa YerleŞtİrdİĞİnİ D SÜtÜnuna Yazsin

 

[Mahmut Bayram]

Şöyle bir şey işini görür mü.

 

[hakkım]

SAYIN mahmut_bayram ÜZGÜNÜM AMA VERDİĞİNİZ KOD YİNE ÇALIŞMADI ÇOCUĞU OLMAYAN SINIFTA BİLE gÖSTERİYOR MESALE S SINIFI YOK S SINIFINDA ÖĞRENCİ GÖSTERİYO BİRDE ÖĞRENCİNİN BAŞ HARFİ NEYSE O SINIFTAYMIŞ GİBİ GÖSTERİYO YANİ Ş İLE BAŞLAYAN BİRİNİ Ş SINIFNDAYMIŞ GİBİ GÖSTERİYO AMA ÖYLE Bİ SINIF YOK

 

[hakkım]

GELİŞMİŞ

TEŞEKKÜRLER NECDET SEZER SINIF KARMA PROGRAMI ÇALIŞIYOR AMA BİR ÖZELLİK DAHA EKLEMEYİ DÜŞÜNDÜM BİR ÖĞRENCİNİN D SÜTÜNÜNDA A, B, C, D, F, G, H, K, İ, M, N, GİBİ SINIF ADLARI YAZIYOSA O ÖĞRENCİYİ KARŞISINDA HANGİ SINIF YAZIYOSA O SINIFA YERLEŞTİRSİN EĞER YAZMIYOSA ÖĞRENCİYİ HANGİ SINIFA YERLEŞTİRDİĞİNİ D SÜTÜNUNA YAZSSA ÇOK İYİ OLUR ZATEN SINIF ADLRIYLA SAYFA ADLARI AYNI SAYFA ADLARI A, B, C, D, F, G, H, K, İ, M, N, ŞEKLİNDE
Dosyanin Son GÜncelenmİŞ Halİ AŞaĞida

DAĞIT.XLS

 

[hakkım]

arkadaşlar yardım edecek kimseleryokumu yardımm

arkadaşlar yardım edecek kimseleryokumu yardımm

 

[hakkım]

ne olur yardım edin

ne olur yardım edin