20 Kişiden 5 Kişilik Kura Çekme

20 Kişiden 5 Kişilik Kura Çekme, bir listedeki çalışanlardan istenen sayı kadarına hediye çıkmasını sağlayacak formüller içermektedir.

Excel ile 20 Kişiden 5 Kişilik Kura Çekme

Dosya, Çalışan Kura Takip Sistemi Oluşturma dosyasını ekledikten sonra, iletilen bir soru kapsamında hazırlanmıştır. İstenen, X sayı kadar listeden sadece X tanesinin ismini yazdırmaktadır. Böylece, o kişileri verilecek hediyelerden yararlandırmaktadır.

Bu işlem için BAĞ_DEĞ_DOLU_SAY, LET, RASGDİZİ, İNDİS, YATAYYIĞ ve SIRALI gibi güçlü Excel fonksiyonları kullanılmaktadır. Formül şu şekildedir:

=LET(a;B3:B22;s;BAĞ_DEĞ_DOLU_SAY(a);v;YATAYYIĞ(SIRALI(s);a);İNDİS(a;RASGDİZİ($D$3;;1;s;DOĞRU);1))

Bu formül nasıl çalışmaktadır?

1. LET Fonksiyonu: Daha düzenli ve optimize bir formül yapısı oluşturmaktadır. Bu sayede hem okunabilirlik artmakta hem de hata yapma olasılığı azalmaktadır. Bunun devamında, süreçlerin daha hızlı ve verimli bir şekilde yürütülmesi mümkün hale gelmektedir.
2. B3:B22 Aralığı: Çalışan listesini içermektedir. Çünkü, çekilişin tüm çalışanları kapsaması gerekmektedir.
3. BAĞ_DEĞ_DOLU_SAY(a): Listedeki toplam kişi sayısını hesaplamaktadır. Çünkü, toplam çalışan sayısı kura limiti açısından önemlidir.
4. YATAYYIĞ(SIRALI(s);a): Listedeki kişilere sıralı bir numara vermektedir. Çünkü, toplam hediye sayısı için buna ihtiyaç bulunmaktadır.
5. RASGDİZİ($D$3;;1;s;DOĞRU): Belirlenen kişi sayısı kadar rastgele seçim yapmaktadır. Çünkü bu yöntem, seçim sürecinde tarafsızlığı ve çeşitliliği garanti altına almaktadır.
6. İNDİS(a; … ): Rastgele seçilen kişileri döndürmektedir. Böylece, istenen sonuç elde edilmektedir.

Bu formül sayesinde istenen sayıdaki bir çalışan listesinden rastgele istenen sayıdaki kişi otomatik olarak seçilmektedir. Böylece, F sütununda sonuçlar görünmektedir.

Rastgele Çekiliş İçin Alternatif Yöntemler Kullanma

Hediye belirlemek için Excel'de farklı formül ve VBA yöntemlerini de tercih edenler olacaktır. Bunun için aşağıdaki yöntemler kullanılabilir.

Geleneksel Excel Formülü

Eğer farklı bir rastgele seçim yöntemi kullanmak istenirse, RASTGELEDEARA, BAĞ_DEĞ_DOLU_SAY ve İNDİS kombinasyonunu yeterli olacaktır:

=İNDİS($B$3:$B$22;RASTGELEDEARA(1;BAĞ_DEĞ_DOLU_SAY($B$3:$B$22)))

Bu formül B3:B22 aralığındaki kişiler arasından rastgele bir isim çekmektedir. Dinamik özelliği bulunmadığından, istenen "X" kaydı listelememektedir.

Excel VBA Yöntemi

Eğer makrolar tercih edilecekse, aşağıdaki VBA kodu ile de rastgele çekiliş yapılmaktadır:

Sub RastgeleKisiSec()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rng As Range, secim As Range
    Dim i As Integer
    
    Set rng = ws.Range("B3:B22")
    ws.Range("F3:F7").ClearContents

    For i = 1 To 5
        Set secim = rng.Cells(Application.WorksheetFunction.RandBetween(1, rng.Rows.Count), 1)
        ws.Cells(i + 2, 6).Value = secim.Value
    Next i
End Sub

Bu kod, 5 rastgele kişiyi seçerek F sütununa eklemektedir.

20 Kişiden 5 Kişilik Kura Çekme Sonuç: Excel ile Rastgele Çekiliş Yapma

Eğer bir çekiliş yapmak istenirse, Excel‘in güçlü özellikleri istenen sonucu vermek için yeterli olmaktadır. Yukarıda paylaşılan yöntemler, rastgele kişi seçimi konusunda mükemmel çözümler sunmaktadır.

İhtiyacı olanların yararlanması temennisiyle.