sütunları veri girdikçe topla

[ismailozkan4224]

değerli arkadaşlar hayırlı akşamlar.
aşağıdaki kodu buldum ancak uyarlayamadım dosyama. dosyamda Private Sub Worksheet_Change(ByVal Target As Range) kodu var
E,G,I,K sütunlarından birine veri girildiğinde bu sütunlardaki rakamı toplayıp "M" sütununa yazmasını istiyorum. yardımlarınız için şimdiden teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 5 Or Target.Column = 7 Or Target.Column = 9 Or Target.Column = 11 Then
'Cells(sat, "Z") = ""
If Target.Column = 5 Then sut = 5
If Target.Column = 7 Then sut = 6
If Target.Column = 9 Then sut = 7
If Target.Column = 11 Then sut = 8

sat = Target.Row
Cells(sat, "M") = Target + Target.Offset(, sut)
End If
End Sub

 

[Ömer]

Merhaba

Sayfadaki Private Sub Worksheet_Change(ByVal Target As Range) kod bloğunu silip aşağıdakileri ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target
   
        If Target.Count > 1 Then Exit Sub
       
        If Not Intersect(Target, Range("E3:E40,G3:G40,I3:I40,K3:K40")) Is Nothing Then
            .Offset(0, 1) = Format(Now, "dd.mm.yyyy hh:mm")
            Cells(.Row, "M") = Cells(.Row, "E") + Cells(.Row, "G") + _
                            Cells(.Row, "I") + Cells(.Row, "K")
            Cells(.Row, "N") = Format(Now, "dd.mm.yyyy hh:mm")
            If .Value = "" Then .Offset(0, 1) = ""
        End If
       
        If Not Intersect(Target, [C3:C40]) Is Nothing Then
            If .Value = "" Then Cells(.Row, "A") = "": Exit Sub
            Cells(.Row, "A") = .Row - 2
        End If

    End With

End Sub

 

[ismailozkan4224]

ömer bey teşekkür ederim. ancak bir sorun var . rakamlar güncellendiğinde ya da değiştiğinde "M" hücresi ilave ederek topluyor. yani 10+11+12+13=46 iken 10 rakamını 20 yapınca 46+20=66 yapıyor

 

[Ömer]

Üzerine toplanacak diye düşünmüştüm. #2 numaralı mesajdaki kodu güncelledim.

 

[ismailozkan4224]

teşekkürler ömer bey