Puana Göre Yerleştirme

[ozgurmavi]

Arkadaşlar kişinin puanına göre nereye yerleşeceğini tespit edecek birşeyler yapılabilirmi?
Elimde 100 -150 kişilik tercih formu var, ve her kişinin azami 50 seçeneken 20 tercihi olacak ve birçoğunun sıralaması çok farklı ayrıca puanlarıda birbirine yakın Bu konuda bir örnek hazırlamaya çalıştım ama format farklıda olabilir.
yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.

 

[1Al2Ver]

Arkadaşlar kişinin puanına göre nereye yerleşeceğini tespit edecek birşeyler yapılabilirmi?
Elimde 100 -150 kişilik tercih formu var, ve her kişinin azami 50 seçeneken 20 tercihi olacak ve birçoğunun sıralaması çok farklı ayrıca puanlarıda birbirine yakın Bu konuda bir örnek hazırlamaya çalıştım ama format farklıda olabilir.
yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.

Merhaba,

Öneri ,

"Sıralama" sayfasında, olması gereken çizelgeyi elle oluşturarak ve açıklamalar yaparak (ve de mümkün ise 2003 formatında) örnek bir dosya ekleyin,

 

[ozgurmavi]

Dosya içinde açıklama yapmaya çalıştım, yardımlarınız için şimdiden teşekkürler.

 

[1Al2Ver]

Dosya içinde açıklama yapmaya çalıştım, yardımlarınız için şimdiden teşekkürler.

Merhaba,

Açıklama tamam da, örnek çizelgeyi yapmamışsınız, açıklamalarınıza göre oluşması gereken çizelgeyi elle doldurun ki, sonuç alınıp test edilebilsin,

Böylesi hem doğru hem çabuk cevap almanızı kolaylaştırır.

 

[Muhammet Okumuş]

Kendimce birşeyler yapmaya çalıştım. Sonra geliştirebilirim.

 

[ozgurmavi]

Hocam;
Emeğine sağlık ben anlatamadım ama ne demek istediğimi anmışsınız. Teşekkür ederim.

 

[kerwanci]

Benzer bir konuda bende Sayın hocalarım ve İlgilenen arkadaşlardan yardım istiyorum, vakit ayıranlara şimdiden teşekkür ederim.

Başarı sırası belirlenmiş adayları tercihlerine göre yerleştirmek istiyorum. Bir anlamda ösym tarzı bir yerleştirme olacak. Elle yapmakta uzun vakit harcadığım bir iş makroyla kolaylaştırabilirsek sevinirim. Ayrıca ileridede kullanılabilmesi açısınadan Kontenjan sayısı, Tercih sayısı ve Aday sayısında değişiklik yapıldığında kullanılabilirse sevinirim.
Tercih edilecek yerlerin kontenjanları, Aday listesi ve her adayın tercih sırası dosya içerisinde mevcuttur. Kolay gelsin.

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[kerwanci]

Dosyayı inceleyiniz.

Binlerce kez teşekkür etsem azdır. Şu an mutluluktan gözlerim doldu desem yalan olmaz.Saatlerimi verdiğim bir iş saniyelerde tamamlanıyor.

Benim düşüncemle mükemmel bir çalışma olmuş. Umarım başka arkdaşlarında işine yarar.

Ellerinize sağlık, Allah razı olsun.

 

[Muhammet Okumuş]

Rica ederim Hocam. Size iyi çalışmalar. Çalışma alanını yeterince geniş tuttum, yetmiyorsa kodlarda düzenleme yaparak genişletebilirsiniz.

 

[Muhammet Okumuş]

Hocam dosyayı güncelledim. Kaçıncı tercih olduğunu da belirtiyor.

 

[kerwanci]

Hocam dosyayı güncelledim. Kaçıncı tercih olduğunu da belirtiyor.

Vakit ayırdığınız için teşekkür ederim. Harika bir iş çıkardınız. İsminizi hiç unutmam artık.

 

[Muhammet Okumuş]

Rica ederim Hocam. Çok zor bir dosya değildi aslında. Elimizden geleni yaptık.

Vakit ayırdığınız için teşekkür ederim. Harika bir iş çıkardınız. İsminizi hiç unutmam artık.

Ne diyeyim o zaman unutulmamak dileğiyle

 

[pavehawk]

Sub TERCİHLER()
Application.ScreenUpdating = False
Dim x, j, cvp As Byte
Dim i, sonsat As Long

Sheets("SONUÇ").Range("B4:H10000") = ""
x = WorksheetFunction.CountA(Range("F3:FF3"))
sonsat = Range("C10000").End(3).Row
For i = 4 To sonsat
Sheets("SONUÇ").Range("B" & i & ":E" & i) = Range("B" & i & ":E" & i).Value
Sheets("SONUÇ").Range("H" & i) = "Her hangi bir tercihe atanamadınız."
For j = 6 To x + 5
If Cells(i, j) = "" Then Exit For
kont = WorksheetFunction.VLookup(Cells(i, j), Sheets("KONTEJAN").Range("B2:C10000"), 2, 0)
tercih = WorksheetFunction.CountIf(Sheets("SONUÇ").Range("H3:H10000"), Cells(i, j))
If tercih = kont Then GoTo 10
Sheets("SONUÇ").Range("G" & i) = j - 5 & ". Tercih"
Sheets("SONUÇ").Range("H" & i) = Cells(i, j)
Exit For
10
Next j
Next i
Sheets("SONUÇ").Select
cvp = MsgBox("Tercihler yerleştirildi.", vbInformation, "Bilgi")
End Sub


galiba altı çizili olan kısımda hata alıyorum nerede yanlışlık yaptığımı anlayamadım. son dosya üzerinde biraz değişiklik yaptım. kontenjan isimler kısmında. tercih sayımı 20 yaptım. hatayı düzeltme konusunda yardımcı olur musunuz.