Kura Çek

Bu dosya, Şampiyonlar Ligi takımlarının kura çekimini Excel'de yapar. Takımlar güç değerlerine göre sıralanır, dört torbaya ayrılır ve her torbadan birer takım çekilerek gruplar oluşturulur. Kura işlemi tek bir makroyla çalışır; sonuç her çalıştırmada rastgele değişir.

Dosyanın içeriği​

• Kura sayfası: Tek sayfadan oluşur. C sütununda takım adları (Barcelona, Real Madrid, Arsenal, Inter gibi), D sütununda her takımın Güç değeri yer alır. Hücre aralığı C3:D122 olarak ayrılmıştır.
• Sayfanın sağ tarafında grup sonuçları yazılır; her grup "1. Grup", "2. Grup" gibi bir başlıkla ve altında dört takımla listelenir. Sayfada örnek bir kura sonucu da bulunur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur. Modülde Kura adlı tek bir makro bulunur ve şunları yapar:

1. Önceki kura sonuçlarını (S3:AP32) temizler.
2. Takım listesini geçici alana kopyalar, güç değerine RAND ile küçük bir rastgele sayı ekler ve güce göre büyükten küçüğe sıralar. Böylece aynı güçteki takımların sırası her seferinde değişir.
3. Sıralı listeyi 30'ar takımlık dört torbaya böler.
4. Her torbayı rastgele karıştırarak gruplara dağıtır. Aynı gruba aynı ülkeden iki takım düşmemesi için kontrol yapılır; kontrol sağlanana kadar torba yeniden karıştırılır.
5. Sonuçları 30 grup olarak, her grupta dört takım olacak şekilde sayfanın sağ tarafına yazar.

Kullanılan formüller​

Sayfada sabit formül yoktur; makro çalışırken geçici olarak şu işlevleri kullanır:

• RAND: Sıralama ve karıştırma için rastgele sayı üretir.
• VLOOKUP: Takımın D sütunundaki değerini bulur.
• SUMPRODUCT ve COUNTIF: Bir grupta aynı değerin tekrar edip etmediğini sınar.

Bu geçici formüller işlem sonunda silinir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Kura sayfasında takım adlarını ve güç değerlerini C ile D sütunlarına girin veya mevcut listeyi kullanın.
3. Alt+F8 ile Kura makrosunu seçip çalıştırın.
4. Oluşan gruplar sayfanın sağ tarafında listelenir. Yeni bir kura için makroyu yeniden çalıştırın.

Makro kodu geliştirmeye açıktır; kuralları ihtiyacınıza göre değiştirebilirsiniz.