Üretim planlama (Tatiller hariç)

[mmb_dnr]

Merhaba Arkadaşlar. Excel de üretim planlamasını yaparken şöyle birşey yaptırmak istiyorum.

Bir iş 3 gün sürüyor diyelim. Bu işe de perşembe saat 14.00 da başladık. Firma 24 saat çalışıyor fakat hafta sonları cumartesi saat 18.00 dan pazartesi sabah 08.30 a kadar tatil. Bu işin bitiş tarihini hesaplarken otomatik yapmasını ve bu belirttiğim tatil zamanlarını hesaba katmadan pazartesi sabah 08.30 dan hesaplamaya devam etmesini istiyorum.

Bunu nasıl yapabilirim?

 

[mmb_dnr]

Arkadaşlar bu konuda yardımcı olabilecek hiç kimse yokmu?

 

[Mehmet Şahin]

Merhaba,
excel'de yapılmış bir çalışmanız varsa ekleyiniz. Mutlaka ilgilenen arkadaşlarımız olacaktır.
İyi çalışmalar.

 

[mmb_dnr]

Merhaba,
excel'de yapılmış bir çalışmanız varsa ekleyiniz. Mutlaka ilgilenen arkadaşlarımız olacaktır.
İyi çalışmalar.

Tam ne demek istediğini anlamadım ama ekte basit bir tablo yaptım.

 

[mmb_dnr]

Arkadaşlar bu konuda yardımlarınızı bekliyorum. Benim için çok önemli bi işlem.

 

[Mehmet Şahin]

Merhaba,
ekteki dosyayı test eder misiniz?
İyi akşamlar.

Sub saat_bul()
Dim sh As Worksheet
Set sh = Sheets("Sayfa1")
bas = sh.Range("a2")
saat = sh.Range("b2") * 48
bit = bas

For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 6 And Format(bit, "hh:nn") >= "18:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") >= "00:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 And Format(bit, "hh:nn") < "08:30" Then
    i = i - 1
    End If
Next i
sh.Range("c2").NumberFormat = "dd/mm/yyyy hh:mm"
sh.Range("c2") = Format(bit, "dd/mm/yyyy hh:nn")
Set sh = Nothing
End Sub

 

[mmb_dnr]

Arkadaşım çok sağol çok teşekkür ederim benim istediğim şey bu. Fakat bir sorum olacaktı. Macrolardan anlamıyorum bu nedenle saçma bir soru olabilir. Macroyu çalıştırmak için düğme koymussun onun yerine işin üretim süresini her değiştirdiğimiz de otomatik değişmez mi? Ayrıca ben planlarken 2-3 aylık da planlayabilirim o zaman nasıl yapacağım. Ekte ki örneğe bakarmısın?

Umarım demek istediğimi anlamışssındır. Bir üretimi iptal ettiğimde o satırı silince diğerleri otomatik değişecek. Yada eklemek için araya satır ekle yapıp üretim süresini yazdığımda planlama değişecek. Aslında benim istediğim Hücrede bir formül gibi. Bitiş tarihinin yazdığı hücrede basit bir formül olduğunda nasılki altına üstüne kopyaladığın zaman o formül geçiyor o şekilde birşey olabilir mi? Seni uğraştırıyorum ama kusura bakma yardımcı olursan çok memnun olurum.

 

[Mehmet Şahin]

Günaydın,
kullanıcı tanımlı fonksiyon haline getirdim. Eki inceleyiniz. Mutlu bir gün dileğiyle..

 

[mmb_dnr]

Arkadaşım çok sağol çok teşekkür ederim süper olmuş tam istediğim şeydi. Şimdi tek sorunum işin bitiş tarihinde saat değişmiyor. Üretim süresinde 3,5 de yapsam 4 da yapsam tarih ve saat aynı. Onuda ayarlarsak süper olacak. Şimdiden çok teşekkür ederim.

 

[Mehmet Şahin]

Merhaba,
önceki fonksiyonu silip yerine aşağıdakileri yapıştırarak deneyiniz. İyi çalışmalar.

Function saat_bul(bas As Date, plan As Double)
On Error GoTo son
saat = plan * 48
bit = bas
For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 6 And Format(bit, "hh:nn") >= "18:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") >= "00:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 And Format(bit, "hh:nn") < "08:30" Then
    i = i - 1
    End If
Next i
saat_bul = Format(bit, "dd/mm/yyyy hh:nn")
son:
End Function

 

[mmb_dnr]

Arkadaşım çok sağol, çok teşekkür ederim. Süper oldu. Yıllardır boşuna uğraşmısız Excel de macroları öğrenmek lazım. Son bir sorum olacaktı. Bu dosya .XLSM formatında yapmıssın. Ben bunu farklı kaydet deyip standart excel (.XLSX) formatında kaydedince çalışmıyor bunun sebebi nedir acaba? Bildiğim kadarıyla normal excel sayfasında da macro çalışması lazım.

 

