طلب تعديل في كود : كليك في ليست بوكس و ترحيل

[زياد عبد الجليل]

السلام على جميع الاساتذة الافاضل اما بعد :

لقد حملت مؤخرا ملف للاستاذ القدير ابو حنين  به كود رائع  حيث بمجرد عمل كليك على الليست بوكس يرحل الصف الى ورقة من الملف ولكن الاشكال هو رغبتي في الترحيل الى خلايا معينة في الكود بالرغم من كتابة اي شئ ادنى الخلية e ....لمعرفة المطلوب بدقة ارجو الاطلاع على الملف المرفق 

ارجو مساعدتي ولكم مني فائق عبارات الشكر و التقدير 

كليك في ليست بوكس و ترحيل.rar

[زياد عبد الجليل]

للرفع

[خالد الرشيدى]

السلام عليكم

اخي الكريم فقط قم بتغيير هذا السطر  

 Last = wr.Range("E" & Rows.Count).End(xlUp).Row + 1 

في حدث الضغط علي الليست بوكس 

Private Sub ListBox1_Click()

الي هذا السطر 
 

Last = wr.Range("E19").End(xlUp).Row + 1

ولفهم هذا السطر : ( wr.Range("E" & Rows.Count  بدءاً من اجمالي عدد صفوف العمود وهي 1048576  ....... .End(xlUp).Row  صعوداً الي اعلي اوجد اول صف بة بيانات .....  E20   ...  

+1   لايجاد اول صف فارغ  E21

ولهذا وجب تحديد صف البداية E19  صعودا ً الي اعلي سيعيد E8

مثال اخر :

 

[جلال الجمال_ابو أدهم]

خالد الرشيدى

اخى الفاضل ما شاء الله عليك

تحياتى

[زياد عبد الجليل]

بارك الله فيك استاذ خالد الكود يعمل بشكل جيد و رائع...شكرا جزيلا

[خالد الرشيدى]

أستاذي / جلال 

شكراً جزيلاً لحضرتك علي هذا المرور الطيب 

عفواً  أ. زياد   والحمد لله الذي بنعمته تتم الصالحات