من أجل ان تعم الفائدة نريد من الجيع الدخول واكتشاف الشى الناقص في الكو

[skyblue]

السادة المشرفين والاعضاء

السلام عليكم ورحمة الله وبركاته وبعد :

سؤالي هو مالخطأ في ه>ا الكود أو بالاصح هناك حلقة مفقودة في بنية الكود . ..أمل من الجميع التكرم باالاطلاع وتعديل الخطأ .

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

[skyblue]

مرفق ملف بالكود

Book119.rar

[عبدالله باقشير]

السلام عليكم

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E29").Address Or _
Target.Address = Range("F29").Address Then
    Cells(5, 7) = Cells(29, 7)
    Range("e6:f29").ClearContents
    End If
On Error GoTo 0
End Sub

[skyblue]

خبور خير كلك خير

وفقك الله