Sayı toplamları

[msinan987]

Arkadaşlar benim yapmak istediğim, A Sütununa yazılan sayıların toplamını, A Sütüna yazılan enson sayının karşısındaki B Sütünunda görünmesini istiyorum. A Sütununa sayı eklediğimde otomatik olarak B sütündaki sayı toplamının Eklemiş olduğum sayının karşısında kaymasını istiyorum. Yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

Makro ile çözüm.
Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
[B:B].ClearContents
toplam = Application.WorksheetFunction.Sum([A:A])
Cells([A65536].End(3).Row, "B") = toplam
Son:
End Sub

 

[Ali]

Buda formüllü örnek,

A7 hücresinden sonra veri girerek deneyiniz.

 

[msinan987]

Arkadaşlar her ikinizede çok teşekkür ediyorum.Emeğinize yüreğinize sağlık. Ayrıca sizin ve Tüm Excel Forum üyelerinin Bayramını şimdiden kutluyorum.

 

[msinan987]

Ali arkadaşıma bir şey sormak isityorum. B sunun haricindeki diğer sütündada toplatma yapabilirmiyiz.

 

[Ali]

Ali arkadaşıma bir şey sormak isityorum. B sunun haricindeki diğer sütündada toplatma yapabilirmiyiz.

E sütununda toplamak istediğinizi varsayaraksak,B1 hücresindeki formülün aynısını E1 hücresine yazıp aşağı doğru çektiğinizde toplamı bu sefer E sütununda göreceksiniz.

 

[mesudiye_052]

Alternatif
B1 hücresine aşağıdaki formülü girin ve aşağıya doğru sürükleyerek kopyalayınıuz

=EĞER(SATIR()=ARA(2;1/($A$1:$A$100);SATIR($A$1:$A$100));TOPLA(A:A);"")

 

[msinan987]

Çok teşekkür ederim arkadaşlar yardımlarınızdan dolayı .