خطأ فى كود حدث الورقه

[إبراهيم ابوليله]

الاخوه الافاضل

ارجو المساعده فى الخطا

الذى يحدث

تقبلو تحياتى

ERR.rar

[شوقي ربيع]

السلام عليكم

الخطئ في هذا السطر

If Not Intersect(Target, Range("a2") & lastColumn) Is Nothing Then

يجب ان تكون هكذا

If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي شوقي

مجرد هفوة صغيرة جدا

If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then

يجب أن يحذف الرقم 2 من g2

If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then

تقبل تحياتي

[محمد لطفى]

ماشاء الله لماح

[إبراهيم ابوليله]

اخى واستاذنا شوقى

اخى ياسر

اشكركم على متابعة الموضوع

ولكنى كنت اريد ان اعرف هل ينفع استخدام

الكود بالشكل الاتى

If Not Intersect(Target, Range("a2" & lastColumn)) Is Nothing Then

حيث ان الغرض من اضافه السطر الخاص بالحصول على اخر عمود

lastColumn

الى الكود هو عدم تحديد الخلايا فى الكود

وان يكون عمل الكود حتى اخر عمود به بيانات

والا فما الفرق بين السطر الاتى

If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then

والسطر التالى

If Not Intersect(Target, Range("a2:g2")) Is Nothing Then

تقبلو تحياتى

[إبراهيم ابوليله]

للرفع

[شوقي ربيع]

السلام عليكم

فرضا ان lastColumn =50

فالنتيجة الحتمية ل

Range("a2") & lastColumn

هي

Range("a2") 50

ماهذا

لا تعني شيئ اذا الفيوجل يعتبرها خطاء

اما لو كتبنا

Range ("a2" & lastColumn)

النتيجة تكون

Range ("a250")

هذا صحيح لاكنه ليس الذي تريده اليس كذالك لانه عندما نرجع الى الصيغة العامة للكود

If Not Intersect(Target, Range("a2" & lastColumn)) Is Nothing Then

والذي معناه انه اذا حدث اي تحديد او تغير في المدى الذي اخترته والذي وجدنا نتيجته

Range ("a250")

منه النتيجة الحتمية تكون

الكود يشتغل فقط عند تحديد او حدوث تغير في الخلية a250

اما سؤالك بخصوص الفرق بين

If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then

وبين

If Not Intersect(Target, Range("a2:g2")) Is Nothing Then

ببساطة هو انه مثل ماقنا في الاول ستكون نتيجة

الكود الاول سيطبق على المدى

Range("a2:g50"

بافترضنا انا lastColumn =50 وهو المطلوب والصحيح

اما الكود الثاني فالمدى واضحRange("a2:g2")

ولك الحكم

ارجو ان يكون قد تم التوضويح بشكل مفهوم

تحياتي للجميع

[إبراهيم ابوليله]

اخى شوقى اشكرك

على التوضيح

تقبل تحياتى