Nöbet Programı

[hakankilic]

Sitenin uzun süredir üyesiyim. Çok şey öğrendim. Teşekkür ederim.
Hocalarım rütbeliler için aylık nöbet programına ihtiyacım var.
1. Sayfa 1 A sütununda x kadar kişi yazılabilecek
2. Kişilerin önünde iki farklı tarih aralığı girildiğinde o tarih aralığına nöbet yazmayacak.
3. Haftanın günlerini adaletli dağıtacak. örneğin 9 kişi nöbet tutsun adamın birine 3 tane cumartesi, yada pazar yada cuma gelmemesi gerek...
4. bir önceki ayı kontrol edecek ve yine haftanın günlerinde yazılmayan günleri dikkate alarak nöbet yazacak.
Örnek dosyayı ekledim. Arz ederim.

 

[hakankilic]

Konu güncel

Konu hakkında yardım bekliyorum.

 

[hakankilic]

Zor iş sanırım.

 

[halit3]

Evet baya zor iş ve meşşakkatli iş
ben buraya bir örnek dosya ekliyorum dosyayı irdeleyiniz.

Not dosya çok fonksiyonlu olduğu için açıklama bölümünü okuyunuz sizin için data sayfasında kırmızı renkli düğmeler veya kırmızı puntalı yazılı düğmeler mevcut onları kullanınız.

Aşağıdaki linkde de bu çalışmalar mevcut

http://www.excel.web.tr/f136/nobet-daoylymy-ile-ilgili-caly-ma-t119798.html

 

[dukee_]

Evet baya zor iş ve meşşakkatli iş
ben buraya bir örnek dosya ekliyorum dosyayı irdeleyiniz.

Not dosya çok fonksiyonlu olduğu için açıklama bölümünü okuyunuz sizin için data sayfasında kırmızı renkli düğmeler veya kırmızı puntalı yazılı düğmeler mevcut onları kullanınız.

Aşağıdaki linkde de bu çalışmalar mevcut

http://www.excel.web.tr/f136/nobet-daoylymy-ile-ilgili-caly-ma-t119798.html

Halit hocam selamlar, aylık aktar kısmını kullandığımızda kişileri veri sayfasından istenilen kriterlere göre sıralı olarak getirme şansımız yokmudur. saygılar

 

[Sonarex33]

Halit hocam selamlar, aylık aktar kısmını kullandığımızda kişileri veri sayfasından istenilen kriterlere göre sıralı olarak getirme şansımız yokmudur. saygılar

Ustadim merhaba. Nobet cizelgesinden izniniz olursa bende yararlanmak isterim. Gordugum kadariyla nobetler gunluk duzenlenmis.sizden ricam hemsire nobeti icin iki vardiyadan olusan sabah.08:00-16:30 ile16:30-08:00 arasi olacak sekilde toplamdankac saat nobet tuttugunu raporu alinarak revize etminizi rica ederim. Calismalarinizda Kolayliklar dilerim

 

[halit3]

Halit hocam selamlar, aylık aktar kısmını kullandığımızda kişileri veri sayfasından istenilen kriterlere göre sıralı olarak getirme şansımız yokmudur. saygılar

aylık aktar komut düğmesindeki kodun içindeki
karıstir1
bölümünü silerseniz karıştırma işlemi olmayacaktır ve sıralı bir şekilde aktarım yapacaktır.

 

[halit3]

Ustadim merhaba. Nobet cizelgesinden izniniz olursa bende yararlanmak isterim. Gordugum kadariyla nobetler gunluk duzenlenmis.sizden ricam hemsire nobeti icin iki vardiyadan olusan sabah.08:00-16:30 ile16:30-08:00 arasi olacak sekilde toplamdankac saat nobet tuttugunu raporu alinarak revize etminizi rica ederim. Calismalarinizda Kolayliklar dilerim

Data sayfasındaki G:Z sütünlarındaki birinci satıra nöbet başlığını yazmanız yeterli olacaktır.

Buradaki örnekte G,H,I sütünların birinci satırında başlıklar var dolayısı ile nöbet yerleri üç olmuş oluyor.

 

[dukee_]

aylık aktar komut düğmesindeki kodun içindeki
karıstir1
bölümünü silerseniz karıştırma işlemi olmayacaktır ve sıralı bir şekilde aktarım yapacaktır.

Hocam tekrar selamlar,

Dediğiniz şekilde aylık aktar kod kısmındaki karıstir1 bölümünü sildim olmadı. Sonra karıştır1 kendi kod alanını da silerek denedim yine olmadı. Yardımlarınızı rica ederim.

 

[halit3]

Halit hocam selamlar, aylık aktar kısmını kullandığımızda kişileri veri sayfasından istenilen kriterlere göre sıralı olarak getirme şansımız yokmudur. saygılar

Yazınız bu karıştır1 bölümünü sildiğinizde kod sırası ile aktarım yapacaktır

Şu işlemide yapmalısınız


modül10 da
aktar4 makrosunun içindeki

bu bölümü

stt = Worksheets("gunler").Cells(i, 20).Value

bununla değiştir

stt = i

 

[dukee_]

hocam ellerinize sağlık, teşekkürler.

 

[dukee_]

Yazınız bu karıştır1 bölümünü sildiğinizde kod sırası ile aktarım yapacaktır

Şu işlemide yapmalısınız


modül10 da
aktar4 makrosunun içindeki

bu bölümü

stt = Worksheets("gunler").Cells(i, 20).Value

bununla değiştir

stt = i

Hocam, tekrar merhaba, herşey çok iyi fakat nöbet tutulacak yerlerdeki nöbet sayıları eşit veya eşite yakın gelmiyor. Birine 1 BÖLÜK' te altı nöbet verirken diğerine 1 nöbet verebiliyor, aynı durum diğer nöbet tutulacak yerler içinde geçerli, mümkün ise buraya müdahele etme imkanınız varmıdır ? Şimdiden teşekkürler, saygılar.

 

[halit3]

Data sayfasında bir çok özellikler mevcut

(aktar 1 X değerleri olmayanları aktar) komut düğmesini kullan bu komut düğmesi istediğinize yakın işlemi yapmaktadır.

 

[dukee_]

Halit Bey,

çok teşekkürler, saygılarımla

 

[hakankilic]

Halit hocam konuyu ben açtım. dukee_ konuya müdahil olmuş. Ama benim sorduğum soru ile dukee arkadaşın sorununa çözüm olmuş. Bana olmadı. Bende kendi başıma bir yerlerden kodlar elde ettim. Onun içinde oynamalar yaptım. Gayet güzel oldu. Çokta güzel nöbet dağıtımını yapıyor. Ancak bir kişiye şu tarihler arasında nöbet yazma bu tarihten sonra nöbet yaz diyemiyorum. Bunu beceremedim. Halit hocam sizde başka birinin kodlarına prensip olarak dokunmuyorum dediniz. Ben başka ustalara yönlendirebilirmisiniz. Sizden ricam. Buna çok ihtiyacım var. Saygılarımla.