• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

H

hectorfd

Katılım
22 Ocak 2016
Mesajlar
21
Excel Vers. ve Dili
Office 2016
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.
 

Ekli dosyalar

Ç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.

Kod: 
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
 

Ekli dosyalar

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
 
hectorfd' Alıntı:
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
Genişletmek için tıkla ...

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

İş yeri vardiya başlangıç ve bitiş saati nedir?
 
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
 
denese' Alıntı:
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
Genişletmek için tıkla ...

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.
 
Siz bu yolla neyi hesaplamaya çalışıyorsunuz? Hesaplama mantığınızı anlamadım.
 
denese' Alıntı:
Siz bu yolla neyi hesaplamaya çalışıyorsunuz? Hesaplama mantığınızı anlamadım.
Genişletmek için tıkla ...

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
 
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.
.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst