mola süresini iş bitiş süresine eklemek

[hectorfd]

Merhabalar. İstemiş olduğum şey mola sürelerinin operasyonların bitiş süresine eklenmesi. Örnekte hangi saat dilimlerinin molaya denk geldiğini gün bazlı yan tarafına yazdım. Örneğin bir işin başlangıç saati 09:45-10:20 ise bu zaman diliminde 10:00-10:15 arası çay molasını hesaba katarak bitiş süresi 10:35 olmalı. Yardımlarınızı rica ederim.

 

[Asri]

Çalışma zamanlarını ve öğle arası molaları makro içinden düzenleyebilir siniz.
Diğer mola sürelerini D kolonundan girebilir siniz.

Kodu sayfanın kod bölümüne yapıştırın. A kolonunda her hangi bir değişiklik yaptığınızda kod çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    'A kolonunda değişiklik olur ise devreye gir
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
       'A kolununun sonssatır numarasını al
       sonsatir = Cells(Rows.Count, "A").End(3).Row
       'Mola kolonuna öğlen arası için standart 1 saat yaz
       Cells(9, "D").Value = TimeValue("01:00:00")
       'Tüm gün için hafta içi saatlerini güncelle, D kolonu mola sürelerini ekler
       Cells(2, "B").Value = TimeValue("08:00:00"): Cells(2, "C").Value = TimeValue("08:30:00") + Cells(2, "D").Value
       Cells(3, "B").Value = TimeValue("08:30:00"): Cells(3, "C").Value = TimeValue("08:45:00") + Cells(3, "D").Value
       Cells(4, "B").Value = TimeValue("08:45:00"): Cells(4, "C").Value = TimeValue("08:54:00") + Cells(4, "D").Value
       Cells(5, "B").Value = TimeValue("08:54:00"): Cells(5, "C").Value = TimeValue("10:01:00") + Cells(5, "D").Value
       Cells(6, "B").Value = TimeValue("10:01:00"): Cells(6, "C").Value = TimeValue("10:15:00") + Cells(6, "D").Value
       Cells(7, "B").Value = TimeValue("10:45:00"): Cells(7, "C").Value = TimeValue("11:35:00") + Cells(7, "D").Value
       Cells(8, "B").Value = TimeValue("11:35:00"): Cells(8, "C").Value = TimeValue("12:35:00") + Cells(8, "D").Value
       Cells(9, "B").Value = TimeValue("12:00:00"): Cells(9, "C").Value = TimeValue("13:00:00") + Cells(9, "D").Value
       Cells(10, "B").Value = TimeValue("13:40:00"): Cells(10, "C").Value = TimeValue("16:20:00") + Cells(10, "D").Value
       Cells(11, "B").Value = TimeValue("16:00:00"): Cells(11, "C").Value = TimeValue("16:15:00") + Cells(11, "D").Value
       Cells(12, "B").Value = TimeValue("17:00:00"): Cells(12, "C").Value = TimeValue("17:48:00") + Cells(12, "D").Value
       'A2 den tarihi alır
       tarih = CDate(Cells(2, "A").Value)
       'Tarihin gününü alır ve 5 ise yani Cuma günü ise işlem yapar.
       Select Case Weekday(tarih, vbMonday)
       Case 5:
         'Mola kolonuna Cuma öğlen arası için  1,5 saat yazar
         Cells(9, "D").Value = TimeValue("01:30:00")
         'Cuma günü için saatleri günceller, D kolonu mola süresini ekler
         Cells(9, "B").Value = TimeValue("12:45:00"): Cells(9, "C").Value = TimeValue("13:15:00") + Cells(9, "D").Value
     
       Case 6:
          'Pazar günü
          a = a
       Case Else:
        a = a
      End Select

End Sub

 

[hectorfd]

Merhabalar
İlgili dosyadaki süreler modül setine göre sürekli değişiklik gösterecektir. Değişken sürelere göre mola saatleri farklı sütuna gelebilir. Birde makrosuz kod ile yapabilir isek sevinirim.Ana dosya makrolarla kasılmasa iyi olur

 

[Asri]

Merhabalar
İlgili dosyadaki süreler modül setine göre sürekli değişiklik gösterecektir. Değişken sürelere göre mola saatleri farklı sütuna gelebilir. Birde makrosuz kod ile yapabilir isek sevinirim.Ana dosya makrolarla kasılmasa iyi olur

Makrosuz yapacak arkadaşlar vardır mutlaka.
İyi çalışmalar.

 

