Vardiya Çizelgesi hazırlama

[Garuramon]

Merhaba Sayın Hocalarım,

toplamada 11 kişi olacak şekilde

8 saatlik 3 vardiya her vardiyada 3 er kişi olacak şekilde (07:00/15:00-15:00/23:00-23:00/07:00) excelde çizelce hazırlamak istiyorum.

Vardiyadakiler haftanın 6 günü çalışıp 1 gün izin kullanacaklar.
haftalık çalışma saatleri 45 saati gecmeyecek.

desteğinizi rica ediyorum.
şimdiden teşekkürler.

 

[muygun]

Merhaba;
Daha önce bir üyemiz için oluşturduğum tablo sizin işinizide görebilir.
4 sayfadan oluşan tablonun ilk sayfasından başlayarak her sayfasındaki açıklamaları okuyun ve tabloyu test edin.
İyi çalışmalar.

 

[Garuramon]

Değerli Hocam,
gönderiniz değerli bilgiler icin teşekkür ederim.anlatımlarınıza bakarak ilgili yerleri doldurdum.fakat biraz bilgisayar özürlü olduğum için bazı sorularım olacak.yardım ederseniz sevinirim.

1-dosyada sanki sonuç kısmında bir hata varmış gibi geldi bana nöbet sıra nosu 31 e kadar gelmemiş bu şekildemi olması gerekiyor.
2-aynı sayfada göster butonunun altında a harfi var ne işe yarıyor.
3-sabit kısımda ''Ayrıca L sütunundan IU sütuna kadar ekstra nöbet tutmayacakları tarihleri yazabilirsiniz'' diye belirtmişsiniz örnek x personelim 3 gün rapor aldı raporlu olduğu tarihleri belirtiğiniz alana girersem x personeline o günlerde nöbet yazmayacak ve diğer 10 personele göre dağılımı yapılacak doğrumu anlamışım.
4-'' 1. satırdaki "g" gizlenecek sütunları belirler. 1. satırda gri font üzerindeki "g" ler formülle yazdırıldı. (Manuel olarakta belirleyebilirsiniz.)
Bundan sonra "gizle" butonuna basarak sadece gerekli tablonun görünür kalmasını , yada "göster" butonuna basarak tüm tabloyu gösterebilirsiniz.'' buradaki anlatımınızı anlamadım bahsettiğiniz g ler b1 ile aj1 arasında ve gri dolgu değil.bu gizle gösteri tam olarak anlamış değilim.

dosyada yanlış olduğunu düşündüğünüz bir yer varsa düzeltirmisiniz.

 

[halit3]

Alternatif bir uygulama

açıklama dosyada mevcut olup sizin yapacağınız işlemleri aşağıya yazıyorum.

1 veri sayfasında A ve b sütununa verilerinizi yazınız.
2 hafiza sayfasında X Sütununda günlere isabet eden nöbet sayısı yazılacak
3 data sayfasına geçiniz.
4 Data sayfasında B1 hücresine Başlangıç tarihi C1 hücresine bitiş tarihi yazınız.
5 Temizle data sayfası hepsini düğmesine tıkla
6 Takvimi aktar 3 hepsi düğmesine tıkla
7 Temizle data sayfası düğmesini tıkla
8 Haftalık aktar veya aylık aktar düğmelerinden birine tıkla
9 daha sonra diğer sayfalardaki düğmelere sırasıyla tıkla ve gözlemle

not: 5 ve 6 sıradaki düğmeye sadece tarih değişikliğinde tıklıyacaksınız.

 

[muygun]

Değerli Hocam,
gönderiniz değerli bilgiler icin teşekkür ederim.anlatımlarınıza bakarak ilgili yerleri doldurdum.fakat biraz bilgisayar özürlü olduğum için bazı sorularım olacak.yardım ederseniz sevinirim.