[Mehmet Şahin]

Rica ederim,
iyi çalışmalar.

 

[Mehmet Şahin]

Merhaba,
xlsx formatında makrolar çalışmaz. Office 2007'den sonra böyle bir uygulama var. Siz makroyu ekleyip xlsm formatını seçebilirsiniz.

 

[CRM Mobilya]

arkadaşlar bende süreli bir imalat takip planı hazırlamak istiyorum excelde ama nası yapacağımı bilmiyorum??????

 

[mmb_dnr]

Merhaba dentex daha önce üretim planlama hakkında bana çok yardımcı olmuştun. Benim bu planlama ile ilgili bir sıkıntım daha var, yardımcı olabilirsen çok memnun olurum. Biz işin durumuna göre çalışma saatlerini değiştiriyoruz. 3 çeşit çalışma sistemimiz var. Bu nedenle daha önce yaptığın makro da bazı değişiklikler yapabilir misin? Daha önce 24 saat kesintisiz çalıştığımızı hesap ederek makroyu oluşturmuştuk şimdi ise bazen Hafta içi sabah 08.30 dan gece 01.00 'a kadar (16,5 saat) - Cumartesi günü sabah 08.30 - 13.30 arası, bazen de Hafta içi sabah 08.30 dan gece 01.00 'a kadar (16,5 saat) - Cumartesi günü sabah 08.30 - 13.30 arası çalışıyoruz. Ben bu seçeneklerden birini nasıl seçip bitiş saatini bu seçeneklere göre hesaplattırabilirim?

(ekte dosya bulunmaktadır)

 

[Mehmet Şahin]

Merhaba,
ilgili olasılıklara ait birkaç örnek yapıp ekleyebilirseniz, doğruluğunu test ederek bir çalışma yapabiliriz. İyi geceler.

 

[mmb_dnr]

Merhaba,
ilgili olasılıklara ait birkaç örnek yapıp ekleyebilirseniz, doğruluğunu test ederek bir çalışma yapabiliriz. İyi geceler.

Merhaba dentex, ilgilendiğin için çok teşekkür ederim. ekte nasıl birşey olması gerektiğini yazdım. Şöyle birşey de olabilir, bir hücreye 1 yazarsak 1. seçenek makroda çalışabilir o hücreye 2 yazarsak 2. makro çalışabilir bu şekilde de olabilir. Hücrede yazan rakam nasıl çalışılacağını gösterebilir.

 

[Mehmet Şahin]

Merhaba,
ekteki dosyayı inceleyiniz. İyi geceler.

 

[mmb_dnr]

Merhaba,
ekteki dosyayı inceleyiniz. İyi geceler.

Merhaba dentex, çok güzel olmuş tam istediğim gibi tek sorun ben gönderdiğim örnekte zamanı hesaplarken yanlışlık yapmışım.bu nedenle makroda yanlış olmuş. üretim süresi kısmında kullanılan formül çalışma saatine göre farklı olacak. gerekli düzeltmeyi yaptım, buna göre makroyu düzenleyebilirmisin?

 

[Mehmet Şahin]

Merhaba,
sadece 2. çalışma tipini değiştirdim. Aşağıdaki fonksiyonu kullanın. İyi çalışmalar.

Function saat_bul(bas As Date, plan As Double, vard As Byte)
On Error GoTo son
saat = plan * 48
bit = bas
If vard = 1 Then
GoTo 1
ElseIf vard = 2 Then
GoTo 2
Else
GoTo 3
End If
1:
For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 6 And Format(bit, "hh:nn") >= "20:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") >= "00:00" Then
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 And Format(bit, "hh:nn") < "08:30" Then
    i = i - 1
    End If
Next i
saat_bul = Format(bit, "dd/mm/yyyy hh:nn")
GoTo son
2:
For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 6 Then 'cumartesi
        If Format(bit, "hh:nn") > "01:00" Then
[COLOR=Red][B]            If Format(bit, "hh:nn") < "08:30" Or Format(bit, "hh:nn") >= "13:30" Then[/B][/COLOR]
              i = i - 1
            End If
        End If
'    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 7 Then  'pazar
    i = i - 1
    ElseIf Format(bit, "hh:nn") >= "01:00" Or Format(bit, "hh:nn") < "08:30" Then
    i = i - 1
    End If
Next i
saat_bul = Format(bit, "dd/mm/yyyy hh:nn")
GoTo son
3:
For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 6 Then ' cumartesi
      If Format(bit, "hh:nn") < "08:30" Or Format(bit, "hh:nn") >= "13:30" Then
        i = i - 1
      End If
    ElseIf Weekday(bit, vbMonday) = 7 Then  'pazar
    i = i - 1
    ElseIf Format(bit, "hh:nn") < "08:30" Or Format(bit, "hh:nn") >= "18:30" Then
    i = i - 1
    End If
Next i
saat_bul = Format(bit, "dd/mm/yyyy hh:nn")
GoTo son
son:
End Function