şampiyonlar ligi çekiliş

[Muhammet Okumuş]

Böyle olmak zorunda.1.torbada güçlüler 4.torbaya doğru güçsüz takımlar kalıyor.uefa şampiyonlar ligi kuraları bu kurallara göre çekiliyor.

 

[Muhammet Okumuş]

Saolsun leumruk dosyayı oluşturdu. şu an tek sorun 2 takımlı ülkelerin biri a-d, diğeri e-h grubunda, 3 takımlı ülkelerin biri veya ikisi a-d grubunda.4 takımlı ülkelerin 2 si a-d, 2si e-h gruplarında olacak.

 

[Muhammet Okumuş]

sadece 1 sorun kaldı.dosyayı inceler misiniz

 

[Muhammet Okumuş]

leumruk hocam kuralar çekilirken önce takım seçilsin.sonra bu takımın gidebilceği gruplar çekilsin.sonrada bu gruplardan birine yerleşsin a b c d e gruplarına sırasıyla gitmesine gerek yok.böyle bişey yapabilirniyiz

 

[Muhammet Okumuş]

http://www.vidivodo.com/198276/sampiyonlar-ligi

burada çekiliş görüntüsü var.ama burda 1 torbadan başlamış

 

[leumruk]

Meseleyi anladım. Bunu yapmak için sıfırdan bir şablon düşünmek lazım.
Belirttiğim gibi, hemen olacak bir iş değil. Acele etmezseniz, hafta sonu bu konuyla ilgilenmek istiyorum. Okul, bu sıralar çok yoğun, bu konuyu enine boyuna irdelemek lazım.

 

[Muhammet Okumuş]

tamam leumruk.ilginize teşekkürler.

 

[cetinorgun]

Ve dosya ortada yok yine

 

[Muhammet Okumuş]

ilk sayfada var

 

[Muhammet Okumuş]

leumruk kodaları biraz türkçeleştirebilirmisin.ne demek istediğinizi anlatabilirsin.
Sub SayıÜret1()
If [U10] = 3 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Then
MsgBox "Seçim tekrarlanıyor"
Hüc = Cells(22, "A").End(3).Row
Cells(Hüc, "A") = ""
Range("B14") = ""
Call SayıÜret1
Exit Sub
Else:
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1)
Range("B14") = (MyNumber)
Sat = Cells(22, "A").End(3).Row + 1
Cells(Sat, "A").Value = Range("B14").Value
If Range("A14") = 2 Then
Cells(Sat, "A").Value = ""
Range("B14") = ""
Call SayıÜret1
If Range("A22") = [Sayfa1!B14] Then
Range("B14") = ""
MsgBox "Bu torba tamamlanmıştır."
Exit Sub
End If
End If
End If
End Sub
Sub SayıÜret2()
If [U10] = 3 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Then
MsgBox "Seçim tekrarlanıyor"
Hüc = Cells(22, "D").End(3).Row
Cells(Hüc, "D") = ""
Range("E14") = ""
Call SayıÜret2
Exit Sub
Else:
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1)
Range("E14") = (MyNumber)
Sat = Cells(22, "D").End(3).Row + 1
Cells(Sat, "D").Value = Range("E14").Value
If [D14] = 2 Then
Cells(Sat, "D").Value = ""
Range("E14") = ""
Call SayıÜret2
If Range("D22") = [Sayfa1!E14] Then
Range("E14") = ""
MsgBox "Bu torba tamamlanmıştır."
Exit Sub
End If
End If
End If
End Sub
Sub SayıÜret3()
If [U10] = 3 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Then
MsgBox "Seçim tekrarlanıyor"
Hüc = Cells(22, "G").End(3).Row
Cells(Hüc, "G") = ""
Range("H14") = ""
Call SayıÜret3
Exit Sub
Else:
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1)
Range("H14") = (MyNumber)
Sat = Cells(22, "G").End(3).Row + 1
Cells(Sat, "G").Value = Range("H14").Value
If [G14] = 2 Then
Cells(Sat, "G").Value = ""
Range("H14") = ""
Call SayıÜret3
If Range("G22") = [Sayfa1!H14] Then
Range("H14") = ""
MsgBox "Bu torba tamamlanmıştır."
Exit Sub
End If
End If
End If
End Sub
Sub SayıÜret4()
If [U10] = 3 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Then
MsgBox "Seçim tekrarlanıyor"
Hüc = Cells(22, "J").End(3).Row
Cells(Hüc, "J") = ""
Range("K14") = ""
Call SayıÜret4
Exit Sub
Else:
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1)
Range("K14") = (MyNumber)
Sat = Cells(22, "J").End(3).Row + 1
Cells(Sat, "J").Value = Range("K14").Value
If [J14] = 2 Then
Cells(Sat, "J").Value = ""
Range("K14") = ""
Call SayıÜret4
If Range("J22") = [Sayfa1!K14] Then
Range("K14") = ""
MsgBox "Bu torba tamamlanmıştır."
Exit Sub
End If
End If
End If
End Sub

Sub Temizle()
Range("A15:A22") = ""
Range("D1522") = ""
Range("G15:G22") = ""
Range("J15:J22") = ""
End Sub

 

[leumruk]

Syn. okumuş,
Bu işin ucunu bırakmayacaksınız heralde. Anladığım kadarıyla çevirmeye çalışayım.

 

[leumruk]