1-dosyada sanki sonuç kısmında bir hata varmış gibi geldi bana nöbet sıra nosu 31 e kadar gelmemiş bu şekildemi olması gerekiyor.
2-aynı sayfada göster butonunun altında a harfi var ne işe yarıyor.
3-sabit kısımda ''Ayrıca L sütunundan IU sütuna kadar ekstra nöbet tutmayacakları tarihleri yazabilirsiniz'' diye belirtmişsiniz örnek x personelim 3 gün rapor aldı raporlu olduğu tarihleri belirtiğiniz alana girersem x personeline o günlerde nöbet yazmayacak ve diğer 10 personele göre dağılımı yapılacak doğrumu anlamışım.
4-'' 1. satırdaki "g" gizlenecek sütunları belirler. 1. satırda gri font üzerindeki "g" ler formülle yazdırıldı. (Manuel olarakta belirleyebilirsiniz.)
Bundan sonra "gizle" butonuna basarak sadece gerekli tablonun görünür kalmasını , yada "göster" butonuna basarak tüm tabloyu gösterebilirsiniz.'' buradaki anlatımınızı anlamadım bahsettiğiniz g ler b1 ile aj1 arasında ve gri dolgu değil.bu gizle gösteri tam olarak anlamış değilim.

dosyada yanlış olduğunu düşündüğünüz bir yer varsa düzeltirmisiniz.

1-31 e kadar olan sayı tarih değil. (kişilerin tuttuğu nöbet sayısı) Dolayısıyla bu sayıya kadar gelip gelmemesi kişi sayısı,nöbet yeri sayısı vs.. kriterlere bağlı. yeterli gelmezse siz bu alanı aşağı doğru çoğaltın.
2- burdaki a harfi sütun gizleme-gösterme makrosu için kullanılıyor (a=açık,g=gizle) diğer sütunlar formül ile bu a yada g işlemini yapıyor. B sütununu göstermek istediğim için manuel a yazdım.
3-Doğru anlamışsınız. Buraya yazacağınız tarihler için kişi pas geçilecek.
4- g leri silerek butona basarsanız anlaşılması daha kolay olur.
Dosyada hatalı olduğunu düşündüğüm bir nokta yok. Bununla ilgili bir tespitiniz varsa ve bildirirseniz yardımcı olmaya çalışırım.
İyi çalışmalar.

 

[Garuramon]

Alternatif bir uygulama

açıklama dosyada mevcut olup sizin yapacağınız işlemleri aşağıya yazıyorum.

1 veri sayfasında A ve b sütununa verilerinizi yazınız.
2 hafiza sayfasında X Sütununda günlere isabet eden nöbet sayısı yazılacak
3 data sayfasına geçiniz.
4 Data sayfasında B1 hücresine Başlangıç tarihi C1 hücresine bitiş tarihi yazınız.
5 Temizle data sayfası hepsini düğmesine tıkla
6 Takvimi aktar 3 hepsi düğmesine tıkla
7 Temizle data sayfası düğmesini tıkla
8 Haftalık aktar veya aylık aktar düğmelerinden birine tıkla
9 daha sonra diğer sayfalardaki düğmelere sırasıyla tıkla ve gözlemle

not: 5 ve 6 sıradaki düğmeye sadece tarih değişikliğinde tıklıyacaksınız.

Halit Bey ,

Yardımlarınız için teşekürler 1 aylık nöbet listesini oluşturdum.fakat 2. ay hazırlanırken dönüşlerde sorun olacak gibi geliyor bana
yıllık hazırla sekmesi olabilirmi mümkünse eklemenizi rica ediyorum.
tablo sayfasından bir şey anlamadım acıklarmısınız.

 

[halit3]

Halit Bey ,

Yardımlarınız için teşekürler 1 aylık nöbet listesini oluşturdum.fakat 2. ay hazırlanırken dönüşlerde sorun olacak gibi geliyor bana
yıllık hazırla sekmesi olabilirmi mümkünse eklemenizi rica ediyorum.
tablo sayfasından bir şey anlamadım acıklarmısınız.

Mevcut dosyaya data sayfasına (haftalık aktar 2) düğmesi ekledim.
01.01.2014 den 18.03.2014 tarihine kadar aktarım yaptım.
yani (haftalık aktar 2) düğmesi ne tıkladım ekrandaki 7 yazan yere 63 yazdım ve tamam dedim.
Bütün personellere 63 defa nöbet aktardı ve herkese haftalık gün olarak 9 defa aynı güne nöbet aktardı.

bu durumda işlem akışı şöyle olacak.

Alternatif bir uygulama

açıklama dosyada mevcut olup sizin yapacağınız işlemleri aşağıya yazıyorum.

