Kura Çekme Programı

Kura Çekme Programı, takımları güç değerlerine göre dört torbaya ayırıp Şampiyonlar Ligi mantığıyla gruplara dağıtan, makro içeren bir Excel şablonudur. Kura işlemi tek bir makroyla yapılır. Dosya kullanmadan hızlı bir çekiliş yapmak için PratikBordro'daki online kura çekme aracı da kullanılabilir.

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

Dosyanın içeriği​

• Kura: Ana çalışma sayfasıdır. C sütununda takım adları, D sütununda her takımın gücü yer alır (örneğin Barcelona 9, Valencia 8, Napoli 7, Villarreal 6). Takım listesi 3. satırdan 122. satıra kadar genişletilebilir. Kura sonucu aynı sayfada, "1. Grup", "2. Grup" gibi başlıklarla gruplar halinde listelenir.
• Sheet2: A1:C6 aralığında RESİM (IMAGE) fonksiyonuyla web adreslerinden getirilen altı görsel bulunur. Kura işleminin parçası değildir.

Kullanılan formüller​

• RESİM (IMAGE): Sheet2 sayfasında görselleri internet adresinden getirir. Yalnızca RESİM (IMAGE) destekleyen Excel sürümlerinde çalışır ve görseller için internet bağlantısı gerekir.
• S_SAYI_ÜRET (RAND), DÜŞEYARA (VLOOKUP), EĞERSAY (COUNTIF), TOPLA.ÇARPIM (SUMPRODUCT): Makro bunları çalışma sırasında hücrelere yazar. Kura bittiğinde bu yardımcı hücreler temizlenir.

Makrolar​

Dosyada Module1 içinde Kura adlı tek bir makro vardır. Makro şunları yapar:

1. Önceki kura sonuçlarını temizler.
2. Takım listesini kopyalar ve güç değerine rastgele bir küsurat ekleyerek büyükten küçüğe sıralar. Böylece aynı güçteki takımların sırası her seferinde değişir.
3. Sıralanan listeyi 30'ar takımlık dört torbaya böler.
4. Her torbayı rastgele karıştırıp 30 gruba birer takım yerleştirir. Aynı grupta aynı ülkeden ya da aynı kategoriden takımların çakışıp çakışmadığını DÜŞEYARA (VLOOKUP) ile D sütunundaki değere bakarak denetler. Her grupta dört farklı değer çıkmıyorsa karıştırmayı yeniden yapar.
5. Sonuçları gruplar halinde sayfaya yazar, yardımcı sütunları temizler ve görünümü sonuç alanına kaydırır.

Makroda dosya silme, dışarıya bağlantı gibi zararlı bir işlem görünmez. Yalnızca dosyanın kendi hücreleri üzerinde çalışır.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Kura sayfasında C sütununa takım adlarını, D sütununa güç değerlerini girin.
3. Alt+F8 ile Kura makrosunu çalıştırın.
4. Grupları sağdaki alanda inceleyin. Yeni bir kura için makroyu yeniden çalıştırın.

Dosyadan faydalanmanız dileğiyle.