Bİr HÜcreye Gİrİlen Sayinin Devamli Toplanmasi

[YGULER43]

Mrb ArkadaŞlar Ekte SunduĞum Tabloya Bakarak Yardimci Olursaniz Sevİnİrİm Kisacasi Her GÜn Sari SÜtÜna Gİrİlen Sayilarin Devamli Toplanmasini İstİyorum TŞk.

 

[rekkezum]

ektekı dosyayı ınceleyınız... ıstedıgınız boyle bır seymı ???

 

[acolkesen1]

Gönderdiğiniz çalışma, hangi tarihte ne girildiğini görmek için mi yoksa sadece toplamları mı görmek istiyorsunuz? Tarih girilen bir sütun olsa daha kullanışlı olur bence. Veriler girildikçe hangisinin ne zaman grildiği ya da mükerrer olup olmadığı bir süre sonra sorun olmaya başlar gibime geliyor.Buna göre bir çalışma hazırlayabilirsiniz..

 

[Necdet]

Merhaba,

Sarı sütunlar ve yeşil sütunlar çok. O yüzden pek olayı anlamadım ama örnek olması açısından aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Yapılan işlem : D sütuna (Sarı Renkli) girilen sayıların G sütununda (Yeşil Renkli) toplanmasıdır.

İlgili satırda B Sütununda "TOPLAM" ibaresi varsa Toplama İşlemi yapılmamaktadır.

Siz diğer sütunlar için değişikleri yaparsınız sanırım.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Offset(0, -1) <> "TOPLAM" Then Exit Sub
If Target <> "" Then Target.Offset(0, 3).Value = Target.Offset(0, 3).Value + Target.Value
Son:
End Sub

 

[YGULER43]

kusura bakmayın anlatamadım galiba ben hergün araç sayısını boş hücreye girecem o aracın karşısındaki ilgili hücrede sayı toplanacak bira ay sonra bu istatistiği aylık toplam olarak kullanacağım a1 hücresine girdiğim sayı b1 hücresinde toplansın istiyorum bu prfogram var elimde ama aynı şekilde a2,a3,a4,a5...... hücresine girdiklerim yine b2,b3,b4,b5.....hücrelerinde bir ay boyunca girdiklerim toplansın istiyorum. ilginiz için tşk. benim için önemli.

 

[Necdet]

Sayın Yüksel Güler,

Verdiğim kod zaten bu işi yapıyor. Sizin gönderdiğiniz dosyada D sütünuna girilen değer G sütununda topluyor. Son mesajınız da buna benzer tek farkı hemen yanındaki hücrede toplasın istiyorsunuz. Kodları aşağıdaki gibi değiştirdiğimizde A sütununda yazılanlar B'de, C sütununda yazılanlar D sütununda Toplanır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A, C:C]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Target.Offset(0, 1).Value + Target.Value
Son:
End Sub

 

[YGULER43]

Necdet Bey Çok TeŞekkÜr Ederİm Saolun