Kodlarla Sayfada Otomatik Toplama Yaptırmak

[mustafa1205]

Sayfada Otomatik Toplama Yaptırmak

Makro kaydet yöntemiyle yapabiliyorum sıkıntı yok ancak ekte örnek dosya üzerinde de açıklama yapmaya çalıştım hücrelere veri girişi oldukça sayfada kodlar yardımıyla otomatik toplama yapmasını istiyorum. Teşekkürler.

 

[YUSUF44]

" A SÜTUNUNDAKİ A2 HÜCRESİNDEN A8 HÜCRESİNE KADAR B2 DEN G2 HÜCRESİNE KADAR VEDE B8 DEN G8 HÜCRESİNE KADAR RAKAMLARI OTOMATİK OLARAK YENİ VERİLER GİRİLDİĞİNDE OTOMATİK TOPLAMA YAPTIRMAK İSTİYORUM.
"

Ne demek, nereye ne toplanacak anlaşılmıyor maalesef?

 

[mustafa1205]

Haklısınız biraz karışık olmuş. Kısaca şöyle diyeyim A sütununa örnekte bulunan dosyadaki A sütununun sağında bulunan sayıları toplatmak istiyorum. Umarım açıklayıcı olmuştur. Sadece o sınırlamaları yapmamın nedeni tüm sayfa için değil yazdığım hücreler sınırları içerisinde bu işlem olacak.

 

[YUSUF44]

Şu kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b1:g8")) Is Nothing Then Exit Sub
a = Target.Row
Cells(a, 1) = WorksheetFunction.Sum(Range("B" & a, "g" & a))
End Sub

 

[mustafa1205]

Sayın Yusuf44. Çok teşekkür ederim. Tam istediğim gibi oldu. Soruyu tam açıklayıcı bir şekilde soramadığım için kusura bakmayın. Tekrar çok teşekkür ediyorum ve de iyi çalışmalar dilerim.