1 veri sayfasında A ve b sütununa verilerinizi yazınız.
2 hafiza sayfasında X Sütununda günlere isabet eden nöbet sayısı yazılacak
3 data sayfasına geçiniz.
4 Data sayfasında B1 hücresine Başlangıç tarihi C1 hücresine bitiş tarihi yazınız.
5 Temizle data sayfası hepsini düğmesine tıkla
6 Takvimi aktar 3 hepsi düğmesine tıkla
7 Temizle data sayfası düğmesini tıkla
8 Haftalık aktar 2 düğmesine birden fazla tıklanabilir.
9 daha sonra diğer sayfalardaki düğmelere sırasıyla tıkla ve gözlemle

not: 5 ve 6 sıradaki düğmeye sadece tarih değişikliğinde tıklıyacaksınız.

uyarı:

Ekli tabloya göre bir daha ki nöbet listesi 19.03.2014 tarihinden itibaren yapılacak.

 

[Garuramon]

Mevcut dosyaya data sayfasına (haftalık aktar 2) düğmesi ekledim.
01.01.2014 den 18.03.2014 tarihine kadar aktarım yaptım.
yani (haftalık aktar 2) düğmesi ne tıkladım ekrandaki 7 yazan yere 63 yazdım ve tamam dedim.
Bütün personellere 63 defa nöbet aktardı ve herkese haftalık gün olarak 9 defa aynı güne nöbet aktardı.

bu durumda işlem akışı şöyle olacak.

Alternatif bir uygulama

açıklama dosyada mevcut olup sizin yapacağınız işlemleri aşağıya yazıyorum.

1 veri sayfasında A ve b sütununa verilerinizi yazınız.
2 hafiza sayfasında X Sütununda günlere isabet eden nöbet sayısı yazılacak
3 data sayfasına geçiniz.
4 Data sayfasında B1 hücresine Başlangıç tarihi C1 hücresine bitiş tarihi yazınız.
5 Temizle data sayfası hepsini düğmesine tıkla
6 Takvimi aktar 3 hepsi düğmesine tıkla
7 Temizle data sayfası düğmesini tıkla
8 Haftalık aktar 2 düğmesine birden fazla tıklanabilir.
9 daha sonra diğer sayfalardaki düğmelere sırasıyla tıkla ve gözlemle

not: 5 ve 6 sıradaki düğmeye sadece tarih değişikliğinde tıklıyacaksınız.

uyarı:

Ekli tabloya göre bir daha ki nöbet listesi 19.03.2014 tarihinden itibaren yapılacak.

Halit Bey,

Kıymetli olan zamanınızdan vakit ayırdığınız için teşekkür ederim.dosyada rapor sekmesine birşeyler yazdım yardımcı olabilirmisiniz.

nöbetlerde ayın bazı günlerinde personel dinlenmeden 16 saat nöbet tutuyor.yada 8 saat dinlenip tekrar nöbete geliyor.
personele nöbet bitiminden 16 saat sonra yeni nöbet yazabilirmiyiz formülle bu mümkünmüdür.ekteki dosyaya işleyebilirmisiniz.

desteğiniz için tekrar teşekkür ederim.hakkınızı helal edin.

 

[halit3]

Halit Bey,

Kıymetli olan zamanınızdan vakit ayırdığınız için teşekkür ederim.dosyada rapor sekmesine birşeyler yazdım yardımcı olabilirmisiniz.

nöbetlerde ayın bazı günlerinde personel dinlenmeden 16 saat nöbet tutuyor.yada 8 saat dinlenip tekrar nöbete geliyor.
personele nöbet bitiminden 16 saat sonra yeni nöbet yazabilirmiyiz formülle bu mümkünmüdür.ekteki dosyaya işleyebilirmisiniz.

desteğiniz için tekrar teşekkür ederim.hakkınızı helal edin.

data sayfasında aktarma işlemi bittikten sonra
16 saatleri işaretle ve 16 saatleri düzelt düğmesi ekledim.
burada işlemi anlayabilmeniz için iki adet komut düğmesi ekledim.
işaretle komut düğmesinde 16 saat dinlenme olmayanları sarı renkle belirtiyor düzelt komut düğmesi de bunları düzeltiyor.

Tabi bu işlemleri yaptıktan sonra rapor,form,liste vb. sayfalardaki düğmelere yeniden tıklamanız gerekiyor.

 

