كل الانشطه

لا يمكن .. لان العملية جمع سجلات وكل سجل يحمل تاريخ مختلف علما ان التاريخ يظهر في اعلى التقرير : من فترة كذا الى فترة كذا سأحاول تحقيق طلبك ... اتمنى اني اتمكن من ذلك

السلام عليكم اخ @محمد هشام. بارك الله بجهدك الفورم الاول لا يعطي ما هو موجود في الغرفة مثال الغرفة 1 يعطي مادة 1 1 مادة 3 1 في خانة او عمود الرصيد و هكذا لكن الفورم الثاني ليس كما هو مطلوب المطلوب في form3 ان اختار المادة من الخلية g5 بكود يحدد اسماء الغرف المتواجدة و عددها في كل غرفة مرفق مثال كما في الصورة

وعليكم السلام ورحمة الله تعالى وبركاته Sub CopyData() Dim srcWS As Variant, _ WS As Worksheet, _ r As Range, _ OneRng As Range, rCrit As String Set srcWS = Sheets("Data") Set WS = Sheets("FORM2"): rCrit = WS.[G5] Const iCnt As String = "=IFERROR(@NombreToArabe(E9),"""")" Set r = srcWS.Range("A4:AH4").Find(rCrit) Cpt = Array(2, 3, 4, 33) With Application .Calculation = xlCalculationManual .ScreenUpdating = False If IsEmpty(WS.[G5].Value) Then: Exit Sub rw = srcWS.Cells(srcWS.Rows.Count, "B").End(xlUp).Row If Not r Is Nothing Then With srcWS Set OneRng = .Range(.Cells(5, r.Column), .Cells(rw, r.Column)) If WorksheetFunction.CountA(OneRng) = 0 Then: _ MsgBox "لا تتوفر نتائج على" & " : " & rCrit, vbInformation: Exit Sub End With WS.Range("A9:F" & WS.Rows.Count).ClearContents a = srcWS.Range("A5:AH" & srcWS.[A65000].End(xlUp).Row) For i = 1 To UBound(a) If a(i, r.Column) <> "" Then WS.Cells(F + 9, 2).Resize(, 4) _ = Application.IfError(Application.Index(a, i, Cpt), "") F = F + 1 End If Next With WS lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row With WS.Range("F9:F" & lastRow) .Formula = [iCnt]: .Value = .Value With WS.Range("A9:A" & lastRow) .Value = Evaluate("ROW(" & .Address & ")-8") End With End With End With End If .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub تمت اظافته للملف المرفق بالتوفيق ....... DATA V2.xlsb

أوفيس 365 32بت .. يعمل بشكل صحيح

Up

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

اوفيس 10 .. 32 بت يعمل

لا تعمل الدالة myfilter غيرت حرف ولكن اعطاني name# في صفحتك الاكسل و هذه صورة الثانية لصفحتي رئيسية يجب ان اضع خط بين my_filter ويعطيني name# لا ادري ماذا افعل .... اعتذر منك لكثرة اسئلتي لكن لا تعمل الدالة و انا بحاجة إليها جدا جدا لأعمالي و قد تسبب لي فقدانها الكثير من التعب النفسي من صاحب المحل و ارجو المساعدة

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

للرفع و المساعدة بارك الله بكم

شكرا جزيلا

هناك كود في التقرير لرسم الخطوط ..... مثل هذا

اوفيس 16 32 بت .... يعمل الملف

يعني ماهي المدة الزمنية التي تنصح بعمل الضغط فيها ؟

شكرا جزيلا استاذي الفاضل أنا عايز اعرف حضرتك وضعته ازاي في التقرير

@ابوخليل @Foksh بارك الله فيكم وشاكر لتفاعلكم والله يعطيك الف عافيه نعم تم تجربة المثال على اوفيس 32بت و 64 بت ويعمل بكفاءه نتمنى من الاخوه التجربه على 32 بت لكونه الاهم وننتظر المشاركة من باقي الخبراء والاخوان في هذا الموضوع

نعم ، تستطيع ، افتح موضوع جديد وإن شاء الله تجد الحل المناسب

وجهة نظر سليمة بالطبع .. وسؤالى هل يمكن حفظ الفولدر بإسم الموظف بدلا من الكود ؟ وهل يمكن اعادة تسمية الوحدة النمطية باسم آخر لوجود الكثير من الوحدات بنفس الاسم Module1

قم بتفعيل الماكرو يا اخي بالضغط على تمكين التحرير

الله ينور عليك حضرتك استاذ ورئيس قسم جزاك الله خير

استثني الحقل الاساسي من استعلام الالحاق

الله يعطيك العافيه اخي فعلا يبدو ان المشكله عدنا بنسخة الاوفيس نظام 32 بت

انا اعمل على اصدار 2016 نواة 64 ، ويعمل بكفاءة 20240520_180203.zip

بارك الله فيك وجزاك الله خير استاذي Foksh وكل الشكر والتقدير لحبيبنا ومعلمنا ابا خليل بدايه موفقه وان شاء الله نصل لحال نهائي يستفيد منه الجميع استاذي اثناء تجربة المثال المرفق ظهر عندي الخطا التالي علما اني استخدم اكسس نظام 32 بت

استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام