Excel son toplam farkını gösterme

[emreoktem]

Arkadaşlar merhaba, forumu araştırdım cevap bulamadım,

Bir excel tablom var. şu şekilde düşünebiliriz.

A sütununda bir ürünün fiyatı var.
B sütununda satılan adet var.
C sütunu çarpma işlemiyle satış tutarını hesaplıyor.
D1 hücresinde C sütunu toplamı yazıyor.

Burada günlük olarak satılan ürünlerin adedini giriyorum ve aylık toplam satışı görüntülüyorum.

Benim yapmak istediğim şey şu:

B sütununa herhangi bir satırda bir satış adedi girdiğimde d1 hücresindeki toplam da artıyor. d2 hücresinde bu artışı görmek istiyorum. yani her giriş yapıldığında d1deki bir önceki değerle bir sonraki değerin farkını görmek istiyorum. Sadece bilgi amaçlı istiyorum bu değeri. Değeri herhangi bir yerde tutmaya gerek yok.

Umarım anlatabilmişimdir. Yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[Mahir64]

Merhaba,

Tablonuzun küçük bir örneğini ekleyebilir misiniz?

 

[emreoktem]

Ekte örneği ekledim. Umarım yardımcı olabilecek bi arkadaş çıkar.

 

[YUSUF44]

yine yarım yamalak bir şeyler yapmaya çalıştım ancak istediğimiz gibi olmadı maalesef. aşağıdaki kodlarla bir şekilde fark alabiliyorum ancak sizin istediğiniz gibi anlık farkı göstermiyor maalesef:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
a = Cells(1, 4).Value
If Intersect(Target, Range("b2:b500")) Is Nothing Then Exit Sub
[d2] = WorksheetFunction.Sum(Range("c:c")) - a
Set a = Nothing
10:
End Sub

a'yı boşaltmak için set a=nothing satırını ekledim yine de olmadı. Tecrübelilerden yardım bekliyorum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları uygulayıp deneyiniz.

İlgili sayfanın kod bölümüne;

Option Explicit
Dim Deger

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    Range("D2") = Range("D1") - Deger
Son:
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Deger = Range("D1")
End Sub

Çalışmanızın ThisWorkbook bölümüne;

Option Explicit

Private Sub Workbook_Open()
    Sheets("Sayfa1").Select
    ActiveCell.Next.Select
End Sub

Son olarak dosyanızı kayıt edip kapatıp açın ve denemeler yapın.

 

[emreoktem]

Teşekkürler, çalışıyor.
Sanırım konu kapandı