مطلوب كود للوقوف في آخر خلية فارغة في العمود النشط للتسجيل فيها

[هاني مصطفي]

السلام عليكم

الأساتذة الأفاضل

لكم مني أرق التحيات

احتاج لكود يمكنني من الحصول علي آخر خلية في العمود النشط

حيث أنني احتاجه في كود لفورم

به كومبوبكس عندالاختيار منه يذهب للعمود المطلوب بناءا علي قيم معينة

واحتاج هذا الكود ليمكنني التسجيل في آخر خلية فارغة في العمود النشط

بعد الاختيار من الكومبوكس

وعذرا لايمكنني ارفاق ملف حيث أنني متواجد في مأمورية عمل في مكان لا يوجد به نت

وأرسل لكم الان من علي هاتفي المحمول

رجاء احتاج هذا الكود بمنتهى السرعة فضلاً لا أمرا

واعرف أن الرد بدون مرفقات يضيع الوقت

ولكن ليس أمامي غيركم وغير منتداي العزيز

في انتظار الرد الرائع لكم

[بن علية حاجي]

السلام عليكم ورحمة الله

 

ما دمت تريد الكود لاستعماله في كومبوبكس فالملف ضروري وأكيد...

 

بن علية

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

أخي الحبيب جرب الكود التالي

هذا للعمود A يمكنك تغيير العمود كما تريد

    Range("A" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

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

جرب الكود التالي ليعمل مع أي خلية نشطة

Sheets("Sheet1").Range("" & Mid(ActiveCell.Address, 2, 1) & "" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select

[هاني مصطفي]

استاذي الفاضل

كود في منتهى الروعة والجمال

وهو المطلوب بالفعل

جزاك الله خيرا أستاذنا