Üretim Planlama Yardım

[tncykmr]

Merhaba arkadaşlar,

Ürün sayfasından yazdığım ürünün bilgilerinin gelmesini ve 3 farklı koşula göre üretim planlamak istiyorum ve bu planladığım programa göre aylık sistemde renk olarak işaretlenmesini. Bu konuda yardım edebilecek olan var mı ?
Ekte dosyayı koyuyorum.
Şimdiden teşekkürler.

 

[Mehmet Şahin]

Dosyanıza hesaplanmış bir kaç farklı örnek girmenizi rica ediyorum. Aylık plan konusu da açık değil. Sonraki aylara gelen tarihler ne olacak? Bunları da biraz netleştirelim. Kolay gelsin.

 

[tncykmr]

dentex dosyadaki ilk sayfada olan ürün listesinin tamamı hazır şekilde.
İkinci sayfadaki (Planlama Hesap) Ürün adı kısmına ilk sayfadan bir ürünün adını yazdığımda örneğin Ürün1 yazdığımda üretim süresi ve üretildiği makine otomatik gelmesini istiyorum.
ve sipariş adetini manuel olarak girdiğimde üretim zamanını hesaplayacak saat olarak. Başlangıç tarih, saatini gireceğim ve üretim zamanı şeklinide yazmış olduğum 3 seçenekten birini yazdığım da (v1, v2 veya p) otomatik bitiş saatini vermesini istiyorum.
Aylık plana işleme de tabloyu aşağı doğru tüm seneye uzatabiliriz.

Bunu makro uygulamasıyla yapmak mümkün heralde? ben makro hususunda çok çok yeniyim. bilmiyorum diyebilirim maalesef.

 

[tncykmr]

manuel olarak hesapladığım 3 üretim zamanı şekline göre dosyayı ekliyorum;

 

[tncykmr]

Hocam üsttekinde yanlış hesaplamışım bitiş tarihlerini lütfen bu ektekini dikkate alın.

 

[Mehmet Şahin]

Hocam üsttekinde yanlış hesaplamışım bitiş tarihlerini lütfen bu ektekini dikkate alın.

Tam bir hata var diye yazacaktım ki, siz doğru sonuçları göndermişsiniz.
Ekteki dosyada, ürün adına göre makina tipi ve süre getirilmekte ve kullanıcı tanımlı fonksiyonla süre hesaplanmaktadır. Bu hesaplamaları çok farklı örneklerle (araya pazar gününü getirerek) test ediniz. Doğru hesapladığını kabul ettiğimizde, dosyayı daha efektif olarak biçimlendiririz.

 

[tncykmr]

dentex, ilginiz için çok teşekkür ederim.
hesaplatmaları yaptım ilk iki çalışma şeklinin hesabında problem var gibi. ekte ilgili hesaplamayı ve notlarımı göreceksiniz.
İncelemeniz için eke koyuyorum.

 

[Mehmet Şahin]

fonksiyonun kodlarını aşağıdaki gibi değiştirerek deneyiniz.
ayrıca verdiğiniz v1 örneğini tekrar kontrol ediniz. Kolay gelsin

Function saat_bul(bas As Date, sure As Double, vard As String)
On Error GoTo son
saat = sure * 2 'yarım saat aralıklar

bit = bas
If vard = "p" Then
GoTo 1
ElseIf vard = "v2" Then
GoTo 2
Else
GoTo 3
End If
1:
For i = 1 To saat
bit = bit + CDate(Format("00:30", "hh:nn")) 'p 24 saat
    If Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") >= "08:00" Then 'pazar
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 And Format(bit, "hh:nn") < "08:00" 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  'v2 Her gün 23:00 ile sabah 08:00 arası üretim yapılıyor
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") > "08:00" Then 'pazar
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 And Format(bit, "hh:nn") < "23:00" Then
    i = i - 1
    ElseIf Format(bit, "hh:nn") > "08:00" And Format(bit, "hh:nn") < "23:00" 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 'v1 Her gün 17:00-23.00 arası hariç üretim yapılıyor
bit = bit + CDate(Format("00:30", "hh:nn"))
    If Weekday(bit, vbMonday) = 7 And Format(bit, "hh:nn") >= "08:00" Then 'pazar
    i = i - 1
    ElseIf Weekday(bit, vbMonday) = 1 Then
       If Format(bit, "hh:nn") < "08:00" Then
         i = i - 1
       ElseIf Format(bit, "hh:nn") >= "17:00" And Format(bit, "hh:nn") < "23:00" Then
         i = i - 1
       End If
    ElseIf Format(bit, "hh:nn") >= "17:00" And Format(bit, "hh:nn") < "23:00" Then
    i = i - 1
    End If

Next i
saat_bul = Format(bit, "dd/mm/yyyy hh:nn")
GoTo son
son:
End Function

 

[tncykmr]

hocam ben bu kodu bi türlü yazamadım, makroların içerisine giremiyorum.
Acaba benim ofisde mi sorun var yoksa yanlış mı yapıyorum acaba.

 

[Mehmet Şahin]

Önceki macrolar çalıştığına göre sorun yok. File/Options sekmesinden customize ribbon'ı seçip Developer seçeneğini aktif hale getirin. iyi çalışmalar.

 

[tncykmr]

geliştirici sekmesinden visual basice tıklıyorum. Out of memory diyor hocam, ne yapmalıyım?
diğerlerinde hep siz eklemiştiniz açmıştım. Kendim ilave edemiyorum sanırım, siz ekleyebilirmisiniz acaba

 

[Mehmet Şahin]

Dosyayı 6. mesajda yeniledim.

 

[tncykmr]

Hocam kodlamaları bu dosyada açabiliyorum artık.

İlk (v2) hesaplamasını yanlış yapıyor sadece. eke koydum bakabilirseniz.

Ayrıca hocam buradaki hesap yapacağım satır sayısınıda arttırmak istiyorum, mümkün mü?

Birde ilk sayfadaki ürün listesinin bulunduğu sayfada ürün sayım yaklaşık 250 adet olacak, bunu ayarlamak mümkün müdür?

 

[Mehmet Şahin]

6. mesajda dosya yenilenmiştir. Satır sayısını arttırabilirsiniz, çalışacaktır.

 

[tncykmr]

dentex; üstad çok teşekkür ederim.
Satırları arttırdım sorun yok, çalışıyor.

Son sayfadaki istediğim olayı (tarih sütünlarına renklendirme) yapmamız mümkün mü hocam acaba? Sadece bu olay kaldı. Yan tarafa dogru uzatabiliriz eğer alt tarafa uzamazsa.