kura çekme

[zerali]

Arkadaşlar benim yapmak istediğim kura çekme proğramında kura çek e dediğimde C 2 sütununda seçilen kişinin çıkması ayrıca kurada çıkan kişinin diğer kura çekiminde çıkmaması .Şimdiden teşekkürler..
http://s3.dosya.tc/server14/8f9mfe/sinif_kura_sira.xlsx.html

 

[Muhammet Okumuş]

Daha önce bir dosyam vardı. Size uygunsa deneyiniz.

 

[Necdet]

Dosya içinde verdiğiniz notu inceledim.

Arkadaşlar benim yapmak istediğim kura çekme proğramında kura çek e dediğimde C2 sütununda seçilen kişinin çıkması ayrıca kurada çıkan kişinin diğer kura çekiminde çıkmaması .Şimdiden teşekkürler..


Not : Yani Torpil Olayı mı? Eğer öyleyse buradan yanıt beklemeyin.

 

[zerali]

Dosya içinde verdiğiniz notu inceledim.

Arkadaşlar benim yapmak istediğim kura çekme proğramında kura çek e dediğimde C2 sütununda seçilen kişinin çıkması ayrıca kurada çıkan kişinin diğer kura çekiminde çıkmaması .Şimdiden teşekkürler..


Not : Yani Torpil Olayı mı? Eğer öyleyse buradan yanıt beklemeyin.

Yok Necdet hocam ne torpili..Torpil bizim hayatımıza ters.Ben Öğretmenim öğrencilerimin hepsi tahtaya kalkmak istiyor ve bende buna böyle bir çözüm bulmak istedim.Bu kura işini projeksiyona verip tüm sınıfın gözü önünde kura çekilerek tahtaya kalkacaklar.

 

[Zeki Gürsoy]

VBA referanslarından "Microsoft Scripting Runtime" refransını ekledikten sonra aşağıdaki kodu test edin.

Private dic As New Dictionary

Sub Test()

    If dic.Count = 31 Then
        
        MsgBox "Bütün öğrenciler tahtaya kalktı." & vbNewLine & _
               "Sıfırlamak için dosyayı kapatıp yeniden açın. ", vbInformation
               
        Exit Sub
        
    End If    
        
    sayi = WorksheetFunction.RandBetween(4, 34)
    
    If dic.Exists(CStr(sayi)) Then
        Test
    Else
        dic.Add CStr(sayi), sayi
    
        [c2] = Cells(sayi, "a") & " - " & Cells(sayi, "c")
    End If
    
End Sub

.

 

[zerali]

Çok teşekkürler Muhammet hocam ve Zeki hocam.Emeğinize sağlık.

 

[Necdet]

Yok Necdet hocam ne torpili..Torpil bizim hayatımıza ters.Ben Öğretmenim öğrencilerimin hepsi tahtaya kalkmak istiyor ve bende buna böyle bir çözüm bulmak istedim.Bu kura işini projeksiyona verip tüm sınıfın gözü önünde kura çekilerek tahtaya kalkacaklar.

Takıldım sadece. Sevindim torpil olmamasına Kolay gelsin.

 

[halit3]

Alternatif olsun bende bir dosya ekliyorum kura sonucunu H1 hücresine çıkartıyor.

 

[zerali]

Takıldım sadece. Sevindim torpil olmamasına Kolay gelsin.

Teşekkürler Necdet hocam.İyi Çalışmalar

 

[zerali]

halit3 hocam çok sağolun.Teşekkürler.Emeğinize sağlık.