• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri eşleştirme.

  • Konbuyu başlatan Konbuyu başlatan Bora K
  • Başlangıç tarihi Başlangıç tarihi
Katılım
21 Ocak 2013
Mesajlar
331
Excel Vers. ve Dili
2003 Türkçe
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.
 

Ekli dosyalar

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
 
Çok teşekkür ederim sayın Okumuş.
Güzel kod olmuş ellerinize sağlık.
 
Rica ederim. İyi çalışmalar.
 
Geri
Üst