يوسف عطا

قم بإرفاق الملف الذى تريد وضع الكود فيه

أخى العزيز طالما أن الشئ الذى تريد أن تسأل عنه موجود مسبقاً فى موضوع آخر وخاصة أنه من إنشائك أيضاً فالأفضل أن تضع فيه كل تساؤلاتك بخصوص هذا الشئ حتى لا يتشتت من يريد المساعدة بين أكثر من موضوع وأكثر من مشاركة دمت بود وبخصوص الموضوعات المكررة الرجاء من أحد المشرفين الأفاضل حذف المكرر أو دمج كل الموضوعات المكررة من نفس العضو فى موضوع واحد

طيب يا الغالى ممكن تقولى أسماء المواد من أجل تحسين طريقة عمل البرنامج وهل تريد أن تكون لكل مادة شيت يتم رصد عمليات التعامل على هذه المادة فيه ويتم تلقائياً نقل البيانات لشيت المستودع والمخازن ؟؟ أم تريد أن يكون البرنامج أبسط ما يمكن ويتكون فقط من 3 شيتات ( مستودع - مخزن1 - مخزن2 )؟؟

الرجاء من أحد الأفاضل المشرفين تغيير عنوان الموضوع ويمكن إستخدام العنوان التالى رسالة خطأ تمنعنى من إضافة أعمدة فى الشيت ( تم الحل)

تم عمل ملف تمهيدى وفى إنتظار الرد على الإستفسارات

هل توجد تعاملات بين المخازن الفرعية وبعضها ؟؟ وما العدد التقريبى للمواد المتعامل عليها ؟؟ هل البضائع المرتجعة تظل بالمخازن الفرعية كلها ؟؟ أم تعود للمستودع الرئيسى كلها ؟؟ أم جزء هنا وجزء هناك ؟؟

محاولة منى للمساعدة فى فهم المطلوب أولاً ولو فى يدى الحل فلن أبخل به عليك أخى السائل أولاً نحدد هل الترحيل سيتم من شيت واحد إلى عدة شيتات أم لا ؟ وإن يكن هكذا نستكمل التساؤلات ثانياً ماهى معايير الترحيل ( نصوص أو أرقام ) وفى أى عمود ستكون موجودة فى الشيت الرئيسى ولابد أن يكون لكل معيار شيت ترحيل مستقل ثالثاً ماهى الأعمدة التى سيتم ترحيلها إلى شيتات الترحيل رابعاً لابد أن تكون البيانات فى الشيت الرئيسى موجودة بخلايا غير مدمجة حتى يسهل العمل ويكون دقيقاً والباقى سهل إن شاء الله

أخى أبو شربات ما هو نظام الحساب فى الحالات التالية السن أقل من 55 سنة وتغيب فقط 30 يوم ولم يتخطاهم السن أقل من 55 سنة وتغيب أكثر من 60 يوم السن 55 سنة وتغيب 60 يوم فقط ولم يتخطاهم

أخى الغالى ابا حنين هل يمكن التعديل فى الكود هكذا ليكون الكسر العشرى ذو منزلة واحدة والحفاظ على خاصية منع ظهور الصفر والعلامة العشرية لو كان الرقم بدون كسر عشرى ؟؟ علماً بأن الكود سيطبق فى مدى 2000 سطر كاملين Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim c As Range For Each c In Range("A1:IV2000") With c If Right(.Text, 2) = "00" Or .Value = 0 Then .NumberFormat = "General" Exit Sub Else .NumberFormat = "0.0" End If End With Next End Sub

بخصوص صلاحية القراءة فقط فهى متاحة فى الإصدار الثانى من الملف وقد تجده بإحدى مشاركات الأخ عبدالله المجرب فى هذا الموضوع فى المشاركة رقم 15و 31 بخصوص عدم الحذف وعدم النسخ وعدم رؤية المعادلات يمكنك تأمين الخلايا فى ورقة العمل بباس وورد كما يمكن إدراج أكواد منع النسخ ومنع الحذف وتأمين المعادلات وجميعها موجودة بالمنتدى بكثرة فقط أكتب فى مربع البحث كود منع النسخ أو غيره وستجد أكثر من إجابة بخصوص عدم رؤية الأكواد يمكنك إغلاق عرض التعليمات البرمجية بباسوورد بخصوص الصلاحيات المتعددة الإصدار الثانى ايضاً يوفرها بـ3 مستويات هى منع تام - معاينة فقط - معاينة وإمكانية التعديل وفقك الله

الرجاء من أحد المشرفين الأفاضل حذف هذا الموضوع أو دمجه مع موضوع آخر لنفس اليوزر بنفس الإسم لأنه مكرر

هل يوجد أوفيس 2008 ؟؟

يمكن إستخدام دالة إف قبل نسخة من المعادلة بحيث إذا كانت المعادلة لها نتيجة توضع النتيجة ولو لم يكن لها نتيجة تترك الخلية خالية

جرب هذا الكود ولا تنسى تغيير المدى للمدى الذى تريده Sub Random() Dim myRange As Range Set myRange = Worksheets("ورقة1").Range("A1:A100") myRange.Formula = "=int(RAND()*101)" myRange.Font.Bold = True End Sub ضع الكود فى موديول وأربطه بزر تتغير الأرقام العشوائية كل مرة تضغط الزر

الرجاء من أحد الأفاضل المشرفين تعديل عنوان الموضوع ليدل على محتواه

على حد علمى طلبك لابد أن يتم بالأكواد مع تعديل بسيط فى نظام الجمع والله أعلم

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

ياريت لو كنت شرحت المطلوب داخل المشاركة بالإضافة للمرفق

سلمت يداك خبور بك خير الرجاء من أحد الأفاضل المشرفين تعديل العنوان ليتناسب مع محتوى الموضوع بتسمية الكود المطلوب إضافته

الرجاء من أحد المشرفين الأفاضل تعديل عنوان الموضوع ليتناسب مع محتواه

فى الغالب ان مستوى الامان عندك عالى خفض مستوى الامان الى اقل درجة

الله ينور عليك ابو حنين

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

يا أخى الفاضل راجع الملفات جيداً جميعها تقوم بماطلبت عند إدراج ورقة جديدة يتم إضافتها وعند إعادة تسمية ورقة تتم إعادة تسميتها تمت التجربة على أكثر من ملف بالمرفقات ومنها الملفان فى المشاركة الأولى