Mevcut tabloya değer girerek toplatmak

[k0081]

Merhaba arkadaşlar;

G10:G14 aralığında bulunan tabloma değer girerek (mevcut değerler üzerine) nasıl toplatabilirim ? detay ekli dosya içinde verilmiştir.


yardımcı arkadaşa şimdiden teşekkürler.

Ekli dosyayı görüntüle Kitap1.xlsm

 

[unsal_]

İstediğiniz böyle birşeymi ?
Sayfa 1 kod bölümüne,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [G10:G14]) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End Sub

Bana yardım eden Turist'den öğrenmişdim.

 

[k0081]

Evet hocam, yalnız toplamı yine aynı hücre içine yapacak.. G10:G14 aralığında.. sizin kodlamınızda toplamı işlemini yapıyor,, ama J sütununa yazıyor.. ben o kısmı G10:G14 son halini anlatayım diye oraya yazdım... yani girilen değerler G sütununa sonuçta G sütununa yazılacak hocam.

 

[unsal_]

Benim excel bilgim kısıtlı sadece öğrendiklerimi yapabiliyorum.Bir kaç şey denedim ama ben yapamadım.

 

[k0081]

Bende denedim fakat olmadı.. Teşekkürler hocam.

 

[unsal_]

Örnek teşkil etmesi açısından.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      Static dAccumulator As Double
      With Target
         If .Address(False, False) = "G10" Then
            If Not IsEmpty(.Value) And IsNumeric(.Value) Then
               dAccumulator = dAccumulator + .Value
            Else
               dAccumulator = 7
            End If
            Application.EnableEvents = False
            .Value = dAccumulator
            Application.EnableEvents = True
        End If
      End With
End Sub

Kolay gelsin.

 

[k0081]

Evet hocam Tamamdır.. sadece bir hücreyi kapsıyor .. ama bu şekilde de tamamdır. çok Teşekkürler..