بن علية حاجي

السلام عليكم ورحمة الله إخي الكريم، إضافة إلى حلي أخوايا العزيزين طارق و دغيدي هذا حل آخر مع صفحة واحدة للترحيل وإضافة تنسيق شرطي تحسيني... أرجو أن ينال إعجابك... أخوك بن علية المرفق : رقم الحساب3.rar

السلام عليكم ورحمة الله أخي الحبيب سعيد، أختي الفاضلة أم عبد الله بارك الله فيكم وجزاكم الله عنا خير الجزاء... والله لست أدري إن كنت فهمت المطلوب وأقدّم هذه المحاولة في الملف المرفق... أرجو أن يكون فيه المطلوب أو بعضا منه... أخوك بن علية المرفق (نسخة 2003 فقط) : ترتيب في الشيت حسب المسمى الوظيفي - بن عليه حاجى.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إضافة إلى تعديل أخي الكريم حمادة باشا جازاه الله عنا ألف خير، هذا تعديل آخر على كودي الملفين باختصارهما كثيرا، أرجو أن تفي هذه التعديلات بالغرض المطلوب... أخوك بن علية المرفقات : الملف الأول : Trading Investments - 1.rar الملف الثاني : Trading Investments - 2.rar

السلام عليكم ورحمة الله أخي الكريم أبو شرف، في الحقيقة لم أفهم جيدا ما تطلبه... وقد قمت بتعديلات على التنسيق الشرطي للخلايا (التلوين بالأحمر لخلايا النطاق B2:E1048576 مع التلوين بالأزرق لخلايا تكرار الأسماء وبالأصفر لخلايا تكرار الأرقام)... وعملية لصق القيم الجديدة من ملفات أخرى يجب أن باستعمال خاصية "لصق خاص / قيم" حتى لا تُمسح التنسيقات الشرطية التي كانت في الخلايا التي تم النسخ فيها مع العلم أن عملية نسخ/لصق تتجاوز شروط "التحقق من الصحة" وفي هذه الحالة لا نتحصل على رسالة الخطأ وكمثال على ذلك قد وضعتَ في ملفك خاصية "التحقق من الصحة" لعمود "رقم الجواز" إذا كتبت يدويا رقم جواز مكرر تأتيك رسالة الخطأ لعدم توفر شروط التحقق من الصحة ولكن إذا قمت بنسخ رقم جواز سفر مكرر من خلية أخرى ولصقته في خلية من خلايا عمود أرقام الجوازات فإنه الرقم يُحجز (يُكتب) في الخلية ولا تكون رسالة الخطأ وهذه إحدى مساوئ خاصية التحقق من الصحة... أما استعمال التنسيق الشرطي وخاصة لما نختار المعادلات المناسبة فهذا أحسن بكثير (شرط أنه إذا استعملت خاصية نسخ ولصق أن تكون باستعمال خاصية لصق خاص / قيم كما ذكرت سابقا)... والله أعلم أخوك بن علية الملف المرفق : تنسيق شرطي.rar

السلام عليكم ورحمة الله أخي الكريم، هل ما في الملف المرفق هو ما تريده؟ إن لم يكن هذا المطلوب فأرجو الشرح أكثر... تم استعمال تسميات جديدة لنطاقات واستعمال الدالة OFFSET مع MATCH في عملية ترحيل البيانات حسب اختيار القائمة المنسدلة... أخوك بن علية الملف المرفق : الشهادات بقائمة منسدلة.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل كبداية بالمعادلات في الملف المرفق... أخوك بن علية الملف المرفق : Book1.rar

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للملف فقد عدلت من البداية على هذه النسخة من المرفق، وأعيد إرفاق مرة ومرة لكن هذه المرة إن حدث الخلل نفسه فقم بعملية الاسترداد للملف وسيكون فارغا من الأكواد، ثم من خلال VBA أنشئ موديول Module جديد وضع فيه نص الكود التالي : Sub Macro1() Dim I As Integer , C For I = 4 To [A65000].End(xlUp).Row For C = 19 To 2 Step -1 Cells(I,C).Value = Cells(I, C).Offset(0, -1).Value Next Next End Sub ثم قم بحفظ الملف في أي نسخة من أوفيس لديك (ويستحسن نسخة 2003)... من المفروض أن لا يكون هناك خطأ في فتح الملف مرة أخرى بأيّ من النسختين.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar

