Satır sütun çarp topla

[Akif59]

Merhaba
Dosyadaki kodu Eğer doluysa satır olarak
D18 DI 67 68. Satır işlem yok D 69 DI 118 şeklinde

Eğer doluysa sütun olarak
DJ 18 DJ67 68. Satır işlem yok DJ69 DJ 118 şekline düzenlene bilimi

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("D18:DJ118")) Is Nothing Then
    For sut = 4 To 113
        For sat = 18 To 118: deg = deg + Cells(sat, sut) * Cells(sat, 114): Next
        Cells(15, sut) = deg: Cells(16, sut) = deg - Cells(14, sut): deg = 0: Next
    Range("DJ15") = WorksheetFunction.Sum([D15:DI15])
    Range("DJ16") = WorksheetFunction.Sum([D16:DI16])
    Range("DJ17") = WorksheetFunction.Sum([D17:DI17])
End If
Application.EnableEvents = True
End Sub
.