اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Mohammed793

الردود الموصى بها

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

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

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

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

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

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

 

Untitled1.png

Untitled2.png

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

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

Book.rar

تم تعديل بواسطه صـدّيـق
رابط هذا التعليق
شارك

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

 

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

 

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

21.jpg

13.jpg

رابط هذا التعليق
شارك

مشكلة اخرى اذا لم يدخل المستخدم للفورم بيانات في الخانه الاولى 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 وادخل بيانات اخرى الفورم سوف يرحل البيانات التاليه اسفل منها 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information