نجوم المشاركات

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

شكرا @Eng_shukri 🌹 انا اعجبني مرفقك ❤️ !كنت بحاجة لبروقرس فيجوال مع نافة حول برنامج متحركة كملة وعدلة وصلحة 😇 واتمنى ان ينال اعجابكم New Slide porgres bar.rar

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

الطريقة الخامسة.accdb

لقد سبق الاشارة الى انه يفضل اظافة باسوورد لمحرر الاكواد تفاديا لهدا Password 3698 فتح المصنف على اجهزة محددة.xlsm

WS.Copy Set NewWb = ActiveWorkbook ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing

الاكسيس والموبايل استحالة التوافق بينهما مهما حاولت فلا تتعب نفسك ابحث عن لغة اخرى

ماشاء الله اللهم بارك

https://nouariabdelkabir.github.io/Almotassafih/

بالنسبة لي ارى ان التصميم خاطىء يجب ان يبقى الرقم القومي فريد لا يتكرر .. مع البيانات الأخرى الثابتة اما السنوات والبيانات المتغيرة فتدرج في جدول آخر فرعي

وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Sub SaveActiveSheetVBA() Dim WS As Worksheet, NewWb As Workbook Dim SPath As Variant, FileName As String, fname As String Set WS = ThisWorkbook.Sheets("Sheet1") ' تحديد ورقة العمل SPath = ThisWorkbook.Path & "\" ' مسار الملف FileName = "TEST" ' اسم الملف fname = SPath & FileName With Application .DisplayAlerts = False .ScreenUpdating = False .CopyObjectsWithCells = False WS.Copy Set NewWb = ActiveWorkbook NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing .DisplayAlerts = True .CopyObjectsWithCells = True .ScreenUpdating = True End With End Sub Copy another Workbook.xlsm

تفضل تم اضافة الادارات والحاقها في التقارير ايضا يمكنك تصفية الادارات : حسب الادارة , وحسب التاريخ EvaluationEmpUp4.rar

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

معلش انا اسفه جدا انا عارفه انى تعبتك معايا بس النتيجه اللى انا عايزاها زى دى