السادة المشرفين والاعضاء
السلام عليكم ورحمة الله وبركاته وبعد :
سؤالي هو مالخطأ في ه>ا الكود أو بالاصح هناك حلقة مفقودة في بنية الكود . ..أمل من الجميع التكرم باالاطلاع وتعديل الخطأ .
Private Sub Worksheet_Change(ByVal Target As Range)
If [e29] + [f29] > 0 Then
Cells(5, 7) = Cells(29, 7)
Range("e6:f29").ClearContents
End If
On Error GoTo 0
End Sub