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

طيب يكفي تقرير واحد لكل هذه العمليات الثلاث ... انظر جرب ..... فلتر وتصفية ثلاث معيار (2).accdb

وعليكم السلام اتفضل اخى @طارق عبد الرازق يجب ان تكون المعايير كلها على صف واحد بالتوفيق فلتر وتصفية ثلاث معيار.accdb

الشكر لله ثم لاخى @ابو البشر الذى اكمل معك باقى الموضوع فما كنت لاقدم افضل مما قدمهفجزاه الله خيرا وجميع اخواننا واساتذتنا جزاهم الله خيرا 🌹 بالتوفيق

إحنا مش هنستعبط على البرنامج بأه 😂

فورم متحرك لادخال بيانات وحذفها وفورم ترحيب لِآياتٍ قِرانيَّةٍ الفيديو

طيب كنت احضر المرفق واذا بالرد وصل من الباش مهندس @Moosak بس ولانى حضرت المرفق وطبعا عملت حساب كل شئ مش راح اشرح اترككم مع التجربـــــة وراح نشوف رد يضاف للمكتبة Extract Filename And Extension.zip

حسب فهمي للمطلوب جرب هذه المعادلة =IF(A1>10,33.5+(A1-10)*4.25,A1*3.35) وتعني إذا كان قيمة A1 اكبر من 10 فيتم إضافة 33.5 وهي ناتج ضرب العشرة ايام في 3.35 زائد باقي الأيام فوق العشرة في 4.25 بالتوفيق

المنتدى به كنوز رائعة تحتاج فقط من يبحث عنها https://www.officena.net/ib/search/?q=صورة الموظف&quick=1&type=forums_topic&nodes=135&search_and_or=and بالتوفيق

وعليكم السلام-جرب هذا وليس هناك داعى للأكواد .فقمت بعمل قائمة يمكنك اختيار الأصناف منها كما تشاء بعمود الصنف بصفحة شيت اليومى ثم بعد ذلك كتابة الكمية المراد ادخالها بعمود الكمية واترك الباقى على الإكسيل مخازن 1فود.xlsm

بالعراقي ... اروحلك فدوة اخي ابو الحسن وباللبناني ...تئبرني افتح موضوع جديد افضل...

وعليكم السلام-كان عليك استخدام خاصية البحث بالمنتدى لتعلم كيفية عنمل القائمة المنسدلة ..أو عليك مشاهدة هذا الفيديو للتعلم

@ابو جودي ههههههه .... مثلا هذا الملف .... ‎.rar

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

مادمت لم تعرف كيف تتواصل مع المبرمج يمكنك الإستفادة من هذه الموضوعات المفتوحة المصدر https://www.officena.net/ib/search/?q=date picker&quick=1&type=forums_topic&nodes=135&search_and_or=and بالتوفيق

وعليكم السلام يمكن الاطلاع على الرابط التالي

بالتوفيق .....

الأستاذ أبو البشر أحتاج لطباعة أولاً فواتير الشركة كلها ثانياً : فواتير هذة الشركة عن عام ثالثاً : فواتير هذة الشركة لشهر

وهذه مشاركة مع اخي أحمد ..... فلتر وتصفية ثلاث معيار.accdb

شكراً لك أستاذ احمد الفلاحجي تحياتي

السلام عليكم مشاركه مع اخواتى واساتذتى الافاضل ابو البشر و ابوجودى اولا قمت بازاله القيمه الافتراضيه للترقيم فالنموذج الرئيسى وكذلك تعديل خاصيه ممكن الى نعم ثم وضع كود الترقيم فى حدث عند الفتح Private Sub Form_Open(Cancel As Integer) 'On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.as_a1.SetFocus Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.Pu_inx8.SetFocus Me.Pu_inx8.Form!as_b2.SetFocus End Sub بالتوفيق 1_1.accdb

أخي الكريم صاحب الموضوع اول خطوة لتعديل الكود فهمه وفهم متغيراته والكود القديم يقوم بنقل قيمة العمود J إلى العمود 19 بعد العمود الأول في شيت البيانات والمطلوب إضافة نفس الكود عند تعديل العمود G ويتم نقله إلى العمود 16 بعد العمود الأول في شيت البيانات لذلك يصبح الكود بعد التعديل Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim ws As Worksheet Set ws = Sheets("البيانات") Dim c, x Application.ScreenUpdating = False If Not Intersect(Target, Range("g8:g1000")) Is Nothing Then c = Target.Offset(, -9) x = Application.Match(c, ws.Columns(1), 0) ws.Cells(x, 1).Offset(, 16) = Target Ebd If If Not Intersect(Target, Range("j8:j1000")) Is Nothing Then c = Target.Offset(, -9) x = Application.Match(c, ws.Columns(1), 0) ws.Cells(x, 1).Offset(, 19) = Target End If Application.ScreenUpdating = True End Sub لاحظ تم تكرار سطور الشرط للعمودين g و j مع تغيير رقم العمود المرحل إليه مرة 19 ومرة 16 بالتوفيق

وعليكم السلام لو فهمي صحيح تفضل اضافة الى الكود القديم.xlsm

وعليكم السلام ورحمة الله وبركاته 🙂 وضعت هذه الدالة في عمود جديد بالاستعلام "المرتبات Q" وهي تحسب عدد أيام الغياب كلها بدون حصر التواريخ في فترة محددة .. Gyab: CInt(DCount("[كود الموظف]";"[تسجيل الغياب1]";"[كود الموظف] =" & [idemp])) لا أدري أين تريد وضع شرط الفترة الزمنية التي ستحسب عليها عدد أيام الغياب ؟

وعليكم السلام ورحمة الله وبركاته يمكن ذلك من خلال أداة التحكم ( التي تقوم بالضغط عليها لاظهار ملصقات اخر ) بالضغط على الأداة بزر الفأرة الأيمن ثم اختر Format control ثم من تبويب control أمام incremental change اكتب الرقم 14 ولا تنسى حذف الملصقات الزائدة من اسفل

تفضل تـــم التعديل وذلك بسبب مشكلتك انت مع الكود لأنك لغيت سطر إظهار التكست بوكس كتاريخ 1حلقات مسجد الجامع....xlsm

بعد إذن أخي محي الدين جرب تغيير الاجراء إلى هذا الكود هذا باستعمال الاسم البرمجي للشيت ودالة cells Sub test() Dim a, col As Long a = Range(Worksheet____37.Cells(10, 8), Worksheet____37.Cells(39, 8)).Value col = Application.Match(Worksheet____37.Cells(9, 8), Worksheet____60.Range("a9:m9"), 0) Worksheet____60.Cells(10, col).Resize(30) = a MsgBox "Done by mr-mas.com" End Sub وهذا نفس الاجراء باسم الشيت والنطاق Sub mrmas() Dim a, col As Long a = Sheets("طباعة حافظة التقارير").Range("h10:h39").Value col = Application.Match(Sheets("طباعة حافظة التقارير").Range("h9"), Sheets("ارشيف التقارير").Range("a9:m9"), 0) Sheets("ارشيف التقارير").Cells(10, col).Resize(30) = a MsgBox "Done by mr-mas.com" End Sub بالتوفيق

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

جزاك الله خير

جزاكم الله كل خير وفقنا الله جميعا

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