leumruk kodaları biraz türkçeleştirebilirmisin.ne demek istediğinizi anlatabilirsin.
Sub SayıÜret1()
If [U10] = 3 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Then ' Or ya da demek. If eğer anlamına geliyor. Eğer belirtilen hücrelerden herhangi biri karşısındaki değerde ise...
MsgBox "Seçim tekrarlanıyor" Burası zaten açık.
Hüc = Cells(22, "A").End(3).Row Hüc=A sütunundaki son dolu satır.(22'ye kadar)
Cells(Hüc, "A") = "" İçini boşalt. A sütunundaki son dolu satırı bul içini boşalt.
Range("B14") = "" Belirtilen hücreyi boşalt.
Call SayıÜret1 Ve "SayıÜret1 makrosunu çalıştır.
Exit Sub İşlemi bitir.
Else: Eğer belirtilen şartlar gerçekleşmiyorsa(il satırdaki şartlar)
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1) sınırı 8 olmak üzere sayı üret.
Range("B14") = (MyNumber) Bu sayıyı B14'e kopyala
Sat = Cells(22, "A").End(3).Row + 1 A sütunundaki son boş hücreyi bul.
Cells(Sat, "A").Value = Range("B14").Value B14'te bulunan veriyi bulduğun hücreye kopyala
If Range("A14") = 2 Then eğer A14=2 ise
Cells(Sat, "A").Value = "" A sütunundaki son dolu satırı boşalt
Range("B14") = "" boşalt
Call SayıÜret1 Belirtilen makroyu çalıştır.
If Range("A22") = [Sayfa1!B14] Then Eğer A22 eşit B14 ise
Range("B14") = "" B14'ü boşalt
MsgBox "Bu torba tamamlanmıştır."
Exit Sub işlem bitir.
End If
End If
End If
End Sub

Sub Temizle() Belirtilen aralıktaki hücrelerin içindeki verileri boşaltır.
Range("A15:A22") = ""
Range("D1522") = ""
Range("G15:G22") = ""
Range("J15:J22") = ""
End Sub

Düğer kısımlar, benzer anlamları taşıdığı için açıklamadım.

 

[Muhammet Okumuş]

teşekkür ederim leumruk.forumda 39 sayfalık veri buldum.çıktısını aldım.onlardan öğrenmeye çalışıyorum.

 

[Muhammet Okumuş]

Hüc = Cells(22, "A").End(3).Row Hüc=A peki End(3) parantez içindeki 3 neyi ifade ediyor

 

[leumruk]

teşekkür ederim leumruk.forumda 39 sayfalık veri buldum.çıktısını aldım.onlardan öğrenmeye çalışıyorum.

Kolay gelsin. Bu azimle çabuk öğrenirsin. Ben de üstadlardan şu senin Şampiyonlar ligi için uygun kodlar toplamaya çalışıyorum. Bakalım becerebilecek miyim?

 

[Muhammet Okumuş]

leumuruk üsteki soruya bi bakar mısınız

 

[leumruk]

Hüc = Cells(22, "A").End(3).Row Hüc=A peki End(3) parantez içindeki 3 neyi ifade ediyor

xlDown: Yerine kullanılan sayı. Yani xlDown'u da yazabilirsin 3 yerine. Sanırım aşağı doğru demek. Yani A1'den başla aşağı doğru tara ve son dolu hücreyi bul demek. End(3).Row+1 dediğimiz zaman da dolu hücreden bir sonraki hücre demek. O da son boş hücreye denk geliyor doğal olarak.

 

[Muhammet Okumuş]

valla daha alınacak çok yol var

 

[leumruk]

Syn. muokumuş,
Şampiyonlar ligi kuralarını ayrıntılı bir biçimde anlatabilir misiniz? Mümkünse maddeler halinde.
Birden fazla takımı olan ülkeleri A-D, E-H olarak bölümlememiz gerektiğini söylemiştiniz, bu kural gerçeğinde de var mı? Varsa takımların bu şekilde ayrılmasını nasıl sağlıyorlar. İkincisi bu kural bundan sonraki çekilişler için de geçerli mi? Sonuçta takım dağılımı çok farklı olacak. Sadece takımların aynı guruba denk gelmemesi yeterli olmaz mı?
Ayrıntılı ve kesin bilgi verirseniz, eklediğim dosyayı yeniden inceleyeceğim.

 

[Muhammet Okumuş]

hocam önce takımla seçiliyor.4 takımlı ülkeler 2si a-d 2si e-h 3takımlılar 2 ye 1 veya 1e 2 2 takımlı ülkeler 1 e 1 gelecek şekilde bu kesin kural.örneğin ispanyanın 4 takımı olsun ilk iki takım e ile f grublarına düşsün.sadece 1 torba kaldığını düşünün.1.torbadan 2 takım seçildi ikisi a ve b grularına düştü.ispanya liginden bir takım gelmişse kavanoza sadece c ve d gruplarının yer aldığı toplar kavonaza atılıyor.eğer ispanya liginden takım gelmemişse o takımlar için c ve d gruplarının yer aldığı kavanozlar atılmıyor. dediğim gibi öce takım belli oluyor. sonra tabloya bakıyorlar.o takımın gidebileceği grupları belirliyorlar.sonra kavonaza takımın gideceği toplar konuluyor.takım o guba gidiyor. bazen takımın gideceği yer takım daha seçilmeden belli oluyor.