Otomatik Toplamada Hata

[mustafa1205]

Ekteki örnekte A sütununa diğer sütunların toplamını yaptırabiliyorum. Ancak şöyle bir sorun var hücrelere tek tek veri girilirse ve ya tek tek hücre içerisindeki verileri silersem bu işlem gerçekleşiyor. Kopyala yapıştır yöntemiyle toplu veri girişi yaptığımda bu toplama işlemi gerçekleşmiyor. Mesela komple C sütunundaki hücreleri seçip içerisindeki veriyi sil dediğimde sadece ilk satırın toplama işlemini yapıyor diğer C sütunundaki veriler silindiği halde A sütunundaki toplamalar olmuyor. Örnekte de açıklama yapmaya çalıştım. Teşekkür ederim.

 

[vardar07]

Merhaba, Kod başlığında diyorki çalışma sayfasında değiştirilecek bir hücrede
şunu yap dediği için toplu seçim yaparak silersen tümünü tek seçim kabul ederek ilk satırı değiştiriyor.ondan sonra enter ile geçersen diğerlerinde değiştiğini görebilirsiniz.Kolay gelsin.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[mustafa1205]

Cevabınız için teşekkürler. Bunu biliyorum ancak yaklaşık 15000 satırlık veri mevcut. Hepsi için tek tek enter işlemi çok zor olacağı için bu sorunu çözebilecek bir kod mevcut mu diye soruyorum...

 

[mancubus]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("b1:g8")) Is Nothing Then Exit Sub
    
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        With Cells(i, 1)
            .Value = Application.Sum(.Offset(, 1).Resize(, 6))
            'B ve G sütunları için Resize(, 6) dedik. örneğin K'ya kadar isteniyorsa Resize(, 10) olmalı
        End With
    Next
End Sub

 

[mustafa1205]

Sayın mancubus çok teşekkür ederim. Tam istediğim gibi oldu. Ellerinize sağlık. İyi çalışmalar.....

 

[mancubus]

rica ederim. işe yaradığına sevindim.

sonuç hakkında geri dönüş yaptığınız için ben de size teşekkür ederim.