تحديد آخر خلية فارغة في صف

[ابوالزوز]

السلام عليكم ..

أخواني الأفاضل أرجو المساعدة في تحديد آخر خلية فارغة في صف محدد وضمن مدى محدد أيضاً

والمرفق يوضح المطلوب

تقبلوا تحياتي ..

LastColumn.zip

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

أخي الكريم abuzzouz

اكتب هذا الكود في موديول في إجراء فرعي :

Range("B2").End(xlToRight).Offset(0, 1).Select

أخوك أبو البراء

[هشام شلبى]

السلام عليكم

===========

بارك الله فيك اخى ابو البراء

وايضا ممكن استخدام الصيغة الاتية لتحديد مكان الخلية فى الصف الثانى

=MATCH(9.99999999999999E+307;2:2)+1

[ابوالزوز]

جزاكماالله ألف خير أخواني الأعزاء

هذا ما كنت أود التوصل إليه إلا أنه لم يتم تحديد المدى

الذي يمكن من خلاله فقط اختيار الخلية الفارغة

مع كل الإحترام والتقدير

أخوكم Abuzzouz

تم تعديل مايو 20, 2010 بواسطه abuzzouz

[هشام شلبى]

السلام عليكم

===========

اخى abuzzouz حياك الله

هناك اكواد كثيرة لهذا الامر

والمطلوب منك توضيح اكثر للمطلوب

هل تريد تحديد اول خلية فارغة فقط

ام المدى فى الصف الثانى كله وينتهى عند الخلية الفارغة ام ماذا

[ابوالزوز]

أخي العزيز هشام

ما قصدته هو تحديد أول خلية فارغة في الصف المحدد وهو ماتم التوصل إليه

إلا أن الشق الثاني من السؤال هو تحديد المدى الذي يتحرك ضمنه هذا التحديد

وهو في المثال B2:H2 بمعنى أنه إذا كانت الخلية H2 ممتلئة لا ينتقل التحديد إلى الخلية I2

لأن التحديد مشروط بالمدى المذكور

أتمنى أن أكون قد أوضحت المقصود

تقبل تحياتي ..

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

جرب الكود التالي

Set X = Range("B2").End(xlToRight).Offset(0, 1)

If X <> Range("B2") Or X <> Range("C2") Or X <> Range("D2") Or X <> Range("E2") Or X <> Range("F2") Or X <> Range("G2") Or X <> Range("H2") Then

X.Select

Exit Sub

Else

X.Select

End If

أخوك أبو البراء