Aynı sheet de 2 aynı makro kod çalıştırmak

[PEPE]

Arkadaşlar bu kod sadece c sütununa gilenleri topluyor. Hem c de hemde e de girilenleri nasıl ayrı ayrı toplatırım. anladığımkadarıyla kodu ekrar aynı sayfaya yazarzam çaılışmıyor.
teşekkürler..


Private Sub Worksheet_Change(ByVal Target As Range)
Dim son As Integer
son = Range("c" & Rows.Count).End(3).Row
If Intersect(Target, Range("c3:c" & son)) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then MsgBox "Sayı Giriniz.": Target.ClearContents: Exit Sub
Cells(Target.Row, 4) = Cells(Target.Row, 4) + Target.Value

End Sub

 

[ZorBey_]

Merhaba iyi çalışmalar
C ye girilenleri D de topluyor.
E ye girilenler D nin üstünemi toplanacak
yoksa F sutununamı toplanacak.

 

[PEPE]

f sütununa toplanacak

zorbey

 

[ZorBey_]

Denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C3:C65536,E3:E65536]) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then MsgBox "Lütfen Sayı Giriniz.": Target.ClearContents: Exit Sub
With Target
If .Value = "" Then Exit Sub
If .Column = 3 Then
Cells(.Row, "D") = .Value + Cells(.Row, "D")
ElseIf .Column = 5 Then
Cells(.Row, "F") = .Value + Cells(.Row, "F")
End If
End With
End Sub

 

[PEPE]

eline sağlık dostum çok hızlı cevap verdiğiniz için teşşekkürler ediyorum

 

[ZorBey_]

Kolay gelsin iyi çalışmalar.