[denese]

Merhaba,

İş yeri vardiya başlangıç ve bitiş saati nedir?

 

[hectorfd]

Merhaba,

İş yeri vardiya başlangıç ve bitiş saati nedir?

hafta içi 08:00-17:45
cumartesi 08:00-12:30

mola saatlerinin açıklaması ekli dosyada mevcuttur.

 

[denese]

Eki inceleyiniz.

 

[hectorfd]

Eki inceleyiniz.

hocam eline sağlık. cuma günü mola saati 12:45-14:15 olmak üzere 1,5 saat. bu durumuda hesaba katabilirmiyiz?

 

[denese]

Dediğiniz kriter zaten tabloda dikkate alındı. Parametre sayfasında D2687 : D2776 sütun aralığını kontrol edin.

Bir de, değeri 00:00 olan hücreleri boş gösterebilirsiniz. Bence göze daha hoş görünür. Bunun için; Hücre Biçimlendir / İsteğe Uyarlanmış kategorisini seçip Tür kısmına [=0]"";ss:dd yazın ve Tamam deyin.

İyi çalışmalar

 

[hectorfd]

Dediğiniz kriter zaten tabloda dikkate alındı. Parametre sayfasında D2687 : D2776 sütun aralığını kontrol edin.

Bir de, değeri 00:00 olan hücreleri boş gösterebilirsiniz. Bence göze daha hoş görünür. Bunun için; Hücre Biçimlendir / İsteğe Uyarlanmış kategorisini seçip Tür kısmına [=0]"";ss:dd yazın ve Tamam deyin.

İyi çalışmalar

farkettim hocam teşekkürler. Son bir soru. Bir sonraki işin başlangıç saatine mola miktarını ekleyerek başlatabilirmiyiz? Denedim formül döngüye giriyor.

 

[denese]

Bağlantıyı inceleyin

http://www.excel.web.tr/f47/dongusel-ba-vuru-nasyl-kaldyrylyr-t125046.html

 

[hectorfd]

Bağlantıyı inceleyin

http://www.excel.web.tr/f47/dongusel-ba-vuru-nasyl-kaldyrylyr-t125046.html

inceledim ancak pek sonuç çıkaramadım. Eğer işin başlangıcı 09:40 işlem süresi 00:30 dakika ise bu süre 10:00 molasına geldiği için bitişinin 10:10+00:15 dk= 10:25 olarak yazması ve bir sonraki işlemin başlangıcının 10:25 olması gerekiyor. Bunu yapabilirmiyiz?

 

[denese]

Siz bu yolla neyi hesaplamaya çalışıyorsunuz? Hesaplama mantığınızı anlamadım.

 

[hectorfd]

Siz bu yolla neyi hesaplamaya çalışıyorsunuz? Hesaplama mantığınızı anlamadım.

Makine hattına sıra ile işler alınıyor. Birim işlem süreleri doğrultusunda bir önceki işin bittiği noktada diğer iş başlıyor. Örnek olarak : 1. iş 09:45 te bitti ise ; 2. iş 09:45 te başlıyor. İşin süresi 30 dakika ise işin bitişi mola ile birlikte 10:30 oluyor. Dolayısı ile 3. işi 10:30 ta başlatmam gerekiyor. Tablo büyük , her seferinde elimle molaların geldiği ürünlerin bitiş sürelerine süre eklemem sıkıntı oluyor. Birde durumu beğenmeyip personel sayısını artırdığımda işlem süreleri yeniden şekilleniyor ve işlerin başlangıç ve bitiş süreleri değişiyor. Molaların denk geldiği ürünler değişiyor. Özetle üretim hattına iş yükler iken bir sonraki işin başlangıç süresini molaları hesaba katarak başlatmak istiyorum

 

[hectorfd]

Konu ile ilgili çözüm noktasında yardımlarınızı rica ederim

 

[Ömer BARAN]

Merhaba Sayın hectorfd.

Konuya, mola süresi kadar süre ekleme diye başlandı ama geldiğiniz son nokta tamamen farklı.
Makine hattı, birbirini izleyen işlemler, personel sayısı değişikliği vs. olayı kökten değiştirecek yeni şeyler yazıyorsunuz.

Bence gerçek belgenizle aynı yapıda ve gerçek/gerçek verileri temsil
edebilecek gerçeğe yakın veriler içerecek şekilde bir örnek belge yükleyerek destek istemelisiniz.
.