Excel ile Kura Çekim Yapma

Bu dosya, Excel ile hediye çekilişi yapmanın temel adımlarını gösteren basit bir kura çekim örneğidir. Bilet listesinden makro ile rastgele kazananlar seçilir; bir UserForm üzerinden de bilet numarasına göre isim, isme göre bilet numarası sorgulanır. Dosya geliştirmeye açık bir başlangıç şablonudur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "BİLET" başlığı, A2:A13 aralığında 1'den 12'ye kadar bilet numaraları bulunur. B sütunu, her bilet sahibinin adının girileceği alandır.
• Sayfa2: Çekiliş sonucunun yazıldığı sayfadır. A sütununa kazanan bilet numaraları, B sütununa bu numaraların sahibi olan isimler yazılır. Dosyada örnek olarak 2, 10, 7 ve 8 numaralı biletler yer alır.
• UserForm1: İki düğmeli ve iki metin kutulu sorgulama formudur.

Dosyada formül bulunmaz; tüm işlemler VBA kodu ile yapılır.

Makrolar​

• nmk: Sayfa1 koduna bağlıdır. Rnd ile 1-12 arasında rastgele bir bilet numarası üretir. CountIf ile numaranın Sayfa2 A sütununda daha önce çekilip çekilmediğini kontrol eder; çekilmişse yeni numara üretir. Böylece aynı bilet iki kez seçilmez. Her benzersiz numara Sayfa2'nin A sütununa, Sayfa1'deki B sütunundan alınan karşılık gelen isim ise B sütununa yazılır. İşlem 4 kazanan seçilene kadar sürer.
• CommandButton1_Click: TextBox1'e yazılan bilet numarasını Sayfa1 A sütununda arar ve bulduğu satırdaki ismi TextBox2'de gösterir.
• CommandButton2_Click: TextBox1'e yazılan ismi Sayfa1 B sütununda arar ve bulduğu satırdaki bilet numarasını TextBox2'de gösterir.

Kodda dosya silme ya da dışarıya bağlantı işlemi yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de B2:B13 aralığına bilet sahiplerinin adlarını girin.
3. Alt+F8 ile nmk makrosunu çalıştırın.
4. Sayfa2'de kazanan bilet numaralarını ve isimlerini kontrol edin. Yeni bir çekiliş öncesinde Sayfa2'nin A1:B4 aralığındaki eski sonuçları temizleyin; aksi halde makro mevcut numaraları atlayarak çalışır.
5. Sorgulama için UserForm1'i çalıştırın, TextBox1'e bilet numarasını ya da ismi yazıp ilgili düğmeye basın; sonuç TextBox2'de görünür.

Makro 12 bilet ve 4 kazanan için hazırlanmıştır; farklı sayılar için koddaki 12 ve 4 değerleri değiştirilir.