Çekiliş Sistemi

[Yesilyurtlu]

Üstadlarım Hayırlı Tatiller

Ekli dosyanın Sayfa2' de Personel ve bu personele verilen çekiliş numarası mevcut.
Sayfa3' de ise Çekiliş yap düğmesi var. Bu düğmeye tıkladığımız zaman yuvarlaklar arasında sayfa2'de yer alan çekiliş numaraları arasında çekiliş yapacak çıkan numara ne ise o numaraya ait kişi Görev alacak personelin altındaki yere çekiliş numarası ve adı birlikte alt alta aktarılacak.
YALNIZ;
1 -Çekilişi G1 hücresinde ki sayı kadar yapacak.
2 - Yenile düğmesi ile çekilen isimler ve çekiliş numaraları silinecek. Tekrar bir çekiliş yapılacak. Her çekiliş bir önceki çekilişten farklı olacak. Ta ki Sayfa2 de yer alan isimler bitinceye kadar.

Bu konuda yardımcı olabilir misiniz?

 

[revelte]

Anlasam yardımcı olmaya çalışıcam ama;

1- Yuvarlaklar arasında çekiliş yapmak ne demek ?
2- G1 de 20 yazıyor. Çekiliş Yap butonuna tıklayınca 20 kişi mi seçecek ?
3- Sayfa2 de yer alan isimler bitinceye kadar demişsin. Kullanıcı butona birden çok kez tıklayacak doğru mu ?

 

[Husgvarna]

Üstadlarım Hayırlı Tatiller

Ekli dosyanın Sayfa2' de Personel ve bu personele verilen çekiliş numarası mevcut.
Sayfa3' de ise Çekiliş yap düğmesi var. Bu düğmeye tıkladığımız zaman yuvarlaklar arasında sayfa2'de yer alan çekiliş numaraları arasında çekiliş yapacak çıkan numara ne ise o numaraya ait kişi Görev alacak personelin altındaki yere çekiliş numarası ve adı birlikte alt alta aktarılacak.
YALNIZ;
[[/U].

Bu konuda yardımcı olabilir misiniz?

Bu çekilişte ki amacınız, sıra vermek için mi?

 

[Yesilyurtlu]

Anlasam yardımcı olmaya çalışıcam ama;

1- Yuvarlaklar arasında çekiliş yapmak ne demek ?
2- G1 de 20 yazıyor. Çekiliş Yap butonuna tıklayınca 20 kişi mi seçecek ?
3- Sayfa2 de yer alan isimler bitinceye kadar demişsin. Kullanıcı butona birden çok kez tıklayacak doğru mu ?

1 - Yuvarlaklar arası şart değil.
2 - Çekiliş yap butonu 20 kişi değil G1 de yazan rakam kadar olacak.20 de olabilir 15 de.

3 - İsimler bitinceye kadar dememde ki amaç. 2. Çekilişte 1. çekilişte yer alan isimlerin olmaması.



Bu çekilişte ki amacınız, sıra vermek için mi?

Hayır. İsim Listesinde yer alan listeden G1 de yazan sayı kadar gruplar oluşturmak. Ve bu gruplara görev vermek


Teşekkür Ederim

 

[leumruk]

Merhaba,
Aşağıdaki örneği deneyin. Eleman sayısının çift olması gerekli. Bir salon başkanı bir gözcü seçerek dağıtım yapıyor. Bu nedenle eğer 10 eleman sayısı varsa; g1 hücresini yarısı kadar sayı gireceksiniz, yani 5 değerini gireceksiniz. Tablonuzun yapısında biraz değişiklik yaptım. Her tıklamada önceki kayıtları silip yeniden seçiyor.

Sub Cekilis_Yap()
Set s2 = Sheets("Sayfa2")
Set s3 = Sheets("Sayfa3")
Kisi_Sayisi = WorksheetFunction.CountA(s2.Range("b4:b" & s2.[a65536].End(3).Row))
If Kisi_Sayisi < Val([g1]) * 2 Then
MsgBox "Eleman sayınız dağıtmak istediğiniz miktardan az.", vbCritical, "UYARI"
Exit Sub
End If
Range("g5:h65536").ClearContents
Application.ScreenUpdating = False
Do While Say <> [g1]
Sut = 7
Say = Say + 1
Sat = s3.[g65536].End(3).Row + 1
Tekrar:
Sayi = Int((Kisi_Sayisi * Rnd) + 1) + 3
knt = WorksheetFunction.CountIf(s3.Range("g5:h" & s3.[g65536].End(3).Row + 1), s2.Cells(Sayi, "b"))
If knt > 0 Then GoTo Tekrar
s3.Cells(Sat, Sut) = s2.Cells(Sayi, "b")
If Sut = 7 Then
Sut = 8: GoTo Tekrar
End If
Application.CutCopyMode = False
Loop
End Sub

 

[Yesilyurtlu]

SAYIN leumruk ellerine sağlık Teşekkür Ederim