Takım seçmek

[XExcel]

Halı saha turnuvası için 2 takım seçmek istiyorum bunu yaparkende arkadaş kayırması ve kırgınlıklar olmaması için seçimi excel'de yaptırmak istiyorum.
Yardımcı olurmusunuz!

Teşekürler

 

[Orion1]

Dosyanız ektedir.

Sub karıştır_59()
Dim col As Collection, i As Byte, hcr As Range, j As Byte
Dim indis As Byte, sut As Byte
Randomize Timer
Range("A5:J5,A9:j9,A13:j13").ClearContents
Set col = New Collection
For Each hcr In Range("A2:AN2")
    col.Add hcr.Value
Next
For j = 5 To 13 Step 4
    sut = IIf(j = 13, 5, 10)
    For i = 1 To sut
        indis = Int(Rnd() * col.Count) + 1
        Cells(j, i).Value = col(indis)
        col.Remove (indis)
    Next i
Next j
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        

End Sub

 

[desk]

Eline sağlık üstad mükemmel olmuş tşk.

 

[Orion1]

Eline sağlık üstad mükemmel olmuş tşk.

Rica ederim.
İlginçtir soruyu sorandan teşekkür gelmiyorda sayın desk teşekkür etmiş.
İyi çalışmalar.

 

[XExcel]

Evren Hocam çok güzel olmuş bende teşekür ederim

 

[Orion1]

Evren Hocam çok güzel olmuş bende teşekür ederim

Rica ederim.
İyi çalışmalar.

 

[Excelmy]

Sayın Evren hocam

Hoşgörünüze dayanarak bende bir örnek ekliyorum.

Saygılarımla.

 

[Orion1]

5 tanede yedek koydum.
Dosyayı 2 numaralı mesajda güncelledim.