Random Liste Oluşturmak

[arsenix]

Merhaba herkese,

Rastgele hücre seçmek gibi örnekleri baya inceledikten sonra yardım istemeye karar verdim.

Bir sütunda Yazacağım 12 isimi ve başka bir sütunda yazacağım 16 ismimden 12sini rastgele seçerek diğer 12 kişiyle eşleştirmek istiyorum. Fakat örnekler üzerinden yola çıktığım zaman #YOK hatası alıyorum. Bana nasıl bir yardımınız dokunabilir ne yapabilirim.


Şimdiden çok teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz. Farklı yöntemlerle de yapılabilinir.

A ve B sütununa kişileri yazınız.

Adet önemli değil, A ya da B sütunundakilerden biri diğerinden fazla olabilir.

Eşleştirmeyi D ve E sütununda gösterir.

Sub Eşleştir()
    
    Dim GrupA   As Integer, _
        GrupB   As Integer, _
        iBuyuk  As Integer, _
        iKucuk  As Integer, _
        i       As Integer
    
    Application.ScreenUpdating = False
    Range("D:F").Clear
    
    GrupA = Cells(Rows.Count, "A").End(3).Row
    GrupB = Cells(Rows.Count, "B").End(3).Row
    
    If GrupA < GrupB Then
        Range("A1:A" & GrupA).Copy Range("D1")
        Range("B1:B" & GrupB).Copy Range("E1")
        iBuyuk = GrupB
        iKucuk = GrupA
    Else
        Range("B1:B" & GrupB).Copy Range("D1")
        Range("A1:A" & GrupA).Copy Range("E1")
        iBuyuk = GrupA
        iKucuk = GrupB
    End If
    
    Range("F2").Formula = "=RAND()"
    Range("F2:F" & iBuyuk).FillDown
    Range("E2:F" & iBuyuk).Sort kEY1:=[F1]
    Range("E" & iKucuk + 1 & ":E" & iBuyuk & ", F2:F" & iBuyuk).ClearContents
    
    MsgBox "EŞLEŞTİRME YAPILMIŞTIR...", vbInformation, "excel.web.tr"
    
End Sub

 

[arsenix]

Hocam çok teşekkürler,

Kodları iyice inceledikten sonra geri dönüş yapacağım Çok Sağolun.

 

[arsenix]

Merhabalar

Kodları inceledim fakat şöyle bir sıkıntı yaşıyorum. Sizin verdiğiniz kodlardan yola çıkarak aynı A ve B listesinden 12 farklı grup oluşturmaya çalışıyorum ( Aynı mantık ile ) Gönderdiğiniz örnekteki Grup 12 - Grup 16ları öğretmenler için kullanacağım. Bunun yanında 80 kişilik bir öğrenci listesini de yine rastgele 7şer 8er kişilik gruplara ayırıp yine eşleşen her iki öğretmeni rastgele eşleşen 7-8 kişilik öğrencilerle eşleştireceğim. Ekteki gibi bir örnek yapmak istiyorum. Exceldeki kodlar konusunda yeni olduğum için yardımlarınızı bekliyorum.

 

[arsenix]

yardımcı olabilecek kimse yok mu

 

[arsenix]

yardım lütfen