السلام عليكم ورحمة الله أخي الكريم، أعيد إرفاق مرة أخرى لكن هذه المرة قد تم حفظ الملف بصيغة xlsm. بواسطة إكسيل 2010... من المفروض هذه المرة أنك لن تجد صعوبة في فتح الملف حتى بواسطة النسخة التي معك (إكسيل 2007)... تقبل تحياتي الخالصة واحترامي... وبارك الله فيك على الدعاء لنا جميعا في هذا الصرح الكبير ولك إن شاء الله بالمثل.... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar

السلام عليكم ورحمة الله أخي الكريم، الخطأ مني في الملفين فقد قمت بإضافة صفين في شيت رقم 1 لأجل توحيد التنسيق بينها وبين الشيت رقم 2 (شيت الطباعة) ونسيت أن أحذفهما فمعذرة لهذا الخطأ... يمكنك تصحيح خطأ كود الترتيب بتحديد الصفين (الفارغين) رقم 4 ورقم 5 في شيت رقم 1 وحذفهما كليا وبإذن الله ستعود الأمور إلى مجاريها... وأعتذر مرة أخرى... لا تنسى أن تمسح كلمة سر الحماية على الشيت رقم 2 (خاصة الملف الثاني) التي هي hb -كما ذكرت سابقا- حتى يعمل الكود دون تعطيل... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، بالنسبة للتساؤل "الملف يا أحبتي يفتح وبعدها يعطي إشارة خطأ ويطلب الموافقة على إرسال بيانات تصحيح إلى أوفيس" هذا أعتقد سببه أنك تفتح الملف بواسطة نسخة أوفيس 2007 (خاصة) فهذه النسخة في العادة لا تتجاوب جيدا مع الملفات المصنوعة في نسخة أوفيس 2003... والله أعلم أما التساؤل الثاني "أن يتم عمل ثلاث صفحات لنفس الشيء مثل الصفحة الأولى" فهذه يمكنك فعلها بنسخ مضمون كل خلايا (بعد التحديد الكلي) هذه الورقة ثم لصقها في الأوراق الأخرى (وإذا كنت تريد الكود فقط لتنفيذه في الأوراق الأخرى فيمكنك فقط إنشاء أزرار في هذه الأوراق وربطها بالكود)... أما التساؤل الثالث "أن يتم عمل صفوف إلى عدد 300 صف والجميع يتحرك مثله مثل الصف الرابع (في المرفق الجديد) ((تحرك الخلايا))" فهذه قد تمت الإجابة عليه بالتعديل على الكود في الملف المرفق السابق الذي لا يفتح معك وما يبقى إلا تضيف في الأسفل الصفوف التي تريد (عندما يُفتح الملف)... أرجو أن يفتح الملف عندك وترى فيه الإجابة على هذا التساؤل... أعيد إرفاق الملف مرة أخرى احتياطا (تم فيه إنشاء الصفحات الثلاثة المتشابهة كما طلبت في الرجاء الثاني)... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar

السلام عليكم ورحمة الله أخي الكريم، هذا تعديل ملى كود أخي الفاضل والحبيب عبدالله جازاه الله عنا ألف خير، وأرجو أن يكون هو المطلوب... أخوك بن علية الملف المرفق : التنقل عبر الخلايا.rar

السلام عليكم ورحمة الله أخي الكريم، وضعت في الملف المرفق ملفين للعملية (طباعة) الأول يتم فيه الترحيل بالمعادلات والثاني يتم الترحيل فيه بكود Copying تم ربطه مع كود الطباعة.... أرجو أن يعجبك هذا العمل ويفي بالغرض المطلوب... أخوك بن علية الملف المرفق : تنسيق بنات دور أول 2014 .rar

