Veri eşleştirme.

[Bora K]

Merhabalar

C sütunundaki verileri rastgele olarak birbirleri ile eşleştirmek istiyorum.
Eşleştirme yapar iken tek bir kriterimiz olacak.
B sütunundaki harf kümesindeki veriler birbirleri ile eşleşmeyecek.

Örnek dosyada umarım daha iyi anlaşılır.
Yardımlarınızı bekliyorum. Teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,
Kodları deneyiniz.

Sub Eşleştir()
Application.ScreenUpdating = False
Range("E4:E18") = "=OFFSET(B$3,F4,0)"
Range("H4:H18") = "=OFFSET(B$3,G4,0)"
Range("K4:K33") = "=ROW(A1)"
Range("I19") = "=SUM(I4:I18)"
Range("K4:K33") = Range("K4:K33").Value
Range("J4:J33") = "=RAND()"
10
Range("J4:K33").Sort Range("J4")
Range("F4:F18") = Range("K4:K18").Value
Range("G4:G18") = Range("K19:K333").Value
Range("I4:I18") = "=IF(E4=H4,1,0)"

If Range("I19") > 0 Then GoTo 10
Range("I4:K33") = ""
Range("E4:H18") = Range("E4:H18").Value
End Sub

 

[Bora K]

Çok teşekkür ederim sayın Okumuş.
Güzel kod olmuş ellerinize sağlık.

 

[Muhammet Okumuş]

Rica ederim. İyi çalışmalar.