Kelebek sistemi için Excel çalışması

[bafralifatih55]

Merhaba arkadaşlar.
Okulumuzda 16 sınıf var. Bu sınıflardaki öğrenciler sınav zamanında rastgele sınıflarda sınava girmek zorundalar. Bunun için ekteki şekilde Listeler sayfasındaki öğrencileri Kelebek Dağılım sayfasına her öğrenci bir kere olmak üzere rastgele nasıl yerleştirebilirim?
Teşekkürler.

Kelebek

 

[ÖmerFaruk]

400 öğrenci var. 5 sınıf var.
her öğrenci bir kere olmak üzere rastgele nasıl yerleştirebilirim?
Bu şartı nasıl yerine getireceğiz?
Sorunuzu sanırım eksik soruyorsunuz.

 

[bafralifatih55]

Merhaba
evet haklısınız hocam. Dosyayı güncelledim. 100 öğrenci ile yapabilir miyiz?

 

[ÖmerFaruk]

Anlaşamadığımızı düşünüyorum.

 

[bafralifatih55]

Anlaşamadığımız yer neresi hocam:
100 kişiyi 20'şerli olarak sınıflara dağıtmamız gerekiyor.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu bir Module kopyalayıp çalıştırın.

Sub Grupla()
    Dim Bak As Long
    Dim Sinif As Integer
    Dim SaySinif As Integer
    Dim Kolon As Integer
    With Worksheets("Kelebek Dağılımı")
        .Range("A3:X" & Rows.Count).ClearContents
        For Bak = 2 To Worksheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
Yinele:
            Sinif = Int(1 + Rnd * (5))
            Kolon = (5 * (Sinif - 1)) + 1
            SaySinif = .Cells(Rows.Count, Kolon).End(xlUp).Row
            If SaySinif < 22 Then
                .Cells(SaySinif + 1, Kolon) = SaySinif - 1
                .Cells(SaySinif + 1, Kolon + 1) = Worksheets("Sayfa1").Cells(Bak, "B")
                .Cells(SaySinif + 1, Kolon + 2) = Worksheets("Sayfa1").Cells(Bak, "C")
                .Cells(SaySinif + 1, Kolon + 3) = Worksheets("Sayfa1").Cells(Bak, "D")
                
            Else
                GoTo Yinele
            End If
        Next
     End With
End Sub

 

[bafralifatih55]

Merhaba
Hocam formül ile yapabilir miyiz?

 

[Muzaffer Ali]

Konu eski olduğu için hatırlayamadım. Yapılır-yapılamaz bilemiyorum.
Ancak şöyle bir şey var ki formül ile rastgele işlemleri yapıldığında herhangi bir hücrede değişiklik yapılırsa tüm rastgele formülleri yeniden çalışacağından ve hep farklı bir sonuç çıkacağından kullanışlı bir sonuç elde edilemiyor.
Sizin için en tutarlısı kod ile olacağını düşünüyorum.