[Garuramon]

data sayfasında aktarma işlemi bittikten sonra
16 saatleri işaretle ve 16 saatleri düzelt düğmesi ekledim.
burada işlemi anlayabilmeniz için iki adet komut düğmesi ekledim.
işaretle komut düğmesinde 16 saat dinlenme olmayanları sarı renkle belirtiyor düzelt komut düğmesi de bunları düzeltiyor.

Tabi bu işlemleri yaptıktan sonra rapor,form,liste vb. sayfalardaki düğmelere yeniden tıklamanız gerekiyor.

Değerli Hocam,

programda 16 saat ile ilgili tespit ettiğim çakışmalar var rapor sayfasına yazdım.Desteğinizi rica ediyorum.

 

[Garuramon]

düzenleme

1-31 e kadar olan sayı tarih değil. (kişilerin tuttuğu nöbet sayısı) Dolayısıyla bu sayıya kadar gelip gelmemesi kişi sayısı,nöbet yeri sayısı vs.. kriterlere bağlı. yeterli gelmezse siz bu alanı aşağı doğru çoğaltın.
2- burdaki a harfi sütun gizleme-gösterme makrosu için kullanılıyor (a=açık,g=gizle) diğer sütunlar formül ile bu a yada g işlemini yapıyor. B sütununu göstermek istediğim için manuel a yazdım.
3-Doğru anlamışsınız. Buraya yazacağınız tarihler için kişi pas geçilecek.
4- g leri silerek butona basarsanız anlaşılması daha kolay olur.
Dosyada hatalı olduğunu düşündüğüm bir nokta yok. Bununla ilgili bir tespitiniz varsa ve bildirirseniz yardımcı olmaya çalışırım.
İyi çalışmalar.

Değerli hocam ,

Vermiş olduğunuz dosyaya ek yapmak istiyorum liste sekmesini tablo sekmesine uyarlamanız mümkünmü.

Dosyada sonuç sekmesinde sarı ile işaretlediğim nöbetlerde personel akşam nöbete gelip sabah devam ediyor yani dinlenmeden 16 saat çalışıyor.Düzeltebilirmiyiz.mesala sistem her nöbeti ,nöbet bitiminden 16 saat sonraya yazabilirmi yani 01.06.2014 07:00/15:00 nöbetine gelen personel 02.06.2014 07:00/15:00 yada 15:00/23:00 nöbetine geldin.

 

[halit3]

Değerli Hocam,

programda 16 saat ile ilgili tespit ettiğim çakışmalar var rapor sayfasına yazdım.Desteğinizi rica ediyorum.

dokuz adet nöbet yeri var bunları üç tanesi aynı zamanda toplam 11 kişi var illaki 16 saat uygulamasına takılır.
Boşuna kürek çekmiyelim.

 

[Garuramon]

teşekkür

dokuz adet nöbet yeri var bunları üç tanesi aynı zamanda toplam 11 kişi var illaki 16 saat uygulamasına takılır.
Boşuna kürek çekmiyelim.

yardımlarınız için gönülden teşekkür ederim.

 

[halit3]

yardımlarınız için gönülden teşekkür ederim.

Sizin bu durumda karıştır fonksiyonu dışında işlem yapmak gerekiyor. aşağıdaki kodu data sayfasında sayfayı temizledikten sonra çalıştırın kod sırasıyla isimleri dağıtacaktır.

Sub aktar11()

sat = Worksheets("data").Cells(Rows.Count, "g").End(3).Row
If sat = 1 Then sat = sat + 1

say = 0
For r = 7 To 15
If Worksheets("data").Cells(sat, r).Value = "" Then
say = r
Exit For
End If
Next r

If say > 0 Then
sut = say
Else
sut = 7
sat = sat + 1
End If

baslangıc = Application.InputBox("Kaç kere aktarma yapacaksınız.", "Sayı giriniz.", "1", 400, 30, , Type:=1)
    
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

For te = 1 To baslangıc

For i = 2 To Worksheets("veri").Cells(Rows.Count, "b").End(3).Row
aranan = Worksheets("veri").Cells(i, 2).Value
Worksheets("data").Cells(sat, sut).Value = aranan
sut = sut + 1
If sut = 16 Then sut = 7: sat = sat + 1
Next i
Next te
MsgBox "işlem tamam"
End Sub

 

