900'e ulaşma

[cevdetmeric1]

Merhaba arkadaşlar,
yapılan üretim miktarlarında artan ürünlerimiz mevcut. bu artanları toplayarak yeni seri oluşturmak istiyoruz. Ve bu yeni partilerin 900 Kg olması gerekmektedir. Ulaşılması gereken miktar sabit 900 iken, artanlar değişkenlik göstermektedir. Ekteki dosyada tablo yanında göstermeye çalıştım. Nasıl bir yol izlemem gerekir?
Yardımlarınız için şimdiden teşekkür ederim.
https://www.dosyaupload.com/j0eq

 

[Muhammet Okumuş]

Dosyanızı toplamları almanın koşulunu tam çözemedim. Kod dosyanızdaki bir kaç satır için doğru ama sonrasında hesaplama farklı oluyor. Toplam koşullarını anlatırsanız kodda düzenleme yapılabilir.

Sub Toplam()
fz = 0
sat = 2
d1 = 2
d2 = 2
son = Cells(Rows.Count, 3).End(3).Row
For i = 2 To son
b = WorksheetFunction.Sum(Range("C" & d1 & ":C" & d2)) + fz
If b < 900 Then
d2 = d2 + 1
Else
d1 = i + 1
d2 = i + 1
Cells(sat, 11) = b
Cells(sat, 12) = b - 900
fz = b - 900
sat = sat + 1
End If
Next
End Sub

 

[cevdetmeric1]

Merhaba,
Dosyadaki esasımız C sütununda belirttiğimiz artan ürün miktarlarının (Kullanım Dışı Miktar) toplanarak 900 kg'da yeni bir parti oluşturmak.
örneğin 3 serinin toplamı 1054 kg oldu. 900 kilogramı ile 1 parti oluşurken, 154 kilogramı artmış oluyor ve sonraki parti için kullanıyoruz. Bu sebeple esas üretimdeki (A) kodlu parti yeni oluşan (YP-) kodlu 2 parti içerisinde bulunabiliyor. Her yeni üretim sonunda artan miktar bu hesaplamaya eklenecek şekilde formül/kod arayışı içindeyim.
Çok teşekkür ediyorum.

 

[Muhammet Okumuş]

Kod çözüm olmadı mı?

 

[cevdetmeric1]

Merhaba,
ilk baktığımda yanlış bakmışım, şimdi tekrar baktım.
Çok teşekkür ederim