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

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

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

جرب هذا الكود Sub Bevel1_Click() Dim sh For Each sh In Sheets If Format(Sheets("main").Range("m3"), "d") = sh.Name Then sh.Activate Range("I6").Select Exit For End If Next End Sub

وعليكم السلام ... مش فاهم اى حاجة ؟!!! المعادلة اصلاً مش موجودة بالملف , عليك توضيح المطلوب بكل دقة بلغة الإكسيل بمعنى فى اى صفحة وفى اى خلية بالضبط يجب وضع هذه المعادلة !!!!

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

تفضل التعديل حسب فهمي لطلبك 2تكرار الحقول.rar

عليكم السلام والرحمة تفضل التعديل ارجو ان يكون طلبك 2عدد الأيام.rar

وعليكم السلام شاهد المرفق واخبرني عن اي استفسار مع الشكر Orredo-1.xlsx

هذا هو توجيهي لك .. هل حلت مشكلتك ؟

تم تغيير تنسيق التاريخ في العموديين فقط مواقع استخدام العناصر 2021 - Copy (1).xlsm

أ.الشربيني123 جرب ان تضع هذا السطر قبل End Sub DoCmd.Close acForm, Me.Name ووفنى بالنتيجة .. بالتوفيق

ارجو ان المثل القائل : " على نياتكم ترزقون " ينطبق علي كان قصدي تلطيف الجو

سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد وهذا مني تعديل بسيط على الشرط ، حتى نقفل عليه الباب Private Sub TIME_DEFULT_OUT_ARA_LostFocus() Dim Result As Double Dim Status As String Result = (Me.TIME_DEFULT_OUT_ARA - Me.TIME_ACTIVE_OUT_ARA) * 24 Me.TIME_DELAY_OUT_ARA = Result If Result < 0 Then Status = "لايوجد تاخير" ElseIf Result = 0 Then Status = "الوقت ممتاز جدا" ElseIf Result > 0 And Result <= 1 Then Status = "تاخير مسموح به" ElseIf Result > 1 Then Status = "تاخير غير مسموح به" End If Me.BECAUSE_DELAY_OUT_ARA = Status '-------------------------------- Me.txtDiffTime = IIf(Result < 0, "-", "") & Format(Abs(Result / 24), "hh:mm") End Sub

اخوانى الاعزاء مشرفين واعضاء المنتدى اقدم ايلكم برنامج الاقساط البارع من تصميمى يعمل فى 12 شركه لتقسيط الاجهزه الكهريائيه انه برنامج بسيط وسهل وانا اليوم رفعت نسخه تجربيه من البرنامج وارجو ان تعجبكم البرنامج فى المرفقات user : admin password : 1234 وشكراا