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

تفضل جرب Private Sub TextBox26_Change() Dim CelF As Range, LigF As Long Set ws = ActiveWorkbook.Sheets("Data") With ws Set lst = ws.ListObjects("الجدول1") If lst.ShowAutoFilter Then lst.ShowAutoFilter = False End If Set CelF = ws.Range("Find").Find(What:=Me.TextBox26, LookIn:=xlValues, LookAt:=xlWhole, _ SearchDirection:=xlNext, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False) If Not CelF Is Nothing Then LigF = CelF.Row Label1.Caption = ws.Range("B" & LigF) Label2.Caption = ws.Range("C" & LigF) Label3.Caption = ws.Range("E" & LigF) Label4.Caption = ws.Range("D" & LigF) Else For S = 1 To 3 Me("Label" & S) = Empty Next S End If End With Label2 = Format(Label2, "dd/mm/yyyy") Label2.BackColor = &H8000000F End Sub TEST V1.xlsb

اخي الكريم لا يوجد خطا في الكود عليك انشاء مجلد بنفس مسار المصنف و سمه DAHY ضع بداخل هذا المجلد الصور بصيغة jpg ضع صورة افتراضية باسم M

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

طيب جرب المرفق :::: التعديلات هي كالاتي ::::: كونا جدول من جدولك للبيانات Needed_Table كونا جدول باسماء المنتجات تسحبا لزيادة او نقصان المنتجات tbl_ProductData اضفنا شيفرة في الزر في النموذج ويجب الضغط عليه في بداية التنفيذ ثم استقي الاستعلامات التي تريد من الجدول تحويل صفوف الجدول الى اعمدة.accdb

بالنسبة لأو لملاحظة الأولى تم التغلب عليها . وبالنسبة للملاحظة الثانية تم اضافة زر (Refresh) ويستخدم عند العرض بعد الإدخال أو التعديل لأن السجل مازال بالذاكرة ولم يثبت بالجدول. واليك المرفق بعد التعديل جرب ووافني بالرد . basetN-5.accdb

طيب وحدة وحدة كدا ... عشان انا رجل كبير وفهمي على قدي ...... هل هذه الاستعلامات موافقة لطلباتك .... انظر <<<<<<<<

In worksheet module paste the following code Private Sub Worksheet_Change(ByVal Target As Range) Dim x If Target.Row > 4 And Target.Column = 1 Then x = Application.Match(Target.Value, Sheets(2).Columns(1), 0) If Not IsError(x) Then Target.Offset(, 1).Value = Sheets(2).Cells(x, 2).Value End If End If End Sub

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

السلام عليكم homam.xlsm

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

اعرض الملف واردات وصرفيات حسب الفئة النقدية إن الحمد لله نحمده ونستعينه ونسترشده ونعوذ به من شرور أنفسنا وسيئات أعمالنا، ونصلي ونسلم على حبيبنا وطبيب قلوبنا محمّد صلى الله عليه وسلم الذي بعثه الله تعالى بالهدى ودين الحق ليظهره على الدين كله ... أما بعد السلام عليكم وررحمة الله وبركاته إخوتي أحبتي الكرام: أعرض لكم بريمجاً صغيراً فكرت به لحاجتي إليه في مجال عملي أحببت أن أطلعكم عليه عسى أن يكتب الله تعالى لي به القبول ....آمين اعتمدت في إعداده على حساب الفئات لعملتين وهنا حسب العملة في لبنان والعملة الرديفة الدولار ...استخدمت بذلك الدالة SUMPRODUCT التي تسهل عملية جمع نطاق معين بآخر مماثل وفق العملة الأولى حسب سعر صرف العملة الثانية. استخدمت شرط أن يكون المبلغ المصروف أقل أو يساوي المبلغ الموجود من كل فئة على حده (قواعد التحقق من الصحة) ... كان مناسباً عندما كان الحساب التلقائي يدوياً ...أما عندما حولته تلقائي عدلت عنه إلى (التنسيق الشرطي)...مقبول إلا أنه لا يؤدي عمل التحقق من الصحة. ألمحت في كل حقل مفعل من الفئات إلى قيمة كل فئة لتسهيل التعامل معها. عند كتابة الاسم تتم كتابة الوقت والتاريخ تلقائياً. وضعت في عمود مخفى قيمة كل دفعة سواء كانت دفع أو قبض ومن خلال كون الرقم أكبر من صفر أو أصغر يتم تحديد مكانه في المقبوضات أو المدفوعات باستخدام الدالة SUMIF، كما تم إضافة جمع تراكمي للرصيد عند كل دفعة. تم إدراج أكواد للحفظ والمسح والتفقيط و الطباعة ، كما تم إدراج ثلاثة أوراق لطباعة المقبوضات والمدفوعات وموجودات الصندوق في حال الرغبة بـطباعة قيد ما من الصندوق نحدد رقم قيدها فيحدد جميع حقول ذلك القيد ثم ننتقل إلى ورقة طباعتها المقبوضة أو المدفوعة. للحفاظ على رصيد الفئات مضبوطاً حسب عدد كل فئة لا بد من تسجيل حتى صرف مبلغ ما بفئات أقل في حقل محدد (الفكة - الفراطة...وقد يكون لها تسميات أخرى لا أعرفها). أرجو أن أكون وفقت لشرحه كما أرجو الله تعالى أن يكتب لنا الأجر والثواب ..نسألكم الدعاء لي ولوالدي وللمؤمنين ولولدي "علي" رحمه الله تعالى.. والله من وراء القصد . والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف. صاحب الملف محمد حسن المحمد تمت الاضافه 27 نوف, 2020 الاقسام قسم الإكسيل  

شوية تنسيقات وترتيبات لعمل القاعدة بشكل ارتب وانظم تقدر تتجاهل اذا ماناسبك السجل الاشرافي.rar

In cell B3 type the formula =COUNTIFS($J$2:$J$100,A3,$Q$2:$Q$100,"*-*")

تغضل للمراجعة لعله المطلوب OK RTM Assessment.xlsx

مشكور

آخر مشاركة لي في هذا الموضوع قمت بالتعديل على تركيبة جدول العطل وبياناته: تم إضافة حقل نهاية العطلة (آخر يوم في العطلة) وتم تعديل بيانات عام 2023 إلى عام 2022 لتناسب جدول Siebel لزوم التجارب. استخدمت الاستعلامات لتسريع النتائج ولن تعرف الفرق إلا مع عدد سجلات كبير. النتائج في الاستعلام qryResults موفق أخي. WM2000_03.mdb

2,1/ هذا جزء أساسى بالمعادلة لإستخراج أخر عملية ولا تصلح المعادلة بدون هذه الجزئية وهذا الكود لطلبك الأخر ورجاءاً لابد من غلق المشاركة فلا يمكن ان يكون هناك أكثر من طلب بالمشاركة الواحدة ..فإنت أردت طلبات أخرى لابد من عمل مشاركة جديدة بالطلبات الجديدة ولكم جزيل الشكر Sub RowDeleter() On Error Resume Next Application.ScreenUpdating = False Range("E1:E" & Range("E" & Rows.Count).End(3)(1).Row).AutoFilter 1, 0 Range("E4:E" & Range("E" & Rows.Count).End(3)(1).Row).SpecialCells(12).EntireRow.Delete ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True End Sub Aziz3.xlsb

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

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