تحديد النطاق الذي بة بيانات فقط

[ماجدجلال]

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

ارجو المساعدة بوضع كود , يقوم بتحديد النطاق من الصفوف الذي يوجد بة بيانات ,,

وللتوضيح :

اذا فرضنا اننا لدية جدول من البيانات يمتد من A7:J7

والي الاسفل حتي اخر خلية يوجد فيها بيانات , فمثلا قد تكون اخر صف فية بيانات هو A50:J50وقد يزيد وقد ينقص ,

المطلوب هو كود عند تشغيلة يقوم بتحديد النطاق الذي يمتد من او الصف الذي هو ثابت A7:J7 والي اخر صف موجود فية بيانات وهو غير ثابت ,,,

العملية قد تشبة الضغط علي الزر End والسهة للاسفل حيث ينقلك الي اخر خلية فارغة او العكس ,,,

ارجو المساعدة ,,,

[علي السحيب]

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

Sub Select_Range()
[A7:J7].Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

[ماجدجلال]

شكرا استاذ علي

لقد نجح الكود شكرا لك

[ماجدجلال]

كنت اعتقد ان اصعب جزء من الكود تم حلة ولكن المشكلة مازلت موجودة ,,

الحقيقة انني اريد كود يقوم بالخطوات التالية :

1- امر يقوم بتحديد النطاق الذي يوجد فية البيانات , وهذة تكفل بها الاستاذ علي بارك الله فية ,,

2- امر يقوم بنسخ النطاق الذي تم تحديدة سابقا اي في الخطوة الاولي .

3- امر ينتقل الي الي ملف مفتوح مسبقا اسمة (100) وهذة اعتقد انها سهلة وهو الامر Sheets("100").Select الا اذا كان هناك صيغة افضل منها ,

4- امر يبحث عن اول خلية فارغة ضمن العمود A , وينسخ البيانات فيها ,,

ارجو منكم المساعدة وشكرا ,,,

[علي السحيب]

شاهد المرفق،

_________________________.rar

[ماجدجلال]

شكرا لك استاذ علي

وبارك الله فيك وزادك من علمة

الف شكر