Private Sub Worksheet_Calculate()
Dim c As Range
Application.EnableEvents = False
On Error Resume Next
For Each c In Range("J7:J" & Cells(Rows.Count, "J").End(xlUp).Row)
If c = "DDD" Then
c.Offset(, 1).Value = "NNN"
If c.Offset(, 2) = "" Then
c.Offset(, 2).Value = c.Offset(, -4).Value
c.Offset(, 25).Value = c.Offset(, -8).Value
c.Offset(, 26).Value = c.Offset(, -7).Value
c.Offset(, 27).Value = c.Offset(, -6).Formula
c.Offset(, 28).Value = c.Offset(, 2).Value
c.Offset(, 30).Value = c.Offset(, 1).Value
c.Offset(, 31).Value = c.Offset(, 41).Value
c.Offset(, 29).Value = c.Offset(, 40).Formula
End If
End If
Next c
Application.EnableEvents = True
End Sub
السلام عليكم
مساء الخير
ممكن شرح لهذا الكود