السلام عليكم ورحمة الله أخي الكريم أحمد، لأجل ذلك يجب تغيير خط تأطير جميع خلايا الجداول (حتى العناوين) في الشيتات الخمسة (عام - الاتوبيس - طائرة - مطروح - تعديل) إلى نفس النمط (حتى لا يحدث خلط في تنسيق خط التأطير عند الترحيل)... ونضيف السطر التالي في الكود : Cells(nr, "I").PasteSpecial Paste:=xlPasteFormats مباشرة بعد أو قبل السطر التالي : Cells(nr, "I").PasteSpecial Paste:=xlPasteValues وفي الملف المرفق تجد التعديل على الملف حسب هذه الملاحظات.... أخوك بن علية الملف المرفق : مانفست كلابشه دون تكرار3.rar

السلام عليكم ورحمة الله أخي الكريم، بالنسبة لمعالات الأعمدة باللون الأصفر (مجموعي الفصل الأول والفصل الثاني) فهي صحيحة كما طلبتها... بالنسبة للملاحظات (ممتاز ، جيد جدا ، جيد ، متوسط ، مقبول) على أي أساس ومقياس ستوضع في الجدول؟؟؟ أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أنه يمكن برمجة كود لتخفيض مستوى أمان الماكرو ولا أعرف أنه يوجد كود لهذا الغرض... والله أعلى وأعلم أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم منير، أردت أكثر من هذا الشرح وأقترح عليك الحل التالي "الترحيل بالمعادلات" في الملف المرفق مع بعض الملاحظات... أرجو أن يكون هذا جزء من الحل... أخوك بن علية الملف المرفق : سجل33.rar

السلام عليكم ورحمة الله أخي الكريم أحمد محمد، تم التعديل حسب المطلوب... أخوك بن علية الملف المرفق : مانفست كلابشه دون تكرار3.rar

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

السلام عليكم ورحمة الله أخي الكريم أحمد محمد، هناك خلل عند فتح الملف... رجاء أعد إرفاقه وتأكد من عدم وجود الخطأ من جديد... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أبو صبري، أولا أود أن أنبهك، قبل غلق الموضوع من طرف الإدارة، إلى تغيير عنوان الموضوع حسب شروط المشاركة في المنتدى http://www.officena.net/Tips/Questions.htm وثانيا بالنسبة لسؤالك يمكن وضع المعادلة التالية في أي خلية تريد ثم نسخها إلى الأسفل إلى الحد الذي تريد: المعادلة: =INT((ROW($A1)-1)/5)+1 وإن كنت تريد التسلسل أفقيا فضع المعادلة التالية في أي خلية ثم اسحبها إلى الخلايا المجاورة أفقيا: =INT((COLUMN(A$1)-1)/5)+1 أرجو أن ينجح معك هذا الاقتراح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم منير، تريد تكملة للموضوع ولكن لا توجد بداية على الأقل ضع مثالا للعمل عليه في ورقة nn وبعض الشرح لكيفية ملء أعمدة جدول هذه الورقة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، أولا أهلا بك عضوا جديدا بين إخوانك وأخواتك تفيد وتستفيد وثانيا يجب عليك تغيير عنوان الموضوع (شروط المشاركة) لئلا يُغلق الموضوع وثالثا إذا كنت تحتاج إلى أكثر من 65536 صف (حدود نسخة 2003) فيُستحسن الانتقال إلى النسخ الأعلى 2007 أو 2010 أو 2013 التي تتجاوز هذا العدد بـ 15 مرة أي : 16*65536 = 1048576 صف وليس لي فكرة أخرى حتى أرى حجم وشكل البيانات.... والله أعلى وأعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، تم المطلوب في الملف المرفق باستعمال كود بسيط في موديول Module بزر للتنفيذ ويمكنك وضع الكود في حدث الورقة لتجعله تلقائيا (يستحسن ترك عمل الكود بالطريقة اليدوية)... أخوك بن علية الملف المرفق : جمع تلقائي (يدوي).rar