[Garuramon]

Sizin bu durumda karıştır fonksiyonu dışında işlem yapmak gerekiyor. aşağıdaki kodu data sayfasında sayfayı temizledikten sonra çalıştırın kod sırasıyla isimleri dağıtacaktır.

Sub aktar11()

sat = Worksheets("data").Cells(Rows.Count, "g").End(3).Row
If sat = 1 Then sat = sat + 1

say = 0
For r = 7 To 15
If Worksheets("data").Cells(sat, r).Value = "" Then
say = r
Exit For
End If
Next r

If say > 0 Then
sut = say
Else
sut = 7
sat = sat + 1
End If

baslangıc = Application.InputBox("Kaç kere aktarma yapacaksınız.", "Sayı giriniz.", "1", 400, 30, , Type:=1)
    
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

For te = 1 To baslangıc

For i = 2 To Worksheets("veri").Cells(Rows.Count, "b").End(3).Row
aranan = Worksheets("veri").Cells(i, 2).Value
Worksheets("data").Cells(sat, sut).Value = aranan
sut = sut + 1
If sut = 16 Then sut = 7: sat = sat + 1
Next i
Next te
MsgBox "işlem tamam"
End Sub

Değerli hocam,

ben excelde yeniyim pek macrodan falan anlamam dosyayı ekledim rica etsem kodları ilgili yere iliştirirmisiniz.

 

[halit3]

Değerli hocam,

ben excelde yeniyim pek macrodan falan anlamam dosyayı ekledim rica etsem kodları ilgili yere iliştirirmisiniz.

data sayfasına (sıra ile aktar) düğmesi ekledim bu düğme ile kişiler sırası ile aktarma yapılıyor.

 

[muygun]

Değerli hocam ,

Vermiş olduğunuz dosyaya ek yapmak istiyorum liste sekmesini tablo sekmesine uyarlamanız mümkünmü.

Dosyada sonuç sekmesinde sarı ile işaretlediğim nöbetlerde personel akşam nöbete gelip sabah devam ediyor yani dinlenmeden 16 saat çalışıyor.Düzeltebilirmiyiz.mesala sistem her nöbeti ,nöbet bitiminden 16 saat sonraya yazabilirmi yani 01.06.2014 07:00/15:00 nöbetine gelen personel 02.06.2014 07:00/15:00 yada 15:00/23:00 nöbetine geldin.

Merhaba;
sarı ile işaretlediğiniz;

08.06.2014 pazar
altındaki nöbet
10.06.2014 salı

14.06.2014 cumartesi
altındaki nöbet
17.06.2014 salı

22.06.2014 pazar
altındaki nöbet
24.06.2014 salı

Ertesi sabah nöbet devamlılığını anlayamadım.
Ayrıca Halit beyin tespiti doğru. Yeterli kişi yoksa 16 aralığını tutturmanız mümkün değil.

Ayrıca bu tablo ile bunu yapmanızda mümkün. (2 kişi raporlu 2 kişi izinli dediğiniz an kalan kişiler nöbet ağacı olmak zorunda. Basit bir hesapla 3 nöbetci 3 vardiya nöbet tutarsa size minimum 9 kişi lazım)
Ayrıca Halit beyin tespiti doğru. Yeterli kişi yoksa 16 saat kriteri bozulacaktır.

ÖNEMLİ NOT: sonuç sayfası A sütunundaki rakamlar tarih değil. Bu bir sıra no. 18 sayısı 18. nöbeti belirtmektedir.

İyi çalışmalar.

 

[nesta22tr]

İki ayrı ekstreyi karşılaştırıcak bir formül varmı acaba ?

 

[yildiz1453]

NÖBET

merhaba;
daha önce bir üyemiz için oluşturduğum tablo sizin işinizide görebilir.
4 sayfadan oluşan tablonun ilk sayfasından başlayarak her sayfasındaki açıklamaları okuyun ve tabloyu test edin.
Iyi çalışmalar.

iyi günler
4 sınıf 6 etüdlük nöbet çizelgesi hazırlamak istiyorum yardımlarınıza ihtiyacım var....

 

[yildiz1453]

NÖBET

4 sınıflık 6 etüdlük nöbet çizelgesine ihtiyacım var....
Yardımlarınıza ihtiyacım var üstadlar