nöbet listesine eşit sayıda ama rastgele sırayla isim dağıtmak

[leumruk]

bende bir istekete bulunabilirmiyim...
pansiyonda nöbet için
koşullar hafta içi günlerde 2 kişi cumartesi pazar 1 kişi nöbet tutacak
birkişiye haftada 2 nöbetten fazla verilmeyecek ve nöbetler aynı kişiye arka arkaya gelmeyecek
a kişisi pazartesi ve çarşamba
b kişisi salı ve perşembe sabit olmak üzere
mümkün olduğu kadar eşit bir şekilde dağıtılması
örnek dosya olarak 16. mesajdaki dosyayı kullanabiliriz

Merhaba,
Kendi örnek dosyanızı eklemeniz daha uygun olacaktır. Aşağıdaki sorularında cevabını belirtirseniz işimiz kolaylaşır.
Nöbet tutacak toplam öğretmen sayısı kaçtır?
Bir günde 2 nöbetçi mi görevli olacak?
Cumartesi-Pazar birer nöbetçi mi, yoksa her iki güne bir nöbetçi mi düşecek.

 

[wezyr]

7- 8 kişilik 2 nöbet yeri

Dosya ektedir...
hafta içi 2 kişi hafta sonu ve tatil günleri tek kişi olacak şekilde 7- 8 kişilik nöbet cizelgesi...

 

[wezyr]

sorun güncel

 

[erdenek]

Arkadaşlar bu nöbet programını okula göre uyarladım ama nöbet listesi oluştur butonuna basdığım zaman ı ve j sütununda isim çıkmaması lazım.birde yazdırdığım zaman d ve h sütunuda dahil çıksın diğer sütunlardaki bilgiler çıkmasın.

 

[wezyr]

sorum güncel
dosya 22. mesajda

 

[erdenek]

sorun güncel
dosya 22. mesajda

arkadaşım benim yaptığımla 22.mesajdaki farklı.

 

[wezyr]

ben senin soruna cevap vermedim ben kendi sorumun cözümünü arıyorum
benim sorum için dosyam 22. mesajdadır...
iyi çalışmalar dilerim

Dosya ektedir...
hafta içi 2 kişi hafta sonu ve tatil günleri tek kişi olacak şekilde 7- 8 kişilik nöbet cizelgesi...

 

[leumruk]

Arkadaşlar bu nöbet programını okula göre uyarladım ama nöbet listesi oluştur butonuna basdığım zaman ı ve j sütununda isim çıkmaması lazım.birde yazdırdığım zaman d ve h sütunuda dahil çıksın diğer sütunlardaki bilgiler çıkmasın.

Syn. Erdenek,
Kullandığınız kodu aşağıdakiyle değiştirin.

Sub nobetlistesi()
Randomize
say = WorksheetFunction.CountA([b:b])
son = [d65536].End(3).Row
Range("e3:h33").ClearContents
ekle = 1
20 encok = WorksheetFunction.Max([c:c])
For a = 1 To [b65536].End(3).Row
10 sira = Int(say * Rnd + 1)
isim = Cells(sira, "b")
deg = Cells(sira, "c")
satir = Range("e3:h" & son)(hucresay + ekle).Row
say1 = WorksheetFunction.CountIf(Range("e" & satir & ":h" & satir), isim)
If deg > encok Or say1 > 0 Then GoTo 10
hucresay = hucresay + 1
Range("e3:h" & son)(hucresay) = isim
If Range("e3:h" & son).Count = hucresay Then Exit Sub
Next
GoTo 20
End Sub

 

[leumruk]

sorum güncel
dosya 22. mesajda

Syn. wezyr,
Sizin isteğinize ancak haftasonu bakabilirim. Bu kadar şartı biraraya getirirken başımdaki işlemciyi yakmazsam eğer, sanırım bir çözüm(?) üretebilirim.

 

[wezyr]

teşekür ederim üstad... acelemiz yok ... ama bakarsan çok makbule geçer hak geçmemesi açısından...

 

[erdenek]

Syn. Erdenek,
Kullandığınız kodu aşağıdakiyle değiştirin.

Sub nobetlistesi()
Randomize
say = WorksheetFunction.CountA([b:b])
son = [d65536].End(3).Row
Range("e3:h33").ClearContents
ekle = 1
20 encok = WorksheetFunction.Max([c:c])
For a = 1 To [b65536].End(3).Row
10 sira = Int(say * Rnd + 1)
isim = Cells(sira, "b")
deg = Cells(sira, "c")
satir = Range("e3:h" & son)(hucresay + ekle).Row
say1 = WorksheetFunction.CountIf(Range("e" & satir & ":h" & satir), isim)
If deg > encok Or say1 > 0 Then GoTo 10
hucresay = hucresay + 1
Range("e3:h" & son)(hucresay) = isim
If Range("e3:h" & son).Count = hucresay Then Exit Sub
Next
GoTo 20
End Sub

ellerine sağlık arkadaşım.

 

[wezyr]

