toplama

[otelci01]

Merhaba, Aşağıda kullanmış olduğum kodlarda D sütünün yanında aynı kodları aynı sayfa içinde E sütünü için de kullanmak istiyorum nasıl bir kod ekleyebiliriz.



Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D869]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 3) = Target.Offset(0, 3) + Target
Target.Offset(0, 6) = Target.Offset(0, 6) + Target

End If
Son:
End Sub

 

[Orion1]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D8:E69]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Cells(Target.Row, "G").Value = Cells(Target.Row, "G").Value + Target.Value
Cells(Target.Row, "J").Value = Cells(Target.Row, "J").Value + Target.Value
End If
Son:
End Sub