احمد عبد الفتاح

الف شكر لحضرتك انا عاجز عن الشكر - فعلا الحل بسيط ورائع وشكرا لاهتمامك

مطلوب الرد لو سمحتوا - 13 مشاهدة ولا اى رد برجاء الاهتمام والمساعدة

الى الأخوة المحترمون خبراء الاكسيل بهذا المنتدى الرائع العظيم أرجو منكم المساعدة العاجلة فى تصحيح هذا الكود لترحيل البيانات مع مسح البيانات المرحلة () Sub OFFICNA1 Dim LR As Long, LR2 As Long, ws As Worksheet, ws2 As Worksheet Set ws = Sheets("1") Set ws2 = Sheets("1") LR = ws.Range("a" & Rows.Count).End(xlUp).Row LR2 = ws2.Range("co" & Rows.Count).End(xlUp).Row If ws.Range("a9").Value = "" Then ("لا توجد بيانات لترحيلها") MsgBox End If Dim c ("تحذير",36 ,"أنت بصدد ترحيل جميع السجلات الى الأرشيف فهل توافق ؟") c = MsgBox If c = 6 Then ws.Range("a9:l" & LR).Copy ws2.Range("co" & LR2 + 1) ws.Range("a9:l" & LR).ClearContents ws.Select "تم الترحيل", vbInformation + vbMsgBoxRight, "تم الترحيل بنجاح!" MsgBox End If End Sub المطلوب من هذا الكود أن يقوم بترحيل البيانات مع مسح البيانات المرحلة ، ولكن اذا كانت أول خلية فارغة من البيانات يعطى رسالة " لا توجد بيانات لترحيلها " ويتم انتهاء العملية . واذا كانت البيانات موجودة يتم استكمال الكود برسالة تحذير "أنت بصدد ترحيل جميع السجلات الى الأرشيف فهل توافق ؟" فإذا تم اختيار موافق يتم نقل البيانات مع مسحها من موضعها الاصلى ، واذا تم اختيار غير موافق أو NO يتم انتهاء الرسالة وانتهاء الكود . لذا أرجو من حضراتكم مساعدتى لاتمام هذا الكود على الوجه الصحيح حيث يعطينى الرسالة الاولى بأن الخلايا لا يوجد بها بيانات ثم يعطينى الرسالة التحذيرية الثانية ، والمطلوب أنه اذا كانت الخلايا فارغة أن يعطينى الرسالة الأولى فقط وينتهى عند ذلك الحد . ومرفق الملف نفسه للتجربة والتوضيح ولكم جزيل الشكر ... برنامج الكيماويات.rar