leumruk üstad bugün bakabilrsen çok sevinirim malum ay sonu yarın yeni listeyi duyurmam gerekiyor.

 

[leumruk]

Merhaba,
Örnek bir dosya hazırladım.
1- Solda yazılı isim listesinden herhangi bir isme çift tıkladığınızda karşınıza bir form çıkacak bu formdan seçili ismin hangi günlerde nöbet tutacağını seçebilirsiniz. Seçtiğiniz bu isimlere listede o günleri kapatacaktır ve bu isimler dağılıma dahil edilmeyecektir.
2- Dağıtım biraz uzun sürebilir. İşlem gereğinden fazla uzarsa muhtemelen koşullar sağlanmıyor demektir. ESC tuşu ile işlemi sonlandırabilirsiniz. ESC ile sonlandırma yapabilmek için herhangi bir hücrenin seçili olması gerekiyor.
3- Resmi tatil olan gün hangisiyse o tarihteki hücrelerden harhangi birine çift tıkladığınızda o hücreyi kapatmış olursunuz. Yani o hücreye nöbet yazılmaz. İptal için aynı hücreye tekrar çift tıklamanız yeterlidir.

 

[wezyr]

teşekkür ederim eline sağlık

 

[leumruk]

Merhaba,
33. mesajdaki dosya güncellenmiştir. Kodlama sırasında ufak bir ayrıntıyı gözden kaçırmışım. Bu da gereksiz döngü oluşturuyor ve kodun gereğinden fazla yavaşlamasına sebep oluyordu.
Yeni düzenleme ile çok daha süratli sonuca ulaşabilirsiniz.

 

[felixander]

Merhaba,
Örnek bir dosya hazırladım.
1- Solda yazılı isim listesinden herhangi bir isme çift tıkladığınızda karşınıza bir form çıkacak bu formdan seçili ismin hangi günlerde nöbet tutacağını seçebilirsiniz. Seçtiğiniz bu isimlere listede o günleri kapatacaktır ve bu isimler dağılıma dahil edilmeyecektir.
2- Dağıtım biraz uzun sürebilir. İşlem gereğinden fazla uzarsa muhtemelen koşullar sağlanmıyor demektir. ESC tuşu ile işlemi sonlandırabilirsiniz. ESC ile sonlandırma yapabilmek için herhangi bir hücrenin seçili olması gerekiyor.
3- Resmi tatil olan gün hangisiyse o tarihteki hücrelerden harhangi birine çift tıkladığınızda o hücreyi kapatmış olursunuz. Yani o hücreye nöbet yazılmaz. İptal için aynı hücreye tekrar çift tıklamanız yeterlidir.

Kardeşim sana zahmet bu dosyadaki listeyi günlük 3 kişinin nöbet tutacağı şekilde ayarlayabilir misin?
yani e ve f sütunlarının yanına bir sütun daha eklemen yeterli olacaktır. şimdiden teşekkürler

 

[lasmar]

bu çalışmaya destek veren uzman arkadaşlar gerçekten güzel sonuçlara vardık. ama sanırım herkese hitap edecek bir çalışma için son olarak bir örnekle sorum olacak, sanırım özellikle 24 saat çalışılan birimler için vazgeçilmez olacaktır.

ekli dosyada yardım istediğim;
- nöbetçi sayısı sınırlandırması olmasın ve bu sayı belirli bir hücrede kullanıcı tarafından belirlense, (bkz; C3)

-:yardim: LİSTE OLUŞURKEN HER GÜN AYRI AYRI HESAPLANSA
(yani haftanın yedi günü ayrı ayrı herkese adil şekilde dağıtılsa)

-tarihi belli olan resmi tatilller ve bunlara sonradan eklenen idari tatiller (birleştirilen dini bayram günleri gibi) için bir tarihi girme alanı oluşturulsa ve yarım gün çalışılan günler renklendirilerek belirlense (bkz; m35:m65)

Önceki sonuca bakarak kıymetli uzmanlarımızdan yine güzel sonuçlar bekliyorum. Şimdiden teşekkürler.

 

[perkullekul]

farklı bir tablo.

merhaba arkadaşlar. örneklerin tamamını inceledim. aslında aradığım şeye yakın ama yazılım bilgim çok fazla olmadığından kendi istediğim tabloya uyarlayamadım bu yaptıklarınızı. eğer bana zaman ayırıp, çok fazla olduğunu düşünmediğim uyarlamayı benim dosyama yapabilirsseniz sevinirim. şimdiden teşekkür ederim.

not: bu tablo hastane görevlilerinin aylık nöbet tablosudur. bazı kaideleri vardır. onu da dosyanın içerisinde belirttik zaten.

 

[perkullekul]

Arkadaslar yardım edecek kimse yok mu? Sadece rastsal sayı belirlemesi dahi yeterli olacaktır benim için. Teşekkürler.

 

[bilbilisim]

burakugur pansiyon nöbet programı diye bişey var, aldık rahatladık hocam, excel le bu iş olmuyor