ارجو المساعدة فى الكود

[محمد نوح]

السلام عليكم ورحمة الله وبركاتة الاخوة الافاضل ارجو المساعدة فى هذا الكود

وجزاكم الله خيرا

تم تعديل فبراير 24, 2011 بواسطه demo hot

[طارق محمود]

أين الكود ياأخي

[محمد نوح]

ارجو المساعدة فى كيفية رفع الملف

[محمد نوح]

عند القيام برفع الملف تظهر الرسالة

Error You aren't permitted to upload this kind of file

[zine pef]

قم بضغط الملف بي وين رار

[محمد نوح]

شكرا اخى

الملف مرفق

كود.rar

تم تعديل فبراير 24, 2011 بواسطه demo hot

[عبد الفتاح كيرة]

تفضل الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("i3:j3")) Is Nothing Then

    If Range("j3") = Range("i3") Then

    Range("e3:h3").ClearContents

    End If

End If  

End Sub

كود-kemas.rar

[محمد نوح]

اخى الكريم kemas

اسف على التاخير فى الشكر حيث انى لم اتصفح المنتدى منذ عده ايام وذلك لظروف العمل وجزاك الله خيرا