Excel Hediye Çekiliş Takip Programı

Bu dosya, çalışanlar arasında bölüm bazlı hediye çekilişi yapmak ve sonuçları kayıt altında tutmak için hazırlanmış makrolu bir şablondur. Çekilişte bölüm ve hediye seçilir, program katılımcılar arasından rastgele bir sicil numarası belirler ve kazananı kazananlar sayfasına işler.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• katilimcilar: Sicil No, Bölüm Kodu ve KAZ. S. NO sütunlarından oluşan katılımcı listesi. Kazanma sırası makro tarafından E sütununa yazılır.
• hediyeler: Hediye numaralarının (1, 2, 3) tutulduğu liste.
• bolumler: Bölüm kodları (1000, 1010, 1020, 6030) ve açılır liste kaynağı.
• cekilis: Bölüm ve hediyenin seçildiği (D2 ve D3 hücreleri, veri doğrulamalı), çekilen sicilin ekranda gösterildiği ana sayfa.
• kazananlar: Sicil, Bölüm Kodu ve Hediye Kodu bilgileriyle kazananların listesi.
• ayarlar: Seçilen bölümün katılımcılarının geçici olarak kopyalandığı çalışma alanı. İçeriği makro tarafından yönetilir.

Dosyada bölüm ve hediye listeleri için bkod, bolum ve hdy adlı dinamik adlar tanımlıdır; adlar OFFSET ve COUNTA ile liste uzunluğuna göre genişler. Sayfalarda hücre formülü yoktur.

Makrolar​

• Worksheet_Change: cekilis sayfasında D2 (bölüm) veya D3 (hediye) değiştiğinde çalışır. Seçilen bölümde çekilecek katılımcı kalmadıysa uyarı verir ve bölüm seçimini temizler. Aksi halde bölümün katılımcılarını ayarlar sayfasına aktarır ve çekilişi başlatır.
• DEGISTIR: C5 hücresinde sicil numaralarını yaklaşık 3 saniye boyunca rastgele döndürür, durduğunda seçilen kişiyi kazananlar sayfasına bölüm ve hediye koduyla ekler, katılımcılar sayfasında kazanma sırasını işaretler ve kişiyi çekiliş havuzundan çıkarır. Bölümde kimse kalmayınca ekranda bölümün çekilişinin bittiği bildirilir.
• SIFIRLA: Onay sorduktan sonra kazananlar listesini, kazanma sıra numaralarını ve çekiliş alanlarını temizler. Makro listesinden elle çalıştırılır.

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

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. katilimcilar sayfasına sicil numaralarını ve bölüm kodlarını, hediyeler sayfasına hediye numaralarını girin.
3. cekilis sayfasında D2 hücresinden bölümü seçin.
4. D3 hücresinden hediyeyi seçin; çekiliş otomatik başlar.
5. Sonuç C5 hücresinde görünür ve kazananlar sayfasına eklenir. Her hediye için D3 hücresinden yeni seçim yapın.
6. Yeni bir çekilişe başlamak için SIFIRLA makrosunu çalıştırın.