...ait otomatik olarak çizelge oluşturulur.
-Excel dosyası olarak kaydedecek ve Tarih Gün bilgisi otomatik gelecektir.
-Kişilerin o listede kaç nöbet tuttuğu bilgisi de gelecektir.
Açık kaynak kodları: https://github.com/md3m1ray/NobetAppV2
Dosya boyutu büyük hatası nedeniyle konu ekine...
Her gün 1 kişi nöbetçi olacak. Aynı personel farklı bir gün 2. nöbeti de tutabilir. Tek kriter 8 nöbetçinin sadece müsait olduğu günlerde nöbet tutması.
Arkadaşlar merhaba ofiste bi nöbet çizelgesi oluşturmam gerekiyor. 8 kişi haftanın 5 günü ofiste nöbetçi olacak. Ancak herkes müsait günleri farklı. Mesela 2 kişi haftanın tüm günü müsait 3 kişi 3 günü 2 kişi 2 günü gibi. Bunu nasıl yapabiliriz? Ekte yer alan dosyada müsaitlik olmadan...
https://dosya.co/m74hb523294k/NÖBET_LİSTESİ.xls.html
örnek dosyada adı geçen Musa ATLI hangi ay olursa olsun her salı ve cumartesi sabit nöbetçi ( ünvanı nedeni ile ) fomül yardımı ile musa atlı nın hangi ay olursa olsun her salı ve cumartesi günlerine isminin yazılması sağlanabilirmi
bu arada...
Değerli Üstatlar Merhaba,
Üstatlarım, konuyu çok araştırdım ama maalesef bulamadım. Sorum, Excel'de tarih gece 00.00'te değişiyor. Oysa bizim nöbet tuttuğumuz kurumdaki tarih değişikliği Excel'de benim belirlediğim A1, A5, A12, A13, B2, B7 hücrelerinde hafta içi saat : 08:30'da, hafta sonu ise...
Merhaba;
Ekteki dosyanın her iki sayfasını da inceleyin.
Bence makro çözümü kullanın.
İyi çalışmalar.
Link:
https://www.dosya.tc/server/6z1p4h/ramazancayiroglu-nobet.zip.html
Merhabalar arkadaşlar.
5 kişilik bir çalışanımız var. Nöbetler sadece hafta sonu tutulmakta. Her nöbette 2 kişi olmak zorunda.
İsimler ( Örnek );
Ahmet, Mehmet, Mustafa, Murat, Selim'dir.
Önemli nokta; Ahmet 1 hafta tutacak, 1 hafta tutmayacak. Diğer isimler ise random olarak gelecek. Sanırım...
Merhaba.
2. ve 3. sorulardaki cevaplar aşağıdaki kod yapıyor galiba, bir deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If [B2].Value <> "Eylül" Then Rows("19:21").EntireRow.Hidden = False
If [B2].Value <> "Mart" Then Rows("19:21").EntireRow.Hidden = False
If [B2].Value <>...
...işlerde, işçinin yazılı onayının alınması şartıyla yedi buçuk saatin üzerinde gece çalışması yaptırılabilir.
Gece ve gündüz işletilen ve nöbetleşe işçi postaları kullanılan işlerde, bir çalışma haftası gece çalıştırılan işçilerin, ondan sonra gelen ikinci çalışma haftası gündüz...
Öncelikle merhabalar,
Elimde bir aylık nöbet listesi var, hangi günde kaç saat nöbet tutulacağını 3 farklı renkle belirledim,
Yeşiller 8,
Maviler 16,
Turuncular 24, saat olacak şekilde.
Bu alanlara nöbet tutacak kişinin ismini yazdığımda renge göre değerler toplamını ismin karşısında...
Arkadaşlar, sayın hocalarım, bir nöbet çizelgesi hazırladım.
Bunu İndisle yapabiliyorum, rastgele seçiyor.
Ancak aynı günde aynı isim oluyor.
Ben buradaki hocalarım sayesinde elbette hep makro öğrenmeye çalıştım.
Yardımcı olursanız müteşekkir olurum.
Saygılarımla.
...A
Salı: B
Çarşamba: C
Perşembe: D
Vardiya Saatleri:
08:00 - 16:00
16:00 - 00:00
00:00 - 08:00
Cuma, Cumartesi ve Pazar Geceleri:
İki kişi nöbet tutacak.
Plan Şablonu
1. Hafta
GünSabah (08:00-16:00)Akşam (16:00-00:00)Gece (00:00-08:00)
Pazartesi
A
B
C
Salı
B
C
D
Çarşamba
C
D...
Merhabalar. Yaptığınız exceli çok beğendim. Elinize sağlık ama kendi excel dosyama uyarlayamıyorum. Aşağıda paylaştığım excel formatında bayramlarında işaretlenmesini bayram-haftaiçi-hafta sonu sayısı ve nöbet tarihlerini otomatik yazması konusunda bana yardımcı olabilir misiniz? Teşekkür ederim.
...bir yöntem uyguladım. Eğer aynı şeye ihtiyacı olup araştıran biri olursa örnek olması için paylaşıyorum.
=EĞER(MAK(C12:C25)-MİN(C12:C25)>=2;"Nöbet Listesine Uygun Olmayan Birini Yazdınız";"Listede Şuan İçin Fazla Yazılan Biri Görünmüyor")
Burada nöbet sayılarının en yükseği ile en düşüğünü...
Merhaba
Bayram nöbet listesini tutan bir çalışma sayfayı yapmaya çalışıyorum ancak 2 konuda yardımınıza ihtiyacım var.
Şu anda 12 kişilik çalışan listesi var(bu sayı artabilir veya azalabilir). Nöbet sayısı en az olan kişilerin karşısında Nöbet İçin Uygun yazdırdım ancak şöyle bir sıkıntı var...
...100
'dim ie as internetexplorer
Dim number As String
Dim mytext As String
Dim sh As Worksheet
'set ie = new internetexplorer
Set sh = Sheets("nöbet listesi")
sh.Activate
Cells(i, 42).Copy
Range("Y2").Select
ActiveSheet.Paste
sh.Range("D1:Q32").Select
Selection.CopyPicture...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.