كود الانتقال للصف الفارغ التالي في الجدول

[Mohammed793]

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

أولا  تشرفت بالانضمام الى هذا المنتدى الرائع والمفيد اسال الله ان يجمعنا وياكم في الجنه

ثانيا اخواني أتمنى مساعدتي في حل هذه المشكلة اللي لي يومين ما حليتها

عندي ملف اكسل وفيه عملت فيه 5 نماذج لتعبئة البيانات في 5 صفحات والحمدلله كلو تمام والنماذج تعبي صح ولاكن لم اتوصل الى حل مشكلة الانتقال للصف التالي الفارغ في الجدول يعني النماذج شغاله تعبي في نفس الصف

قريت في النت وشفت دروس ولاكن مادري وش الخلل اللي انا اسويه

لمزيد من التوضيح شوفوا الصورتين في المرفقات

 

[صـدّيـق]

وعليكم السلام 

جرب تغيير (xlDown) بـ (xlUp)

 

 

[Mohammed793]

جربت ولاكن للاسف ما اشتغل 

تابعت مقاطع كثيره وجربت كود اخر بطريقه اخرى اتوقع 

شوف الصور ويقول فيه حاجه غلط ما فهمتها اتمنى المساعده 

 

[صـدّيـق]

من الافضل ان ترفق ملف توضيحي ليستطيعو مساعدتك

[Mohammed793]

هذي نسخه من الملف أتمنى المساعده 

حفظكم الله

Book3211412122222224151.rar

[Mohammed793]

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

[صـدّيـق]

تفضل اخي الكريم

 

Book321.rar

[Mohammed793]

الله يعطيك العافيه يارب ويكتب اجرك

 

ياليت لو تعلمني وش اللي غيرته ووش سويت

علشان اتعلم

[صـدّيـق]

اولا بما انك حاسب الاجمالي  وبعض المعادلات التي وضعتها في اخر الحدول فعند حساب اخر خلية فيها قيمة في العمود بالكامل  ستكون 
نهاية الجدول اي "c189" ،  فانا حصرت الحساب حتى "c188" ليجلت اخر خلية فيها قيمة قبل نهاية الجدول  .ثانيا انت كنت معرف lastrow  للانتقال للصف الموالي ولكن لم تستعمله وتركت الصف ثابت

والباقي تفريغ الخانات بعد الترحيل

واعادة مؤشر الماوس الى الخانة الاولى للكتابة من جديد 

 

[Mohammed793]

معليش خذني حبه حبه 😂 انا الان احاول اطبق كلامك على نسخه اخرى من نفس الشبت علسان اتعلم ماهو راضي مع اني سويت نفس الاشياء اللي غيرتها انت سويت موديول جديد وكلاس حتى الشيب سويته ولاكن برضو ما ينزل 

هل لازم اسوي لكل فورم موديول وكلاس 

 

لان مثل ما شفت عندي خمس فورمات 

[صـدّيـق]

بما ان الجداول متشابهة تستطيع تطبيق نفس الفورم على جميل الشيتات مع تغيير اسم الشيت بـ activesheet

Book.rar

تم تعديل أكتوبر 7, 2017 بواسطه صـدّيـق

[Mohammed793]

هل لازم اسوي لكل فورم موديول وكلاس 

 

لان مثل ما شفت عندي خمس فورمات 

[Mohammed793]

كتبت كود اخر يعمل بشكل ممتاز ولاكن لا يرحل البيانات في اول الجدول يقوم بترحيلها لاخر الجدول لا اعلم ما السبب جربت ان اكتب بدل xlup ,xldown ولاكن لم ينفع شاهدوا الصوره

 

اريده فقط ان يرحل في اول الجدول تحت العناوين

 

اسف على الاطاله فانا مبتدئ

[Mohammed793]

مشكلة اخرى اذا لم يدخل المستخدم للفورم بيانات في الخانه الاولى C 

البرنامج سوف يرحل البيانات الاخرى في نفس المكان لن الخانه الاولى فاضيه 

 

هل هناك حل ان اجعله يقرا من كل الصفوف 

 

يعني بدل 

Lrow = range("c" & rows.count).end(xlup) .row 

مثلا

 

Lrow = range("c,d,e,f,g,h,i,j & rows.count).end(xlup) .row 

لكي يتفادى المستخدم للفورم اي غلط بحيث حتى لو لم يكتب شي في خانة البيانات اللي يفترض ترحل الى الخانه c وادخل بيانات اخرى الفورم سوف يرحل البيانات التاليه اسفل منها