اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

الساده الكرام

 

برجاء ضبط كود الترحيل بما يتناسب بترحيل وسيله العوده كما في كل شيت في مكانها الصحيح في شيت العام وكذا اشم الشيت التى تم الترحيل من في عام

 

مه اضافه تحذير عند استخدام زر المسح

جزاكم الله كل الخير

 

مانفست كلابشه بدون تكرار3.part2.rar

  • أفضل إجابة
قام بنشر

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

 

أخي الكريم أحمد محمد، لقد تم المطلوب ببعض التعديلات على أكواد الترحيل والمسح وعلى شيت "تعديل"... الظاهر أن بعض المعادلات قد حُذفت من الشيتات الأربعة (وقد تم تعديل كود المسح حسب ما وجدته في هذه الشيتات) مع إضافة "رسالة التحذير" لأكواد المسح حسب ما قدمه أخي "حمادة عمر" في موضوعك الآخر http://www.officena.net/ib/index.php?showtopic=48878 ... أرجو أن تروق لك هذه التعديلات....

 

أخوك بن علية

 

الملف المرفق : مانفست كلابشه دون تكرار3.rar

قام بنشر

السلام عليكم اخى العزيز

اولا جزاك الله خير على المجهود الرائع معى

ولاكن يوجد مشكله في شيت المغادرين والعائدين

حيث يوجد استدعاء خطاء في خانه عوده خانه I  حيث انها تستقى من شيت عام من خانه p

الخطاء موجود في شيت المغادرين والعائدين

جزاك الله خيرا

شاكر لك حسن تعاونك

قام بنشر

اخى العزيز بن علية حاجي

لا يكفينى الا الدعاء لك فى ظهر الغيب

اسال الله العظيم ان يجعل ذلك فى ميزان حسناتك

تم ضبط الامر فى شيت المغادرين والقادمين

جزاك الله خير

قام بنشر (معدل)

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

 

أخي الكريم أحمد محمد، بالنسبة للمعادلة الثانية (التي وضعتها في الملف المرفق في مشاركتي) هو شرط إضافي للدالة IF وهو شرط تحسيني لئلا تكون نتيجة المعادلة 0 في حالة ما إذا كانت الخلية من العمود P من شيت "عام" فارغة... والله أعلم

 

أخوك بن علية

تم تعديل بواسطه بن علية حاجي
قام بنشر

اخى العزيز

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

بمعنى ان يتم  ترحيل الرقم رقم والتاريخ تاريخ بنفس الفرمات الخاصه به وكذا الخليا الملونه

كيف يتم ذلك

جزاك الله خيرا

قام بنشر

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

 

أخي الكريم أحمد، لأجل ذلك يجب تغيير خط تأطير جميع خلايا الجداول (حتى العناوين) في الشيتات الخمسة (عام - الاتوبيس - طائرة - مطروح - تعديل) إلى نفس النمط (حتى لا يحدث خلط في تنسيق خط التأطير عند الترحيل)... ونضيف السطر التالي في الكود :

Cells(nr, "I").PasteSpecial Paste:=xlPasteFormats

مباشرة بعد أو قبل السطر التالي :

Cells(nr, "I").PasteSpecial Paste:=xlPasteValues

وفي الملف المرفق تجد التعديل على الملف حسب هذه الملاحظات....

 

أخوك بن علية

 

الملف المرفق مانفست كلابشه دون تكرار3.rar

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