Öğretmen Dağılım Programı

[yetuna]

Arkadaşlar sınavlarda görev alacak öğretmenlerin rasgele dağılımını yapacak bir kod arıyorum. Lütfen yardım edebilirmisiniz. Çok acil!!

Ekteki Dosyada "Yerleştir" butonuna basıldığında sağ tarafta bulunan öğretmen listesinden rasgele öğretmenler seçilerek sol taraftaki okullara dağılımı yapılacak. Fakat bu dağılım öğretmenler kendi okulunda görev yapmayacak şekilde olacak.

 

[korhan86119]

Merhaba dosyanız ektedir.

 

[Muhammet Okumuş]

Merhaba,
Sub Listele()
Application.ScreenUpdating = False
Range("I3") = "=A2"
Range("I4:I17") = "=IF(A3="""",I3,A3)"
Range("J3:J17") = "=IF(G3=I3,1,0)"
Range("H3:H22") = "=RAND()"
10
Range("E3:H22").Sort Range("H3")
If WorksheetFunction.Sum(Range("J3:J22")) > 0 Then GoTo 10
Range("C2:C16") = Range("F3:F17").Value
Range("E3:G22").Sort Range("E3")
Range("H:J") = ""
End Sub

Kodu deneyiniz.

 

[yetuna]

Arkadaşlar çok teşekkür ederim Allah razı olsun beni büyük bir dertten kurtardınız.