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

وعليكم السلام ورحمه الله وبركاته استبدل كودك بهذا الكود ولا تحمل هم المعادلات فتم الاستغناء عنها في الكود مباشره Option Explicit Sub Test() Dim WSData As Worksheet, WSResult As Worksheet, Arr, Ar1, Ar2 Dim I As Long, J As Long, P As Long Application.ScreenUpdating = False Application.EnableEvents = False Set WSData = Worksheets("Sheet1") Set WSResult = Worksheets("Sheet2") Arr = WSData.Range("C10:X" & WSData.Cells(Rows.Count, 3).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) Ar1 = Array("سكر", "أرز", "بطاطس", "عنب") Ar2 = Array("زيادة", "ناقص", "بكثرة", "محتاج") Dim x For I = 1 To UBound(Arr, 1) P = P + 1 For J = 1 To UBound(Arr, 2) If J < 13 Then Temp(P, J) = Arr(I, J) Else x = Application.Match(Arr(I, J + 1), Ar1, 0) If Not IsError(x) Then Temp(P, J) = Ar2(x - 1) Temp(P, J + 1) = Arr(I, J + 1) Else Temp(P, J) = "مخزن" Temp(P, J + 1) = Arr(I, J + 1) End If J = J + 1 End If Next J Next I If P > 0 Then WSResult.Range("C10").Resize(P, UBound(Temp, 2)).Value = Temp Application.EnableEvents = True Application.ScreenUpdating = True End Sub

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

استاذي الفاضل انتظر ربما نجد أحد يعلمنا هذه الدالة وطريقه عملها افضل . @حسنى سامى محمد

والله صحيح ..بين علي الكبر كل هذا بسبب عدم انتباهي لحرف ال s...اعتذر كثيرا student.rar

وعليكم السلام ورحمه الله وبركاته لعله المطلوب =FORECAST(AL$3,$B$3:$AK$3,$B5:$AK5) TEST.xlsx

تختلف اللهجات من بلد لاخر واحيانا من منطقة لاخرى لذا نصت المادة الثانية من قوانين الموقع على تحياتي للجميع

لا لست وحدك .. بل غالب الاعضاء يعاني .. نلتمس له العذر ... وندعوا له بالخير .. ونحمد الله الذي انعم علينا وعافانا .

تفضل A5.xlsx

تفضل أخي برنامج تم العمل عليه من اعضاء المنتدى للسنوات المفقودة اقرأه جيداً بتحل ماتريده . السنوات المفقودة وآخر سنة سداد.accdb

اضم صوتي الى صوتك أستاذ @متقاعد . فلابد من وقفة وايجاد حل !!!!!!!!!!!!!!!!!!!!!

جرب المرفق base(1).accdb

تحياتى لحضرتك @كريم نظيم فعلا هو المطلوب كل الشكر والتقدير لحضرتك 💜 @كريم نظيم بعد اذنك البند رقم 9 المبيعات كانت ضعيفه جدا ومع ذلك الارقام بالمتوقع 2023 كبيره فضلا للتوضيح

السلام عليكم أخي @حامل المسك 🙂 من رأيي لتنظيم هذا الأمر من البداية عليك أن تقوم بإنشاء 3 جداول .. الجدول 1 : لجميع الجهات ( الجهات التابعة ) .. وبه عمود وهو المفتاح الأساسي ( أسماء الجهات التابعة .. مثلا ) الجدول 2 : للجهات الرئيسية (الجهات المتبوعة) .. وبه عمود وهو المفتاح الأساسي ( الجهات الرئيسية.. مثلا) الجدول 3 : وهو جدول الربط ( ربط الجهات التابعة بالجهات المتبوعة ) نفس جدولك الحالي تقريبا .. ولكن به 3 حقول ومفتاحين أساسيين ( ID - [الجهات التابعة (قائمة منسدلة مصدرها الجدول 1 )] - [الجهات المتبوعة (قائمة منسدلة مصدرها الجدول 2 )] ) والحقلين الذين باللونين الأزرق والأحمر هما المفتاحين الأساسيين ( وذلك لتجنب تكرار الإدخالات ) . الجدول 3 هو جدول ذو علاقة (many to many) أو (متعدد إلى متعدد) . بهذه الطريقة ستستطيع عمل تقارير واستعلامات بكل سهولة وأريحية وبدون تكرارات 🙂

وممكن أيضا تطبيق هذه المعادلة على الخلية =SUBSTITUTE(B3;" ";"")

الكود جميل ويعمل بشكل ممتاز ..فقط الاستدعاء من النموذج: Private Sub Form_BeforeUpdate(Cancel As Integer) Call WriteAudit(Me, ID) End Sub