Kura Çekme Programı Oluşturma

Kura Çekme Programı Oluşturma, Excel makrosuyla basit bir çekilişin nasıl yapılabileceğini gösteren şablondur. Hediyeleşme gibi etkinliklerde, listedeki kayıtlar arasından rastgele seçim yapmak için kullanılabilir.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• cekilis: A1 hücresinde "Basit Çekiliş Yapma" başlığı bulunan çekiliş sayfasıdır. Makro, çekilen değeri B4 hücresine yazar; B3 ve C3 hücreleri makronun kontrol ve sayaç değerleri için kullanılır.
• veriler: A sütununda SIRA numaraları, B sütununda bunlara karşılık gelen adlar bulunur. Aralık A1:B92 olup yaklaşık 91 kayıt alanı hazırdır. C sütunu, daha önce çekilenlerin kaydı için kullanılır.

Dosyada çalışma sayfası formülü yoktur; tüm işlem makrolarla yürür. Tanımlı adlardan start ve end geçersiz başvuru (#REF!) içerir; makrolar bu adları kullanmaz.

Makrolar​

Kod cekilis modülünde yer alır ve iki yordamdan oluşur.

• SayıÜret: veriler sayfasındaki dolu satır sayısı kadar aralıkta rastgele bir sıra numarası üretir. VLookup ile bu numaranın karşılığındaki B sütunu değerini bulup cekilis sayfasındaki B4 hücresine yazar.
• KuraÇek: kısa bir bekleme süresi (0,1 saniye) boyunca SayıÜret yordamını çalıştırarak değerlerin değişmesini sağlar, ardından kendini yeniden çağırır. Sayaç (C3) dolu satır sayısına ulaştığında çekilen değer veriler sayfasının C sütununa kaydedilir. C sütunu dolduğunda "Seçim sıfırlanıyor..." mesajı gösterilir ve C2 hücresinden itibaren kayıtlar temizlenir.

Kodda dosya silme veya dışarıya bağlantı işlemi yoktur; yalnızca veriler sayfasının C sütunundaki kayıtlar temizlenir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. veriler sayfasında B sütununa çekilişe katılacak adları, A sütununa sıra numaralarını girin.
3. cekilis sayfasında KuraÇek makrosunu Alt+F8 ile veya sayfaya bir düğme atayarak çalıştırın.
4. Çekilen değer cekilis sayfasındaki B4 hücresinde görünür; çekilenler veriler sayfasının C sütununda listelenir.
5. Tüm kayıtlar çekildikten sonra makro yeniden çalıştırılırsa liste sıfırlanır.