Verilen değeri diğer hücrelerden düşme Hk.

[yunus5818]

Merhaba,
Depo teslimdeki 1000 adet ayın 1inde yazan değerden büyükse ayın 1ini silecek sonra 1000-150=850 değeri ayın 2sindeki değerden büyükse ayın 2sini silecek sonra 850-170=680 değeri ayın 3ündeki değerden büyükse aynı işlemlere devam edecek....
ne zaman kalan miktar o gündeki değerden küçük olursa o hücreyi silip o güne kalan depodaki miktardan o günü çıkarıp yazacak.
Umarım anlatabilmişimdir.
yardımlarınız için teşekkür ederim.

depo teslim	1.01.2024​	2.01.2024​	3.01.2024​	4.01.2024​	5.01.2024​	6.01.2024​
1000​	150​	170​	300​	150​	130​	110​

 

[HücrelereFısıldayanAdam]

Anlatımınız çok anlaşılır değil, noktalama da kullanmamışsınız.

ne zaman kalan miktar o gündeki değerden küçük olursa o hücreyi silip o güne kalan depodaki miktardan o günü çıkarıp yazacak

Yapılan işlemin mantığı anlaşılmadan çözüm üretmek zor. Elinizdeki veriyi anlatın, bu veriden ne elde etmeyi amaçlıyorsunuz? Sadece veriyi değil, sonuçta oluşması gereken tabloyu da paylaşın, böylece daha anlaşılır olacaktır.

 

[yunus5818]

DEPO TESLİM	1.01.2024​	2.01.2024​	3.01.2024​	4.01.2024​	5.01.2024​	6.01.2024​	7.01.2024​	8.01.2024​	9.01.2024​	10.01.2024​
1000​	200​		300​	100​	300​	200​	100​	400​

Günlerde yazan değerler benim o günlerdeki sipariş miktarım. Depo teslim kısmında yazan değer bu siparişten kaç adet depoya teslim ettiğim.
benim istediğim bu siparişlerin ne kadarını depoya teslim ettiğimi görmek. Bunun için isteğim;
Teslim ettiğim 1000 adet hangi günleri kurtarıyorsa o günlerdeki miktar silinsin.
Ayın 1inde 200 adet siparişim var. ben 1000 tane verdim. 1000-200=800 adet depomda kaldı;
ayın 3ünde 300 adet siparişim var. Depoda 800 kaldı. 800-300=500
Ayın 4ünde 100 adet siparişim var. Depoda 500 kaldı. 500-100=400
Ayın 5inde 300 adet siparişim var. depoda 400 kaldı. 400-300=100
Ayın 6sında 200 adet siparişim var. Depoda 100 kaldı. Ve depodaki değer yetmiyor.100 tanesini verebiliyorum.100 adet kalıyor. İstediğim. bu güne 100 yazsın bundan önceki günlerdeki değerleri silsin.

DEPO TESLİM	1.01.2024​	2.01.2024​	3.01.2024​	4.01.2024​	5.01.2024​	6.01.2024​	7.01.2024​	8.01.2024​	9.01.2024​	10.01.2024​
1000​						100​	100​	400​

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Order_Control()
    Dim X As Long, Y As Integer, Toplam_Miktar As Double
    
    Application.ScreenUpdating = False
    
    For X = 2 To Cells(Rows.Count, 1).End(3).Row
        If IsNumeric(Cells(X, 1)) Then
            Toplam_Miktar = Cells(X, 1)
            
            For Y = 2 To Cells(1, Columns.Count).End(1).Column
                If Toplam_Miktar >= Cells(X, Y) Then
                    Toplam_Miktar = Toplam_Miktar - Cells(X, Y)
                    Cells(X, Y) = ""
                Else
                    Cells(X, Y) = Cells(X, Y) - Toplam_Miktar
                    Toplam_Miktar = 0
                    Exit For
                End If
            Next
        End If
    Next

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[yunus5818]

Korhan Ayhan bey elinize sağlık çok başarılı çalışıyor. Benim sizden bir isteğim olacak.
Benim depo teslim yazdığım hücre G1 hücresinde. Kodu buna göre düzenleyebilir misiniz?