kodlarda düzenleme

[uguristanbul]

Range("E1").Value = WorksheetFunction.Sum(Range("F7:F65536"))
Range("E2").Value = WorksheetFunction.Sum(Range("g7:g65536"))
Range("I1").Value = WorksheetFunction.Sum(Range("h7:h65536"))
Range("I2").Value = WorksheetFunction.Sum(Range("I7:I65536"))
yukardaki kodları nereye yazmalıyım ki f&g&h&I sutunlarını otomatik olarak toplasın

sayfadaki diğer kodlar bunlar

Option Explicit

Private Sub worksheet_change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C7:E65536]) Is Nothing Then Exit Sub
If Target.Row < 7 Then Exit Sub
Application.EnableEvents = False
If UCase(Cells(Target.Row, "C")) = "S" Then
Cells(Target.Row, "F") = Cells(Target.Row, "D") * Cells(Target.Row, "E")
Cells(Target.Row, "G") = 0
Cells(Target.Row, "h") = 0
Cells(Target.Row, "ı") = 0
ElseIf UCase(Cells(Target.Row, "C")) = "A" Then
Cells(Target.Row, "G") = Cells(Target.Row, "D") * Cells(Target.Row, "E")
Cells(Target.Row, "F") = 0
Cells(Target.Row, "h") = 0
Cells(Target.Row, "ı") = 0
ElseIf Cells(Target.Row, "C") = "" Then
Range(Cells(Target.Row, "D"), Cells(Target.Row, "J")) = ""
Else
Cells(Target.Row, "F") = ""
Cells(Target.Row, "G") = ""
End If
Son:
Application.EnableEvents = True
End Sub

 

[uguristanbul]

çözdüm uğraşmanıza gerek yok
herkese teşekkürler