الاخوة الكرام الزملاء الاعزاء والسادة المشرفين بالمنتدى ارجو المساعدة فى استكمال انشاء برنامج لمتابعة رصيد مخزون كيماويات فى معمل تحاليل ( إضافة وسحب أصناف) مع وجود انذار قبل انتهاء صلاحية اى صنف بفترة زمنية معينة مع وجود انذار آخــر قبل نفاد الكمية الموجودة من اى صنف بفترة زمنية معينة أيضا" . ( البرنامج موجود فى المرفقات ) أرجو منكم المساعدة والشرح بالتفصيل لاستكمال هذا البرنامج ، بحيث يتم إضافة اصناف جديدة من الكيماويات الواردة للمعمل فى حال ورودها بتاريخ معين وكذلك يتم السحب يوميا" من الرصيد الموجود لبعض اصناف الكيماويات والكواشف الكيماوية الموجودة بالعمل . شـــــرح لما قمت بتصميمه فى البرنامج الموجود فى المرفقات :- أولا : الكيماويات الواردة للمعمل: قمت بتصميم جدول بإسم ref خاص بإضافة بيانات الاصناف كمايلى : الكمية بالعدد ( عدد العبوات ) لكل صنف + كل عبوة لهذا الصنف وزنها كام كيلو او كام جرام او كام لتر ؟ ( حسب نوع المادة الكيماوية الواردة ) ، قمت بتسمية هذا الحقل بإسم siz دولة المنشأ sity كود الصنف cod_z مفتاح أساسى اسم الصنف nam تاريخ انتهاء الصلاحية date_n تاريخ التوريد date_o الوحدة unit العدد num وبحيث نراعى انه لو نفس الصنف موجود قبل ذلك فى قاعدة البيانات وقمنا بإضافة كمية جديدة واردة من نفس الصنف الموجود من قبل - فإننا نراعى ان يتم اضافة الكمية الجديدة على الكمية الموجودة قبل ذلك بحيث يعطينا اجمالى الكمية الموجودة كلها قديم وجديد ، ولكن مع مراعاة تاريخ انتهاء الصلاحية للكمية الموجودة من قبل يختلف بالطبع عن تاريخ انتهاء الصلاحية للكمية الجديدة الواردة للمعمل وبحيث نراعى الاتى : طريقة للبرمجة بحيث يتم اعطاء انذار قبل انتهاء تاريخ الصلاحية الاقدم لكل صنف موجود عندى بقاعدة البيانات - وان يكون هذا الانذار قبل انتهاء تاريخ الصلاحية بحوالى 3 شهور على سبيل المثال . طريقة للبرمجة بحيث يتم اعطاء انذار آخر قبل نفاد الكمية الموجودة عندى من اى صنف من الاصناف بحوالى 6 شهور على سبيل المثال حتى يتمكن المعمل من بدء اجراءات وطرح مناقصة عامة لشراء كمية أخرى من هذا الصنف الذى اعطانا انذار من قاعدة البيانات . ثانيا " : نموذج للسحب من الاصناف الموجودة عندى بقاعدة البيانات وبحيث يقوم البرنامج بخصم الكميات التى اقوم بسحبها من الرصيد الفعلى لهذا الصنف ، حيث قمت بعمل الجدول التالى بإسم data : كود العملية cod مفتاح اساسى اسم العملية nam_1 تاريخ العملية date اسم صاحب العملية nam_2 هذا الجدول خاص بسحب كميات مختلفة من الاصناف الموجودة مسبقا" عندى ، الجدول بإسم data خاص بالسحب من الاصناف . ثالثا" : قمت بعمل جدول ثالث بإسم data_2 و قمت بوضع جميع الحقول الموجودة بالجدولين السابقين فى هذا الجدول الثالث . رابعا" : قمت بعمل علاقة بين الجدولين data ، data_2 علاقة طرف بعدة أطراف عن طريق ربط المفتاح الاساسى cod الموجود بكلا الجدولين . خامسا" : قمت بإنشاء جدول بإسم nam خاص باسم السادة العاملين بالمعمل والذين سيقومون بسحب كميات من الاصناف الموجودة . هذا الجدول يتكون من حقلين : حقل المسلسل cc مفتاح أساسى حقل اسم الموظف بالمعمل na أهم شىء أرجو من السادة الخبراء والمشرفين بالمنتدى شرح طريقة استكمال ذلك البرنامج بحيث يمكن الحصول منه على تقارير واستعلامات توضح بيان بالاصناف الموجودة بجميع البيانات التى تخصها وأيضا" بيان بحركات السحب المختلفة خلال فترة زمنية محددة بالتاريخ من ---- والى ---- . وأهم شىء هو شرح طريقة عمل برمجة أو أكواد لكى يقوم البرنامج بإعطاء انذار قبل انتهاء تاريخ الصلاحية الأقدم لاى صنف من الاصناف الموجودة بثلاثة شهور . كذلك اعطاء انذار قبل نفاد الكمية الموجودة من اى صنف بحوالى 6 شهور . منتظر الردود والشروحات ولكم جزيل الشكر وأرجو المعذرة اذا كنت قد أطلت على حضراتكم فمنكم نستفيد ان شاء الله مع خالص التقدير والاحترام لجميع الاعضاء بهذا المنتدى الرائع العظيم . ( البرنامج موجود فى المرفقات ) . برنامج الكيماويات_2.rar