Kalan Hesabi

[silka]

Arkadaşlar benim sorum şu örnekte de görüldüğü üzere stok yazan yer sabit olacak (yani ilk başta ben giriş yapıcam) daha sonra giren yerine rakam yazdığım zaman çıkanda yazan rakamı da çıkartıp kalanı verecek ama ben giren kısmına gireceğim rakamı her zaman silip tekrar yazcam o yüzden bana girenler toplanıp kalan rakam verilmesini istiyorum. Yani başka bir tabirle devreden stok yapmak istiyorum

 

[Necdet]

Merhaba, iyi geceler,

Doğru anlayıp anlamadığım bilmeden tahmini olarak birşeyler yapmaya çalıştım. Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Cells(Target.Row, "D") = Cells(Target.Row, "D") + Target.Value
Son:
End Sub

 

[ziya]

Necdet bey merhaba,
Dosyanızı indirdim, sanki ufak bir sorun var, Özellikle Çıkan'a eşit Giren kaydettiğinizde. Açıklama dosyada.
Selamlar,

 

[silka]

arkadaşlar çok teşekkür ederim olmuş sayılır fakat bu seferde çıkan değiştiği zaman kalanda hiçbir eksilme olmuyo ama

 

[Necdet]

Sayın Ziya,

Sorun olması doğal çünkü ne yapmak istediğinizi anlamadan birşeyler yaptım.

Mantığınızı kavrayamadım. Benim bildiğim Giren değer olursa stok miktarı artar, çıkan değer olursa azalır.

Siz giren dediğiniz sütunda çıkanı hesaplattırıyorsunuz ki aklım karıştı.

Örnek rakamlarla açıklama yaparsanız daha rahat anlaşılır ve çok arkadaş yanıt verebilir.

 

[silka]

Örnekte açıklamaya çalıştım umarım anlaşılır ve yardımcı olursunuz kolay gelsin

 

[silka]

arkadaşlar yardımcı olabilecek kimse yokmuuu