İyi akşamlar. Arkadaşlar okulumuzda sınavlarda kelebek sistemi dediğimiz bir excel sınav dağıtım dosyası kullanıyoruz. bu excel programda sınıflara tüm öğrenciler karışık olarak atılıyor. Biz kopya çeken, sıkıntı yaratan öğrencileri aynı sınıflarda sınava almak istiyoruz. Bunun için dağıtımı yaptıktan sonra tek tek bu öğrencileri salonlara elle yerleştiriyoruz. Bunu programın kendisine otomatik yaptırmak mümkün mü? Kısacası Bu öğrenciler için iki sınıf belirleyip bu sınıfları dağıtımda ayrı salonlara; fakat bir arada tutmak istiyoruz. Yardımlarınızı bekliyorum. Teşekkürler.
dosya : (Değiştirmem gereken kodları belirtebilirseniz kendim de yaplayı deneyebilirim. Teşekkürler.)
kodlar:
dosya : (Değiştirmem gereken kodları belirtebilirseniz kendim de yaplayı deneyebilirim. Teşekkürler.)
kodlar:
Kod:
Private Sub OkulListe()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim eokulListe As Integer
Dim sonSat As Integer
Dim sinifSira As Integer
Dim ilerlemeson As Integer
Dim sinif(35) As String
Dim ilerleme As Double
Dim i As Integer, j As Integer, k As Integer
Application.Calculation = xlCalculationManual
Worksheets("Siniflar").Range("A:E").Value = ""
If Worksheets("e-okul").Cells(1, 1) = "" Then
MsgBox "Lütfen önce e-okuldan sınıf listelerini yazdırma bölümünden Microsoft Excel 97-2000 Data Only (XLS) olarak masa üstüne kaydediniz. Kaydettiğiniz listeyi e-okul sayfasına A1 hücresinden itibaren yapıştırınız."
Else
sonSat = 1
sinifSira = 1
eokulListe = Worksheets("Sinavlar").Cells(1, 9).Value + 1 'e-okul listesi boyutu
ilerleme = 26 / eokulListe
sinif(1) = Worksheets("Sinavlar").Cells(9, 1).Value
sinif(2) = Worksheets("Sinavlar").Cells(10, 1).Value
sinif(3) = Worksheets("Sinavlar").Cells(11, 1).Value
sinif(4) = Worksheets("Sinavlar").Cells(12, 1).Value
sinif(5) = Worksheets("Sinavlar").Cells(13, 1).Value
sinif(6) = Worksheets("Sinavlar").Cells(14, 1).Value
sinif(7) = Worksheets("Sinavlar").Cells(15, 1).Value
sinif(8) = Worksheets("Sinavlar").Cells(16, 1).Value
sinif(9) = Worksheets("Sinavlar").Cells(17, 1).Value
sinif(10) = Worksheets("Sinavlar").Cells(18, 1).Value
sinif(11) = Worksheets("Sinavlar").Cells(19, 1).Value
sinif(12) = Worksheets("Sinavlar").Cells(20, 1).Value
sinif(13) = Worksheets("Sinavlar").Cells(21, 1).Value
sinif(14) = Worksheets("Sinavlar").Cells(22, 1).Value
sinif(15) = Worksheets("Sinavlar").Cells(23, 1).Value
sinif(16) = Worksheets("Sinavlar").Cells(24, 1).Value
sinif(17) = Worksheets("Sinavlar").Cells(25, 1).Value
sinif(18) = Worksheets("Sinavlar").Cells(26, 1).Value
sinif(19) = Worksheets("Sinavlar").Cells(27, 1).Value
sinif(20) = Worksheets("Sinavlar").Cells(28, 1).Value
sinif(21) = Worksheets("Sinavlar").Cells(29, 1).Value
sinif(22) = Worksheets("Sinavlar").Cells(30, 1).Value
sinif(23) = Worksheets("Sinavlar").Cells(31, 1).Value
sinif(24) = Worksheets("Sinavlar").Cells(32, 1).Value
sinif(25) = Worksheets("Sinavlar").Cells(33, 1).Value
sinif(26) = Worksheets("Sinavlar").Cells(34, 1).Value
sinif(27) = Worksheets("Sinavlar").Cells(35, 1).Value
sinif(28) = Worksheets("Sinavlar").Cells(36, 1).Value
sinif(29) = Worksheets("Sinavlar").Cells(37, 1).Value
sinif(30) = Worksheets("Sinavlar").Cells(38, 1).Value
sinif(31) = Worksheets("Sinavlar").Cells(39, 1).Value
sinif(32) = Worksheets("Sinavlar").Cells(40, 1).Value
sinif(33) = Worksheets("Sinavlar").Cells(41, 1).Value
sinif(34) = Worksheets("Sinavlar").Cells(42, 1).Value
sinif(35) = Worksheets("Sinavlar").Cells(43, 1).Value
For i = 1 To eokulListe
If (Worksheets("e-okul").Cells(i, 1).Value <> "S.No") And (Worksheets("e-okul").Cells(i, 1).Value <> "") Then
If Worksheets("e-okul").Cells(i, 1).Value <> "Kız Öğrenci Sayısı :" Then
Worksheets("Siniflar").Cells(sonSat, 1) = Worksheets("e-okul").Cells(i, 1).Value 'sira no
Worksheets("Siniflar").Cells(sonSat, 2) = sinif(sinifSira) 'sinifi
Worksheets("Siniflar").Cells(sonSat, 3) = Worksheets("e-okul").Cells(i, 2).Value 'numarasi
Worksheets("Siniflar").Cells(sonSat, 4) = Worksheets("e-okul").Cells(i, 4).Value & " " & Worksheets("e-okul").Cells(i, 9).Value 'adi soyadi
Select Case sinifSira
Case 1
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(9, 4).Formula
Case 2
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(10, 4).Formula
Case 3
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(11, 4).Formula
Case 4
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(12, 4).Formula
Case 5
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(13, 4).Formula
Case 6
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(14, 4).Formula
Case 7
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(15, 4).Formula
Case 8
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(16, 4).Formula
Case 9
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(17, 4).Formula
Case 10
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(18, 4).Formula
Case 11
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(19, 4).Formula
Case 12
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(20, 4).Formula
Case 13
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(21, 4).Formula
Case 14
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(22, 4).Formula
Case 15
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(23, 4).Formula
Case 16
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(24, 4).Formula
Case 17
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(25, 4).Formula
Case 18
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(26, 4).Formula
Case 19
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(27, 4).Formula
Case 20
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(28, 4).Formula
Case 21
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(29, 4).Formula
Case 22
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(30, 4).Formula
Case 23
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(31, 4).Formula
Case 24
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(32, 4).Formula
Case 25
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(33, 4).Formula
Case 26
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(34, 4).Formula
Case 27
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(35, 4).Formula
Case 28
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(36, 4).Formula
Case 29
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(37, 4).Formula
Case 30
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(38, 4).Formula
Case 31
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(39, 4).Formula
Case 32
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(40, 4).Formula
Case 33
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(41, 4).Formula
Case 34
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(42, 4).Formula
Case 35
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(43, 4).Formula
End Select
sonSat = sonSat + 1
Else
sinifSira = sinifSira + 1
End If
End If
durum 40, ilerleme * i
Next i
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub SinavaGirecekleriAyir()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim sonSat As Integer, sinavBoyut As Integer, toplamOgrenci As Integer
Dim i As Integer, j As Integer, k As Integer
Dim dizi() As Integer
Dim ilerleme As Double, ilerlemeson As Double
Dim N As Long
Dim Gemp As Variant
Dim M As Long
Dim sayfaSil As Range
Application.Calculation = xlCalculationManual
Set sayfaSil = Worksheets("SinavaGirecekler").Range("A:S")
sayfaSil.Value = ""
If Worksheets("Siniflar").Cells(1, 1) = "" Then
MsgBox "Lütfen önce e-okul'dan Sınıf listelerini oluşturunuz."
Else
sinavBoyut = Worksheets("Sinavlar").Cells(3, 9) 'sinava girecek öğrenci sayısı
toplamOgrenci = Worksheets("Sinavlar").Cells(2, 9)
ilerleme = 26 / (toplamOgrenci + (3 * sinavBoyut))
ilerlemeson = 0
sonSat = 1 'sinava girecekler icin
For i = 1 To toplamOgrenci
If Worksheets("Siniflar").Cells(i, 5) <> "" Then
Worksheets("SinavaGirecekler").Range("O:S").Rows(sonSat).Value = Worksheets("Siniflar").Range("A:E").Rows(i).Value
sonSat = sonSat + 1
End If
durum 8, ilerleme * i
Next i
ilerlemeson = (i - 1) * ilerleme
ReDim dizi(sinavBoyut)
For i = 1 To sinavBoyut
dizi(i) = i
Next i
Randomize
For N = 1 To sinavBoyut
M = CLng(((sinavBoyut - N) * Rnd) + N)
If N <> M Then
Gemp = dizi(N)
dizi(N) = dizi(M)
dizi(M) = Gemp
End If
Next N
For i = 1 To sinavBoyut 'karıştırma işlemi 1. adım
Worksheets("SinavaGirecekler").Range("A:E").Rows(i).Value = Worksheets("SinavaGirecekler").Range("O:S").Rows(dizi(i)).Value
durum 8, i * ilerleme + ilerlemeson
Next i
ilerlemeson = (i - 1) * ilerleme + ilerlemeson
For k = 1 To 2
For i = 2 To sinavBoyut 'karıştırma işlemi 2. adım
If Worksheets("SinavaGirecekler").Cells(i, 5).Value = Worksheets("SinavaGirecekler").Cells(i - 1, 5).Value Then
If i = sinavBoyut Then
For j = 1 To sinavBoyut
If (Worksheets("SinavaGirecekler").Cells(i, 5).Value <> Worksheets("SinavaGirecekler").Cells((i - (sinavBoyut - 1)) + j, 5).Value) Then
Worksheets("SinavaGirecekler").Range("U:Y").Rows(1).Value = Worksheets("SinavaGirecekler").Range("A:E").Rows(i).Value
Worksheets("SinavaGirecekler").Range("A:E").Rows(i).Value = Worksheets("SinavaGirecekler").Range("A:E").Rows((i - (sinavBoyut - 1)) + j).Value
Worksheets("SinavaGirecekler").Range("A:E").Rows((i - (sinavBoyut - 1)) + j).Value = Worksheets("SinavaGirecekler").Range("U:Y").Rows(1).Value
j = sinavBoyut
End If
Next j
Else
For j = 1 To sinavBoyut
If (Worksheets("SinavaGirecekler").Cells(i, 5).Value <> Worksheets("SinavaGirecekler").Cells(i + j, 5).Value) And (Worksheets("SinavaGirecekler").Cells(i + j, 5).Value <> "") Then
Worksheets("SinavaGirecekler").Range("U:Y").Rows(1).Value = Worksheets("SinavaGirecekler").Range("A:E").Rows(i).Value
Worksheets("SinavaGirecekler").Range("A:E").Rows(i).Value = Worksheets("SinavaGirecekler").Range("A:E").Rows(i + j).Value
Worksheets("SinavaGirecekler").Range("A:E").Rows(i + j).Value = Worksheets("SinavaGirecekler").Range("U:Y").Rows(1).Value
j = sinavBoyut
End If
Next j
End If
End If
durum 8, i * ilerleme + ilerlemeson
Next i
ilerlemeson = (i - 1) * ilerleme + ilerlemeson
Next k
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub SolanlaraAyir()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim sb(35, 2) As Integer, salonSayisi As Integer, ogrenciSayisi As Integer
Dim i As Integer, j As Integer, k As Integer
Dim salon(35) As String
Dim ilerleme As Double
Application.Calculation = xlCalculationManual
If Worksheets("Siniflar").Cells(1, 1) = "" Then
MsgBox "Lütfen önce e-okul'dan Sınıf listelerini oluşturunuz."
ElseIf Worksheets("SinavaGirecekler").Cells(1, 2) = "" Then
MsgBox "Lütfen önce Sınav listelerini oluşturunuz."
ElseIf Worksheets("Sinavlar").Cells(4, 9).Value > 0 Then
MsgBox "Salonlarda boş yerler var"
ElseIf Worksheets("Sinavlar").Cells(4, 9).Value < 0 Then
MsgBox "Salonlara dağıtılmayan öğrenciler var"
End If
If Worksheets("Sinavlar").Cells(4, 9).Value = 0 Then 'salon yerleşimi
salon(1) = "S1"
salon(2) = "S2"
salon(3) = "S3"
salon(4) = "S4"
salon(5) = "S5"
salon(6) = "S6"
salon(7) = "S7"
salon(8) = "S8"
salon(9) = "S9"
salon(10) = "S10"
salon(11) = "S11"
salon(12) = "S12"
salon(13) = "S13"
salon(14) = "S14"
salon(15) = "S15"
salon(16) = "S16"
salon(17) = "S17"
salon(18) = "S18"
salon(19) = "S19"
salon(20) = "S20"
salon(21) = "S21"
salon(22) = "S22"
salon(23) = "S23"
salon(24) = "S24"
salon(25) = "S25"
salon(26) = "S26"
salon(27) = "S27"
salon(28) = "S28"
salon(29) = "S29"
salon(30) = "S30"
salon(31) = "S31"
salon(32) = "S32"
salon(33) = "S33"
salon(34) = "S34"
salon(35) = "S35"
salonSayisi = Worksheets("Sinavlar").Cells(7, 9)
ogrenciSayisi = Worksheets("Sinavlar").Cells(3, 9)
For i = 1 To salonSayisi 'toplam salon sayısı
sb(i, 1) = Worksheets("Sinavlar").Cells(i + 8, 8) 'salon mevcudu
sb(i, 0) = Worksheets("Sinavlar").Cells(i + 8, 9) 'salon aktif=1, pasif=0
Next i
ilerleme = 26 / ogrenciSayisi
'salon, salon sira dagitimi
For i = 1 To ogrenciSayisi 'Sınava girecek öğrenci sayısı
For j = 1 To salonSayisi 'Toplam Salon Sayısı
If sb(j, 0) <> 0 Then 'aktif-pasif salon ayir
For k = 1 To sb(j, 1)
Worksheets("SinavaGirecekler").Cells(i, 8) = j 'dagitilan salon
Worksheets("SinavaGirecekler").Cells(i, 7) = k 'salon sira no
Select Case Worksheets("SinavaGirecekler").Cells(i, 8)
Case 1
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(9, 7)
Case 2
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(10, 7)
Case 3
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(11, 7)
Case 4
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(12, 7)
Case 5
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(13, 7)
Case 6
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(14, 7)
Case 7
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(15, 7)
Case 8
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(16, 7)
Case 9
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(17, 7)
Case 10
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(18, 7)
Case 11
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(19, 7)
Case 12
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(20, 7)
Case 13
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(21, 7)
Case 14
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(22, 7)
Case 15
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(23, 7)
Case 16
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(24, 7)
Case 17
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(25, 7)
Case 18
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(26, 7)
Case 19
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(27, 7)
Case 20
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(28, 7)
Case 21
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(29, 7)
Case 22
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(30, 7)
Case 23
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(31, 7)
Case 24
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(32, 7)
Case 25
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(33, 7)
Case 26
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(34, 7)
Case 27
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(35, 7)
Case 28
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(36, 7)
Case 29
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(37, 7)
Case 30
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(38, 7)
Case 31
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(39, 7)
Case 32
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(40, 7)
Case 33
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(41, 7)
Case 34
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(42, 7)
Case 35
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(43, 7)
End Select
i = i + 1
durum 13, ilerleme * i
Next k
End If
Next j
Next i
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub SinifListesi()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim i As Integer, j As Integer, k As Integer
Dim satson(35) As Integer, satir As Integer
Dim salonSayisi As Integer
Dim ogrenciSayisi As Integer
Dim salon(35) As String
Dim ilerleme As Double
Application.Calculation = xlCalculationManual
If Worksheets("Siniflar").Cells(1, 1) = "" Then
MsgBox "Lütfen önce e-okul'dan Sınıf listelerini oluşturunuz."
ElseIf Worksheets("SinavaGirecekler").Cells(1, 2) = "" Then
MsgBox "Lütfen önce Sınav listelerini oluşturunuz."
Else
salon(1) = "S1"
salon(2) = "S2"
salon(3) = "S3"
salon(4) = "S4"
salon(5) = "S5"
salon(6) = "S6"
salon(7) = "S7"
salon(8) = "S8"
salon(9) = "S9"
salon(10) = "S10"
salon(11) = "S11"
salon(12) = "S12"
salon(13) = "S13"
salon(14) = "S14"
salon(15) = "S15"
salon(16) = "S16"
salon(17) = "S17"
salon(18) = "S18"
salon(19) = "S19"
salon(20) = "S20"
salon(21) = "S21"
salon(22) = "S22"
salon(23) = "S23"
salon(24) = "S24"
salon(25) = "S25"
salon(26) = "S26"
salon(27) = "S27"
salon(28) = "S28"
salon(29) = "S29"
salon(30) = "S30"
salon(31) = "S31"
salon(32) = "S32"
salon(33) = "S33"
salon(34) = "S34"
salon(35) = "S35"
salonSayisi = Worksheets("Sinavlar").Cells(7, 9).Value 'salon sayisi
ogrenciSayisi = Worksheets("Sinavlar").Cells(3, 9).Value 'sinava girecek öğrenci sayisi
ilerleme = 26 / Worksheets("Sinavlar").Cells(3, 9).Value
Worksheets("SinifListe").Tab.ColorIndex = 4
For i = 1 To ogrenciSayisi
Select Case Worksheets("SinavaGirecekler").Cells(i, 2).Value
Case Worksheets("Sinavlar").Cells(9, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + satson(1)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(1) = satson(1) + 1
Case Worksheets("Sinavlar").Cells(10, 1).Value '9B
Worksheets("SinifListe").Range("K:P").Rows(5 + satson(2)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(2) = satson(2) + 1
Case Worksheets("Sinavlar").Cells(11, 1).Value '9C
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 1 + satson(3)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(3) = satson(3) + 1
Case Worksheets("Sinavlar").Cells(12, 1).Value '9D
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 1 + satson(4)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(4) = satson(4) + 1
Case Worksheets("Sinavlar").Cells(13, 1).Value '9E
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 2 + satson(5)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(5) = satson(5) + 1
Case Worksheets("Sinavlar").Cells(14, 1).Value '9F
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 2 + satson(6)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(6) = satson(6) + 1
Case Worksheets("Sinavlar").Cells(15, 1).Value '9G
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 3 + satson(7)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(7) = satson(7) + 1
Case Worksheets("Sinavlar").Cells(16, 1).Value '10A
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 3 + satson(8)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(8) = satson(8) + 1
Case Worksheets("Sinavlar").Cells(17, 1).Value '10B
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 4 + satson(9)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(9) = satson(9) + 1
Case Worksheets("Sinavlar").Cells(18, 1).Value '10C
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 4 + satson(10)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(10) = satson(10) + 1
Case Worksheets("Sinavlar").Cells(19, 1).Value '10D
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 5 + satson(11)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(11) = satson(11) + 1
Case Worksheets("Sinavlar").Cells(20, 1).Value '10E
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 5 + satson(12)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(12) = satson(12) + 1
Case Worksheets("Sinavlar").Cells(21, 1).Value '10F
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 6 + satson(13)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(13) = satson(13) + 1
Case Worksheets("Sinavlar").Cells(22, 1).Value '10G
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 6 + satson(14)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(14) = satson(14) + 1
Case Worksheets("Sinavlar").Cells(23, 1).Value '11A
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 7 + satson(15)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(15) = satson(15) + 1
Case Worksheets("Sinavlar").Cells(24, 1).Value '11B
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 7 + satson(16)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(16) = satson(16) + 1
Case Worksheets("Sinavlar").Cells(25, 1).Value '11C
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 8 + satson(17)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(17) = satson(17) + 1
Case Worksheets("Sinavlar").Cells(26, 1).Value '11D
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 8 + satson(18)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(18) = satson(18) + 1
Case Worksheets("Sinavlar").Cells(27, 1).Value '11E
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 9 + satson(19)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(19) = satson(19) + 1
Case Worksheets("Sinavlar").Cells(28, 1).Value '11F
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 9 + satson(20)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(20) = satson(20) + 1
Case Worksheets("Sinavlar").Cells(29, 1).Value '12FNA
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 10 + satson(21)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(21) = satson(21) + 1
Case Worksheets("Sinavlar").Cells(30, 1).Value '12SYL
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 10 + satson(22)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(22) = satson(22) + 1
Case Worksheets("Sinavlar").Cells(31, 1).Value '12TMA
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 11 + satson(23)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(23) = satson(23) + 1
Case Worksheets("Sinavlar").Cells(32, 1).Value '12YDL
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 11 + satson(24)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(24) = satson(24) + 1
Case Worksheets("Sinavlar").Cells(33, 1).Value '12FNB
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 12 + satson(25)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(25) = satson(25) + 1
Case Worksheets("Sinavlar").Cells(34, 1).Value '12TMB
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 12 + satson(26)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(26) = satson(26) + 1
Case Worksheets("Sinavlar").Cells(35, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 13 + satson(27)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(27) = satson(27) + 1
Case Worksheets("Sinavlar").Cells(36, 1).Value
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 13 + satson(28)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(28) = satson(28) + 1
Case Worksheets("Sinavlar").Cells(37, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 14 + satson(29)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(29) = satson(29) + 1
Case Worksheets("Sinavlar").Cells(38, 1).Value
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 14 + satson(30)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(30) = satson(30) + 1
Case Worksheets("Sinavlar").Cells(39, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 15 + satson(31)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(31) = satson(31) + 1
Case Worksheets("Sinavlar").Cells(40, 1).Value
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 15 + satson(32)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(32) = satson(32) + 1
Case Worksheets("Sinavlar").Cells(41, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 16 + satson(33)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(33) = satson(33) + 1
Case Worksheets("Sinavlar").Cells(42, 1).Value
Worksheets("SinifListe").Range("K:P").Rows(5 + 40 * 16 + satson(34)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(34) = satson(34) + 1
Case Worksheets("Sinavlar").Cells(43, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 40 * 17 + satson(35)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i).Value
satson(35) = satson(35) + 1
End Select
satir = Worksheets("SinavaGirecekler").Cells(i, 7).Value + 5
Select Case Worksheets("SinavaGirecekler").Cells(i, 8).Value
Case 1
Worksheets(salon(1)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(1)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(1)).Tab.ColorIndex = 3
Case 2
Worksheets(salon(2)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(2)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(2)).Tab.ColorIndex = 3
Case 3
Worksheets(salon(3)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(3)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(3)).Tab.ColorIndex = 3
Case 4
Worksheets(salon(4)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(4)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(4)).Tab.ColorIndex = 3
Case 5
Worksheets(salon(5)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(5)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(5)).Tab.ColorIndex = 3
Case 6
Worksheets(salon(6)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(6)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(6)).Tab.ColorIndex = 3
Case 7
Worksheets(salon(7)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(7)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(7)).Tab.ColorIndex = 3
Case 8
Worksheets(salon(8)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(8)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(8)).Tab.ColorIndex = 3
Case 9
Worksheets(salon(9)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(9)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(9)).Tab.ColorIndex = 3
Case 10
Worksheets(salon(10)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(10)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(10)).Tab.ColorIndex = 3
Case 11
Worksheets(salon(11)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(11)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(11)).Tab.ColorIndex = 3
Case 12
Worksheets(salon(12)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(12)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(12)).Tab.ColorIndex = 3
Case 13
Worksheets(salon(13)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(13)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(13)).Tab.ColorIndex = 3
Case 14
Worksheets(salon(14)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(14)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(14)).Tab.ColorIndex = 3
Case 15
Worksheets(salon(15)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(15)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(15)).Tab.ColorIndex = 3
Case 16
Worksheets(salon(16)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(16)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(16)).Tab.ColorIndex = 3
Case 17
Worksheets(salon(17)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(17)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(17)).Tab.ColorIndex = 3
Case 18
Worksheets(salon(18)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(18)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(18)).Tab.ColorIndex = 3
Case 19
Worksheets(salon(19)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(19)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(19)).Tab.ColorIndex = 3
Case 20
Worksheets(salon(20)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(20)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(20)).Tab.ColorIndex = 3
Case 21
Worksheets(salon(21)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(21)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(21)).Tab.ColorIndex = 3
Case 22
Worksheets(salon(22)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(22)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(22)).Tab.ColorIndex = 3
Case 23
Worksheets(salon(23)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(23)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(23)).Tab.ColorIndex = 3
Case 24
Worksheets(salon(24)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(24)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(24)).Tab.ColorIndex = 3
Case 25
Worksheets(salon(25)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(25)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(25)).Tab.ColorIndex = 3
Case 26
Worksheets(salon(26)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(26)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(26)).Tab.ColorIndex = 3
Case 27
Worksheets(salon(27)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(27)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(27)).Tab.ColorIndex = 3
Case 28
Worksheets(salon(28)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(28)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(28)).Tab.ColorIndex = 3
Case 29
Worksheets(salon(29)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(29)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(29)).Tab.ColorIndex = 3
Case 30
Worksheets(salon(30)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(30)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(30)).Tab.ColorIndex = 3
Case 31
Worksheets(salon(31)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(31)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(31)).Tab.ColorIndex = 3
Case 32
Worksheets(salon(32)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(32)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(32)).Tab.ColorIndex = 3
Case 33
Worksheets(salon(33)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(33)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(33)).Tab.ColorIndex = 3
Case 34
Worksheets(salon(34)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(34)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(34)).Tab.ColorIndex = 3
Case 35
Worksheets(salon(35)).Range("A:B").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("F:G").Rows(i).Value
Worksheets(salon(35)).Range("C:F").Rows(satir).Value = Worksheets("SinavaGirecekler").Range("B:E").Rows(i).Value
Worksheets(salon(35)).Tab.ColorIndex = 3
End Select
durum 18, ilerleme * i
Next i
SinifSalonDersSayi
End If
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub SinifSalonDersSayi()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim i As Integer, j As Integer, k As Integer, dongu As Integer
Dim satir As Integer, satson As Integer, satBuyuk As Integer, sut As Integer
Dim siniflar(40) As String, salonlar(40) As String, ssayi(1, 40) As Integer
Dim ilerleme As Double, ilerlemeson As Double
Application.Calculation = xlCalculationManual
dongu = (Int(Worksheets("Sinavlar").Cells(7, 9).Value / 2) + 1)
ilerleme = 26 / (dongu + Worksheets("sinavlar").Cells(7, 9).Value)
For i = 1 To Worksheets("sinavlar").Cells(7, 9).Value
siniflar(i) = Worksheets("sinavlar").Cells(8 + i, 1).Value
salonlar(i) = Worksheets("sinavlar").Cells(8 + i, 7).Value
Next i
Worksheets("Sayilar").Range("A3:Q200").Value = ""
Worksheets("Sayilar").Range("A3:Q200").Interior.ColorIndex = 0
sut = 0
satson = 3
For i = 0 To dongu
For j = 0 To Worksheets("Sinavlar").Cells(7, 10).Value
If Worksheets("SinifListe").Cells(5 + (i * 39) + j, 6).Value <> "" Then
Select Case Worksheets("SinifListe").Cells(5 + (i * 39) + j, 6).Value
Case salonlar(1)
ssayi(0, 1) = ssayi(0, 1) + 1
Case salonlar(2)
ssayi(0, 2) = ssayi(0, 2) + 1
Case salonlar(3)
ssayi(0, 3) = ssayi(0, 3) + 1
Case salonlar(4)
ssayi(0, 4) = ssayi(0, 4) + 1
Case salonlar(5)
ssayi(0, 5) = ssayi(0, 5) + 1
Case salonlar(6)
ssayi(0, 6) = ssayi(0, 6) + 1
Case salonlar(7)
ssayi(0, 7) = ssayi(0, 7) + 1
Case salonlar(8)
ssayi(0, 8) = ssayi(0, 8) + 1
Case salonlar(9)
ssayi(0, 9) = ssayi(0, 9) + 1
Case salonlar(10)
ssayi(0, 10) = ssayi(0, 10) + 1
Case salonlar(11)
ssayi(0, 11) = ssayi(0, 11) + 1
Case salonlar(12)
ssayi(0, 12) = ssayi(0, 12) + 1
Case salonlar(13)
ssayi(0, 13) = ssayi(0, 13) + 1
Case salonlar(14)
ssayi(0, 14) = ssayi(0, 14) + 1
Case salonlar(15)
ssayi(0, 15) = ssayi(0, 15) + 1
Case salonlar(16)
ssayi(0, 16) = ssayi(0, 16) + 1
Case salonlar(17)
ssayi(0, 17) = ssayi(0, 17) + 1
Case salonlar(18)
ssayi(0, 18) = ssayi(0, 18) + 1
Case salonlar(19)
ssayi(0, 19) = ssayi(0, 19) + 1
Case salonlar(20)
ssayi(0, 20) = ssayi(0, 20) + 1
Case salonlar(21)
ssayi(0, 21) = ssayi(0, 21) + 1
Case salonlar(22)
ssayi(0, 22) = ssayi(0, 22) + 1
Case salonlar(23)
ssayi(0, 23) = ssayi(0, 23) + 1
Case salonlar(24)
ssayi(0, 24) = ssayi(0, 24) + 1
Case salonlar(25)
ssayi(0, 25) = ssayi(0, 25) + 1
Case salonlar(26)
ssayi(0, 26) = ssayi(0, 26) + 1
Case salonlar(27)
ssayi(0, 27) = ssayi(0, 27) + 1
Case salonlar(28)
ssayi(0, 28) = ssayi(0, 28) + 1
Case salonlar(29)
ssayi(0, 29) = ssayi(0, 29) + 1
Case salonlar(30)
ssayi(0, 30) = ssayi(0, 30) + 1
Case salonlar(31)
ssayi(0, 31) = ssayi(0, 31) + 1
Case salonlar(32)
ssayi(0, 32) = ssayi(0, 32) + 1
Case salonlar(33)
ssayi(0, 33) = ssayi(0, 33) + 1
Case salonlar(34)
ssayi(0, 34) = ssayi(0, 34) + 1
Case salonlar(35)
ssayi(0, 35) = ssayi(0, 35) + 1
End Select
End If
'------------------
If Worksheets("SinifListe").Cells(5 + (i * 39) + j, 15).Value <> "" Then
Select Case Worksheets("SinifListe").Cells(5 + (i * 39) + j, 15).Value
Case salonlar(1)
ssayi(1, 1) = ssayi(1, 1) + 1
Case salonlar(2)
ssayi(1, 2) = ssayi(1, 2) + 1
Case salonlar(3)
ssayi(1, 3) = ssayi(1, 3) + 1
Case salonlar(4)
ssayi(1, 4) = ssayi(1, 4) + 1
Case salonlar(5)
ssayi(1, 5) = ssayi(1, 5) + 1
Case salonlar(6)
ssayi(1, 6) = ssayi(1, 6) + 1
Case salonlar(7)
ssayi(1, 7) = ssayi(1, 7) + 1
Case salonlar(8)
ssayi(1, 8) = ssayi(1, 8) + 1
Case salonlar(9)
ssayi(1, 9) = ssayi(1, 9) + 1
Case salonlar(10)
ssayi(1, 10) = ssayi(1, 10) + 1
Case salonlar(11)
ssayi(1, 11) = ssayi(1, 11) + 1
Case salonlar(12)
ssayi(1, 12) = ssayi(1, 12) + 1
Case salonlar(13)
ssayi(1, 13) = ssayi(1, 13) + 1
Case salonlar(14)
ssayi(1, 14) = ssayi(1, 14) + 1
Case salonlar(15)
ssayi(1, 15) = ssayi(1, 15) + 1
Case salonlar(16)
ssayi(1, 16) = ssayi(1, 16) + 1
Case salonlar(17)
ssayi(1, 17) = ssayi(1, 17) + 1
Case salonlar(18)
ssayi(1, 18) = ssayi(1, 18) + 1
Case salonlar(19)
ssayi(1, 19) = ssayi(1, 19) + 1
Case salonlar(20)
ssayi(1, 20) = ssayi(1, 20) + 1
Case salonlar(21)
ssayi(1, 21) = ssayi(1, 21) + 1
Case salonlar(22)
ssayi(1, 22) = ssayi(1, 22) + 1
Case salonlar(23)
ssayi(1, 23) = ssayi(1, 23) + 1
Case salonlar(24)
ssayi(1, 24) = ssayi(1, 24) + 1
Case salonlar(25)
ssayi(1, 25) = ssayi(1, 25) + 1
Case salonlar(26)
ssayi(1, 26) = ssayi(1, 26) + 1
Case salonlar(27)
ssayi(1, 27) = ssayi(1, 27) + 1
Case salonlar(28)
ssayi(1, 28) = ssayi(1, 28) + 1
Case salonlar(29)
ssayi(1, 29) = ssayi(1, 29) + 1
Case salonlar(30)
ssayi(1, 30) = ssayi(1, 30) + 1
Case salonlar(31)
ssayi(1, 31) = ssayi(1, 31) + 1
Case salonlar(32)
ssayi(1, 32) = ssayi(1, 32) + 1
Case salonlar(33)
ssayi(1, 33) = ssayi(1, 33) + 1
Case salonlar(34)
ssayi(1, 34) = ssayi(1, 34) + 1
Case salonlar(35)
ssayi(1, 35) = ssayi(1, 35) + 1
End Select
End If
Next j
sut = sut + 2
satir = satson
For j = 1 To Worksheets("Sinavlar").Cells(7, 10).Value
If j = 1 Then
Worksheets("Sayilar").Cells(satir, sut).Value = siniflar(i * 1 + i + 1)
Worksheets("Sayilar").Cells(satir, sut).Interior.Color = RGB(240, 240, 240)
Worksheets("Sayilar").Cells(satir, sut + 1).Interior.Color = RGB(240, 240, 240)
satir = satir + 1
End If
If ssayi(0, j) <> 0 Then
Worksheets("Sayilar").Cells(satir, sut).Value = salonlar(j) & " -"
Worksheets("Sayilar").Cells(satir, sut + 1).Value = ssayi(0, j)
Worksheets("Sayilar").Cells(satir, sut).Interior.Color = RGB(240, 240, 240)
Worksheets("Sayilar").Cells(satir, sut + 1).Interior.Color = RGB(240, 240, 240)
satir = satir + 1
End If
Next j
If satir >= satBuyuk Then
satBuyuk = satir
End If
sut = sut + 2
satir = satson
For j = 1 To Worksheets("Sinavlar").Cells(7, 10).Value
If j = 1 Then
Worksheets("Sayilar").Cells(satir, sut).Value = siniflar(i * 1 + i + 2)
satir = satir + 1
End If
If ssayi(1, j) <> 0 Then
Worksheets("Sayilar").Cells(satir, sut).Value = salonlar(j) & " -"
Worksheets("Sayilar").Cells(satir, sut + 1).Value = ssayi(1, j)
satir = satir + 1
End If
Next j
For j = 1 To 40
ssayi(0, j) = 0
ssayi(1, j) = 0
Next j
If satir >= satBuyuk Then
satBuyuk = satir
End If
If i = 3 Then
satson = satBuyuk + 1
sut = 0
ElseIf i = 7 Then
satson = satBuyuk + 1
sut = 0
ElseIf i = 11 Then
satson = satBuyuk + 1
sut = 0
ElseIf i = 15 Then
satson = satBuyuk + 1
sut = 0
ElseIf i = 19 Then
satson = satBuyuk + 1
sut = 0
End If
durum 18, ilerleme * i
Next i
ilerlemeson = ilerleme * i
'Salonlarin ders sayilari
salonlar(1) = "S1"
salonlar(2) = "S2"
salonlar(3) = "S3"
salonlar(4) = "S4"
salonlar(5) = "S5"
salonlar(6) = "S6"
salonlar(7) = "S7"
salonlar(8) = "S8"
salonlar(9) = "S9"
salonlar(10) = "S10"
salonlar(11) = "S11"
salonlar(12) = "S12"
salonlar(13) = "S13"
salonlar(14) = "S14"
salonlar(15) = "S15"
salonlar(16) = "S16"
salonlar(17) = "S17"
salonlar(18) = "S18"
salonlar(19) = "S19"
salonlar(20) = "S20"
salonlar(21) = "S21"
salonlar(22) = "S22"
salonlar(23) = "S23"
salonlar(24) = "S24"
salonlar(25) = "S25"
salonlar(26) = "S26"
salonlar(27) = "S27"
salonlar(28) = "S28"
salonlar(29) = "S29"
salonlar(30) = "S30"
salonlar(31) = "S31"
salonlar(32) = "S32"
salonlar(33) = "S33"
salonlar(34) = "S34"
salonlar(35) = "S35"
For i = 1 To Worksheets("sinavlar").Cells(7, 9).Value
siniflar(i) = Worksheets("sinavlar").Cells(8 + i, 4).Value 'siniflar dizisi dersler için kullanıldı
ssayi(0, i) = 0
Next i
For i = 1 To Worksheets("sinavlar").Cells(7, 9).Value
satson = 43
For j = 1 To Worksheets("sinavlar").Cells(7, 10).Value
Select Case Worksheets(salonlar(i)).Cells(j + 5, 6).Value
Case siniflar(1)
ssayi(0, 1) = ssayi(0, 1) + 1
Case siniflar(2)
ssayi(0, 2) = ssayi(0, 2) + 1
Case siniflar(3)
ssayi(0, 3) = ssayi(0, 3) + 1
Case siniflar(4)
ssayi(0, 4) = ssayi(0, 4) + 1
Case siniflar(5)
ssayi(0, 5) = ssayi(0, 5) + 1
Case siniflar(6)
ssayi(0, 6) = ssayi(0, 6) + 1
Case siniflar(7)
ssayi(0, 7) = ssayi(0, 7) + 1
Case siniflar(8)
ssayi(0, 8) = ssayi(0, 8) + 1
Case siniflar(9)
ssayi(0, 9) = ssayi(0, 9) + 1
Case siniflar(10)
ssayi(0, 10) = ssayi(0, 10) + 1
Case siniflar(11)
ssayi(0, 11) = ssayi(0, 11) + 1
Case siniflar(12)
ssayi(0, 12) = ssayi(0, 12) + 1
Case siniflar(13)
ssayi(0, 13) = ssayi(0, 13) + 1
Case siniflar(14)
ssayi(0, 14) = ssayi(0, 14) + 1
Case siniflar(15)
ssayi(0, 15) = ssayi(0, 15) + 1
Case siniflar(16)
ssayi(0, 16) = ssayi(0, 16) + 1
Case siniflar(17)
ssayi(0, 17) = ssayi(0, 17) + 1
Case siniflar(18)
ssayi(0, 18) = ssayi(0, 18) + 1
Case siniflar(19)
ssayi(0, 19) = ssayi(0, 19) + 1
Case siniflar(20)
ssayi(0, 20) = ssayi(0, 20) + 1
Case siniflar(21)
ssayi(0, 21) = ssayi(0, 21) + 1
Case siniflar(22)
ssayi(0, 22) = ssayi(0, 22) + 1
Case siniflar(23)
ssayi(0, 23) = ssayi(0, 23) + 1
Case siniflar(24)
ssayi(0, 24) = ssayi(0, 24) + 1
Case siniflar(25)
ssayi(0, 25) = ssayi(0, 25) + 1
Case siniflar(26)
ssayi(0, 26) = ssayi(0, 26) + 1
Case siniflar(27)
ssayi(0, 27) = ssayi(0, 27) + 1
Case siniflar(28)
ssayi(0, 28) = ssayi(0, 28) + 1
Case siniflar(29)
ssayi(0, 29) = ssayi(0, 29) + 1
Case siniflar(30)
ssayi(0, 30) = ssayi(0, 30) + 1
Case siniflar(31)
ssayi(0, 31) = ssayi(0, 31) + 1
Case siniflar(32)
ssayi(0, 32) = ssayi(0, 32) + 1
Case siniflar(33)
ssayi(0, 33) = ssayi(0, 33) + 1
Case siniflar(30)
ssayi(0, 34) = ssayi(0, 34) + 1
Case siniflar(35)
ssayi(0, 35) = ssayi(0, 35) + 1
End Select
Next j
For j = 1 To Worksheets("sinavlar").Cells(7, 10).Value
If siniflar(j) <> "" And ssayi(0, j) <> 0 Then
Worksheets(salonlar(i)).Cells(satson, 1).Value = siniflar(j)
Worksheets(salonlar(i)).Cells(satson, 3).Value = ssayi(0, j)
satson = satson + 1
ssayi(0, j) = 0
End If
Next j
durum 18, i * ilerleme + ilerlemeson
Next i
Worksheets("Sayilar").Tab.ColorIndex = 4
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub ListeleriSil()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim salon(35) As String
Dim ilerleme As Double
Dim i As Integer, j As Integer, k As Integer
salon(1) = "S1"
salon(2) = "S2"
salon(3) = "S3"
salon(4) = "S4"
salon(5) = "S5"
salon(6) = "S6"
salon(7) = "S7"
salon(8) = "S8"
salon(9) = "S9"
salon(10) = "S10"
salon(11) = "S11"
salon(12) = "S12"
salon(13) = "S13"
salon(14) = "S14"
salon(15) = "S15"
salon(16) = "S16"
salon(17) = "S17"
salon(18) = "S18"
salon(19) = "S19"
salon(20) = "S20"
salon(21) = "S21"
salon(22) = "S22"
salon(23) = "S23"
salon(24) = "S24"
salon(25) = "S25"
salon(26) = "S26"
salon(27) = "S27"
salon(28) = "S28"
salon(29) = "S29"
salon(30) = "S30"
salon(31) = "S31"
salon(32) = "S32"
salon(33) = "S33"
salon(34) = "S34"
salon(35) = "S35"
ilerleme = 26 / Worksheets("Sinavlar").Cells(7, 9) 'Toplam Salon Sayısı
Worksheets("SinifListe").Range("B5:G40").Value = ""
Worksheets("SinifListe").Range("K5:P40").Value = ""
Worksheets("SinifListe").Range("B45:G80").Value = ""
Worksheets("SinifListe").Range("K45:P80").Value = ""
Worksheets("SinifListe").Range("B85:G120").Value = ""
Worksheets("SinifListe").Range("K85:P120").Value = ""
Worksheets("SinifListe").Range("B125:G160").Value = ""
Worksheets("SinifListe").Range("K125:P160").Value = ""
Worksheets("SinifListe").Range("B165:G200").Value = ""
Worksheets("SinifListe").Range("K165:P200").Value = ""
Worksheets("SinifListe").Range("B205:G240").Value = ""
Worksheets("SinifListe").Range("K205:P240").Value = ""
Worksheets("SinifListe").Range("B245:G280").Value = ""
Worksheets("SinifListe").Range("K245:P280").Value = ""
Worksheets("SinifListe").Range("B285:G320").Value = ""
Worksheets("SinifListe").Range("K285:P320").Value = ""
Worksheets("SinifListe").Range("B325:G360").Value = ""
Worksheets("SinifListe").Range("K325:P360").Value = ""
Worksheets("SinifListe").Range("B365:G400").Value = ""
Worksheets("SinifListe").Range("K365:P400").Value = ""
Worksheets("SinifListe").Range("B405:G440").Value = ""
Worksheets("SinifListe").Range("K405:P440").Value = ""
Worksheets("SinifListe").Range("B445:G480").Value = ""
Worksheets("SinifListe").Range("K445:P480").Value = ""
Worksheets("SinifListe").Range("B485:G520").Value = ""
Worksheets("SinifListe").Range("K485:P520").Value = ""
Worksheets("SinifListe").Range("B525:G560").Value = ""
Worksheets("SinifListe").Range("K525:P560").Value = ""
Worksheets("SinifListe").Range("B565:G600").Value = ""
Worksheets("SinifListe").Range("K565:P600").Value = ""
Worksheets("SinifListe").Range("B605:G640").Value = ""
Worksheets("SinifListe").Range("K605:P640").Value = ""
Worksheets("SinifListe").Range("B645:G680").Value = ""
Worksheets("SinifListe").Range("K645:P680").Value = ""
Worksheets("SinifListe").Range("B685:G720").Value = ""
Worksheets("SinifListe").Range("K685:P720").Value = ""
Worksheets("SinifListe").Tab.ColorIndex = 2
Worksheets("Sayilar").Range("A3:Q200").Value = ""
Worksheets("Sayilar").Range("A3:Q200").Interior.ColorIndex = 0
Worksheets("Sayilar").Tab.ColorIndex = 2
'--------------------------------------------------
For j = 1 To Worksheets("Sinavlar").Cells(7, 9) 'Toplam Salon Sayısı
Worksheets(salon(j)).Range("A6:F41").Value = "" 'liste alanı
Worksheets(salon(j)).Range("A42:D55").Value = "" 'ders sayisi alani
Worksheets(salon(j)).Tab.ColorIndex = 2
durum 25, ilerleme * j
Next j
End Sub
Sub durum(sat As Integer, ileri As Double)
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
Dim bar(27) As String
bar(0) = ""
bar(1) = "||"
bar(2) = "||||"
bar(3) = "||||||"
bar(4) = "||||||||"
bar(5) = "||||||||||"
bar(6) = "||||||||||||"
bar(7) = "||||||||||||||"
bar(8) = "||||||||||||||||"
bar(9) = "||||||||||||||||||"
bar(10) = "||||||||||||||||||||"
bar(11) = "||||||||||||||||||||||"
bar(12) = "||||||||||||||||||||||||"
bar(13) = "||||||||||||||||||||||||||"
bar(14) = "||||||||||||||||||||||||||||"
bar(15) = "||||||||||||||||||||||||||||||"
bar(16) = "||||||||||||||||||||||||||||||||"
bar(17) = "||||||||||||||||||||||||||||||||||"
bar(18) = "||||||||||||||||||||||||||||||||||||"
bar(19) = "||||||||||||||||||||||||||||||||||||||"
bar(20) = "||||||||||||||||||||||||||||||||||||||||"
bar(21) = "||||||||||||||||||||||||||||||||||||||||||"
bar(22) = "||||||||||||||||||||||||||||||||||||||||||||"
bar(23) = "||||||||||||||||||||||||||||||||||||||||||||||"
bar(24) = "||||||||||||||||||||||||||||||||||||||||||||||||"
bar(25) = "||||||||||||||||||||||||||||||||||||||||||||||||||"
bar(26) = "||||||||||||||||||||||||||||||||||||||||||||||||||||"
bar(27) = "||||||||||||||||||||||||||||||||||||||||||||||||||||"
Worksheets("Sinavlar").Cells(sat, 11).Value = bar(Int(ileri))
End Sub
Private Sub Sifirla()
'**************************
'S.Sahin Bilişim Tek. Öğrt.
'**************************
ListeleriSil
Worksheets("Sinavlar").Cells(8, 11).Value = ""
Worksheets("Sinavlar").Cells(13, 11).Value = ""
Worksheets("Sinavlar").Cells(18, 11).Value = ""
Worksheets("Sinavlar").Cells(25, 11).Value = ""
Worksheets("Sinavlar").Cells(40, 11).Value = ""
'Worksheets("e-okul").Range("A:Z").Value = ""
Worksheets("Siniflar").Range("A:E").Value = ""
Worksheets("SinavaGirecekler").Range("A:AA").Value = ""
End Sub
Son düzenleme:
