Hediye Bazlı Kura Çekme

Hediye Bazlı Kura Çekme, belirlenen bir hediye listesi için katılımcı listesinden rastgele kazanan seçen bir çekiliş şablonudur. Seçtiğiniz hediyenin karşısına kazananın adı yazılır. Aynı kişi birden fazla hediye kazanamaz.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A sütununda "Katılımcılar" başlığı altında isim listesi (Semiha, Samet, Sinem, Filiz, Hülya vb.), D sütununda "Kazanan" başlığı yer alır. Örnekte ilk iki satırda Rose ve Edmund yazılıdır.
• Sheet2: A1:C6 aralığında hediye görselleri için kullanılan RESİM (IMAGE) formülleri bulunur.

Sayfa üzerinde "Kazananı Belirle" ve "Hediyeyi Göster" düğmeleri vardır. Hediye adları C sütununda (ör. Sony TV, Macbook Pro, Ipad Pro, Iphone 14 Pro Max, Samsung S8) yer alır.

Kullanılan formüller​

• =IMAGE(url, B1, 1): Sheet2 sayfasında A1:A6 hücrelerinde, internet adresindeki hediye görselini hücreye getirir. Görsellerin görünmesi için internet bağlantısı ve RESİM (IMAGE) fonksiyonunu destekleyen bir Excel sürümü gerekir. Bu adresler exceldepo.com alanındadır.

Makrolar​

Kodda dosya silme veya zararlı bir işlem görünmez. Formüllerdeki görsel adresleri dışında dışarıya bağlantı kurulmaz.

• draw_winners: "Kazananı Belirle" işlemini başlatır ve draw işlevini çağırır.
• draw: Seçili hücrenin C sütununda ve dolu olup olmadığını kontrol eder, aksi halde uyarı verir. Ardından katılımcılar arasından isimleri sırayla hızlıca değiştirerek (yaklaşık 30 tekrar, 0,1 saniye aralıkla) son kazananı D sütununa yazar. Seçilen isim daha önce başka hediyeyi kazanmışsa yeniden çeker.
• check_names, get_max, rand_num, WaitFor: Yardımcı işlevlerdir. Tekrar eden kazananı denetler, katılımcı sayısını bulur, rastgele satır numarası üretir ve bekleme süresini sağlar.
• show_window: "Hediyeyi Göster" düğmesiyle seçili hediye adını winner_window formunda gösterir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Katılımcı isimlerini A sütununa, 2. satırdan başlayarak boşluk bırakmadan yazın.
3. Hediye adlarını C sütununa girin.
4. Çekiliş yapmak istediğiniz hediyenin hücresini seçin.
5. "Kazananı Belirle" düğmesine tıklayın. Kazanan, hediyenin yanındaki D sütununa yazılır.
6. Hediyeyi ekranda göstermek için hücreyi seçip "Hediyeyi Göster" düğmesine tıklayın.

Geliştirmeye açık olan dosyadan faydalanmanız dileğiyle.