Sınav kelebek sistemi

rrrccc · 18 Kasım 2016

Arkadaşlar ekli dosyada sınıf listelerini 36 kişilik yapmaya çalışıyorum bir türlü olmadı en fazla 35 kişi dağıtıyor 36. kişiyi 10- d sınıfında dağıtmıyor yardımcı olabilir misiniz? (sınıf listelerinin 36 şar kişi olarak ayarlanması lazım makroda nereyi değiştirmem gerekli? Teşekkürler.

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(36) As Integer, satir As Integer
Dim salonSayisi As Integer
Dim ogrenciSayisi As Integer
Dim salon(36) 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

").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

").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

").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

").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

").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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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

").Rows(5 + 39 * 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 + 39 * 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 * 40) + j, 15).Value <> "" Then
Select Case Worksheets("SinifListe").Cells(5 + (i * 40) + 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 = 41
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

40").Value = ""

Worksheets("SinifListe").Range("B44:G79").Value = ""
Worksheets("SinifListe").Range("K44

79").Value = ""

Worksheets("SinifListe").Range("B83:G118").Value = ""
Worksheets("SinifListe").Range("K83

118").Value = ""

Worksheets("SinifListe").Range("B122:G157").Value = ""
Worksheets("SinifListe").Range("K122

157").Value = ""

Worksheets("SinifListe").Range("B161:G196").Value = ""
Worksheets("SinifListe").Range("K161

195").Value = ""

Worksheets("SinifListe").Range("B200:G235").Value = ""
Worksheets("SinifListe").Range("K200

235").Value = ""

Worksheets("SinifListe").Range("B239:G273").Value = ""
Worksheets("SinifListe").Range("K239

273").Value = ""

Worksheets("SinifListe").Range("B278:G312").Value = ""
Worksheets("SinifListe").Range("K278

312").Value = ""

Worksheets("SinifListe").Range("B317:G351").Value = ""
Worksheets("SinifListe").Range("K317

351").Value = ""

Worksheets("SinifListe").Range("B356:G390").Value = ""
Worksheets("SinifListe").Range("K356

390").Value = ""

Worksheets("SinifListe").Range("B395:G429").Value = ""
Worksheets("SinifListe").Range("K395

429").Value = ""

Worksheets("SinifListe").Range("B434:G468").Value = ""
Worksheets("SinifListe").Range("K434

468").Value = ""

Worksheets("SinifListe").Range("B473:G507").Value = ""
Worksheets("SinifListe").Range("K473

507").Value = ""

Worksheets("SinifListe").Range("B512:G546").Value = ""
Worksheets("SinifListe").Range("K512

546").Value = ""

Worksheets("SinifListe").Range("B551:G585").Value = ""
Worksheets("SinifListe").Range("K551

585").Value = ""

Worksheets("SinifListe").Range("B590:G624").Value = ""
Worksheets("SinifListe").Range("K590

624").Value = ""

Worksheets("SinifListe").Range("B629:G663").Value = ""
Worksheets("SinifListe").Range("K629

663").Value = ""

Worksheets("SinifListe").Range("B668:G702").Value = ""
Worksheets("SinifListe").Range("K668

702").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:F40").Value = "" 'liste alanı
Worksheets(salon(j)).Range("A41

55").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

turist · 18 Kasım 2016

Kodların başlangıcında tanımlı değişkeni

Kod:

Dim sinif(36) As String

şeklinde değiştirdikten sonra, aşağıdaki yapıyı da 36 kişilik sınıfa göre düzenleyerek deneyin.

mrwarrior · 18 Kasım 2016

Örnek dosyayı da paylaşabilir misiniz?

ZuCChiNi · 19 Kasım 2016

Şunu bir deneyin

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(36) 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
sinif(36) = Worksheets("Sinavlar").Cells(44, 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
Case 36
Application.Worksheets("Siniflar").Cells(sonSat, 5).Formula = Application.Worksheets("Sinavlar").Cells(44, 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(s onSat).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(d izi(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(36, 2) As Integer, salonSayisi As Integer, ogrenciSayisi As Integer
Dim i As Integer, j As Integer, k As Integer
Dim salon(36) 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"
salon(36) = "S36"

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)
Case 36
Worksheets("SinavaGirecekler").Cells(i, 6) = Worksheets("Sinavlar").Cells(44, 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(36) As Integer, satir As Integer
Dim salonSayisi As Integer
Dim ogrenciSayisi As Integer
Dim salon(36) 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"
salon(36) = "S36"

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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 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 + 39 * 17 + satson(35)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i ).Value
satson(35) = satson(35) + 1

Case Worksheets("Sinavlar").Cells(44, 1).Value
Worksheets("SinifListe").Range("B:G").Rows(5 + 39 * 17 + satson(36)).Value = Worksheets("SinavaGirecekler").Range("B:G").Rows(i ).Value
satson(36) = satson(36) + 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).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(1)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(1)).Tab.ColorIndex = 3
Case 2
Worksheets(salon(2)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(2)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(2)).Tab.ColorIndex = 3
Case 3
Worksheets(salon(3)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(3)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(3)).Tab.ColorIndex = 3
Case 4
Worksheets(salon(4)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(4)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(4)).Tab.ColorIndex = 3
Case 5
Worksheets(salon(5)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(5)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(5)).Tab.ColorIndex = 3
Case 6
Worksheets(salon(6)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(6)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(6)).Tab.ColorIndex = 3
Case 7
Worksheets(salon(7)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(7)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(7)).Tab.ColorIndex = 3
Case 8
Worksheets(salon(8)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(8)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(8)).Tab.ColorIndex = 3
Case 9
Worksheets(salon(9)).Range("A:B").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(9)).Range("C:F").Rows(satir).Valu e = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(9)).Tab.ColorIndex = 3
Case 10
Worksheets(salon(10)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(10)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(10)).Tab.ColorIndex = 3
Case 11
Worksheets(salon(11)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(11)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(11)).Tab.ColorIndex = 3
Case 12
Worksheets(salon(12)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(12)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(12)).Tab.ColorIndex = 3
Case 13
Worksheets(salon(13)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(13)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(13)).Tab.ColorIndex = 3
Case 14
Worksheets(salon(14)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(14)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(14)).Tab.ColorIndex = 3
Case 15
Worksheets(salon(15)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(15)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(15)).Tab.ColorIndex = 3
Case 16
Worksheets(salon(16)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(16)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(16)).Tab.ColorIndex = 3
Case 17
Worksheets(salon(17)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(17)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(17)).Tab.ColorIndex = 3
Case 18
Worksheets(salon(18)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(18)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(18)).Tab.ColorIndex = 3
Case 19
Worksheets(salon(19)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(19)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(19)).Tab.ColorIndex = 3
Case 20
Worksheets(salon(20)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(20)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(20)).Tab.ColorIndex = 3
Case 21
Worksheets(salon(21)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(21)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(21)).Tab.ColorIndex = 3
Case 22
Worksheets(salon(22)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(22)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(22)).Tab.ColorIndex = 3
Case 23
Worksheets(salon(23)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(23)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(23)).Tab.ColorIndex = 3
Case 24
Worksheets(salon(24)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(24)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(24)).Tab.ColorIndex = 3
Case 25
Worksheets(salon(25)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(25)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(25)).Tab.ColorIndex = 3
Case 26
Worksheets(salon(26)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(26)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(26)).Tab.ColorIndex = 3
Case 27
Worksheets(salon(27)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(27)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(27)).Tab.ColorIndex = 3
Case 28
Worksheets(salon(28)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(28)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(28)).Tab.ColorIndex = 3
Case 29
Worksheets(salon(29)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(29)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(29)).Tab.ColorIndex = 3
Case 30
Worksheets(salon(30)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(30)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(30)).Tab.ColorIndex = 3
Case 31
Worksheets(salon(31)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(31)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(31)).Tab.ColorIndex = 3
Case 32
Worksheets(salon(32)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(32)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(32)).Tab.ColorIndex = 3
Case 33
Worksheets(salon(33)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(33)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(33)).Tab.ColorIndex = 3
Case 34
Worksheets(salon(34)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(34)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(34)).Tab.ColorIndex = 3
Case 35
Worksheets(salon(35)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(35)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(35)).Tab.ColorIndex = 3

Case 36
Worksheets(salon(36)).Range("A:B").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("F:G").Rows(i ).Value
Worksheets(salon(36)).Range("C:F").Rows(satir).Val ue = Worksheets("SinavaGirecekler").Range("B:E").Rows(i ).Value
Worksheets(salon(36)).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.Co lorIndex = 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
Case salonlar(36)
ssayi(0, 36) = ssayi(0, 36) + 1
End Select
End If
'------------------
If Worksheets("SinifListe").Cells(5 + (i * 40) + j, 15).Value <> "" Then
Select Case Worksheets("SinifListe").Cells(5 + (i * 40) + 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
Case salonlar(36)
ssayi(1, 36) = ssayi(1, 36) + 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"
salonlar(36) = "S36"

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 = 41
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
Case siniflar(36)
ssayi(0, 36) = ssayi(0, 36) + 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(36) 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"
salon(36) = "S36"

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("B44:G79").Value = ""
Worksheets("SinifListe").Range("K44:P79").Value = ""

Worksheets("SinifListe").Range("B83:G118").Value = ""
Worksheets("SinifListe").Range("K83:P118").Value = ""

Worksheets("SinifListe").Range("B122:G157").Value = ""
Worksheets("SinifListe").Range("K122:P157").Value = ""

Worksheets("SinifListe").Range("B161:G196").Value = ""
Worksheets("SinifListe").Range("K161:P195").Value = ""

Worksheets("SinifListe").Range("B200:G235").Value = ""
Worksheets("SinifListe").Range("K200:P235").Value = ""

Worksheets("SinifListe").Range("B239:G273").Value = ""
Worksheets("SinifListe").Range("K239:P273").Value = ""

Worksheets("SinifListe").Range("B278:G312").Value = ""
Worksheets("SinifListe").Range("K278:P312").Value = ""

Worksheets("SinifListe").Range("B317:G351").Value = ""
Worksheets("SinifListe").Range("K317:P351").Value = ""

Worksheets("SinifListe").Range("B356:G390").Value = ""
Worksheets("SinifListe").Range("K356:P390").Value = ""

Worksheets("SinifListe").Range("B395:G429").Value = ""
Worksheets("SinifListe").Range("K395:P429").Value = ""

Worksheets("SinifListe").Range("B434:G468").Value = ""
Worksheets("SinifListe").Range("K434:P468").Value = ""

Worksheets("SinifListe").Range("B473:G507").Value = ""
Worksheets("SinifListe").Range("K473:P507").Value = ""

Worksheets("SinifListe").Range("B512:G546").Value = ""
Worksheets("SinifListe").Range("K512:P546").Value = ""

Worksheets("SinifListe").Range("B551:G585").Value = ""
Worksheets("SinifListe").Range("K551:P585").Value = ""

Worksheets("SinifListe").Range("B590:G624").Value = ""
Worksheets("SinifListe").Range("K590:P624").Value = ""

Worksheets("SinifListe").Range("B629:G663").Value = ""
Worksheets("SinifListe").Range("K629:P663").Value = ""

Worksheets("SinifListe").Range("B668:G702").Value = ""
Worksheets("SinifListe").Range("K668:P702").Value = ""


Worksheets("SinifListe").Tab.ColorIndex = 2

Worksheets("Sayilar").Range("A3:Q200").Value = ""
Worksheets("Sayilar").Range("A3:Q200").Interior.Co lorIndex = 0
Worksheets("Sayilar").Tab.ColorIndex = 2

'--------------------------------------------------
For j = 1 To Worksheets("Sinavlar").Cells(7, 9) 'Toplam Salon Sayısı

Worksheets(salon(j)).Range("A6:F40").Value = "" 'liste alanı
Worksheets(salon(j)).Range("A4155").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

Sınav kelebek sistemi

rrrccc

turist

Destek Ekibi

mrwarrior

ZuCChiNi