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

تفضل ضع الكود في اي مكان داخل محرر الأكواد Sub ExortPDF(ReportName As String, FldrName As String, NewFileName As String) On Error GoTo ErrH Dim fso As Object, FldrPath As String: Set fso = CreateObject("scripting.filesystemobject") FldrPath = CurrentProject.Path & "\" & FldrName If Not fso.FolderExists(FldrPath) Then: fso.createfolder (FldrPath) DoCmd.OutputTo acOutputReport, ReportName, _ "PDF", FldrPath & "\" & NewFileName & ".pdf", _ False, "", , acExportQualityPrint Exit Sub ErrH: MsgBox "Opes Erorr" & vbNewLine & vbNewLine & "Eror Number :" & " ( " & Err.Number & " )" & vbNewLine _ & vbNewLine & "Eror Description :" & vbNewLine & _ Err.Description, vbCritical + vbOKOnly, "Err" End Sub و في ازرار الحفظ ضع الكود التالي Call ExortPDF("فاتورة", "BillsFolder", Format(Now, "yyyy-mm-dd")) سيتم انشاء مجلد و سيتم حفظ الفواتير بتاريخ اليوم الحالي

وعليكم السلام 🙂 جرب هذا الرابط ، فقد حل لي مشاكل كثيرة ، وخصوصا بين لغات الدول جعفر

اخي الكريم هل يتعبك ان تصف لنا ما هو الخطا الذي يظهر لك . كيف نعرف ؟🤔 ,,Application.ScreenUpdating = False احدف الفاصلتين قبل السطر

Sub Test() Dim a, r As Long, i As Long Application.ScreenUpdating = False r = 2 For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Step 3 a = Range("A" & i).Resize(3).Value Cells(r, "C").Resize(, UBound(a)).Value = Application.Transpose(a) r = r + 1 Next i Application.ScreenUpdating = True End Sub

السلام عليكم أخي الكريم يمكنك إضافة عمودين لكل جدول رصيد سايق المحموع بعد الحالي تضع بدءاً من الشهر الثاني في الورقة 2 في عمود الرصيد السابق المعادلة التالية: =IF(C10<>"";VLOOKUP(C10;ورقة1!$C$9:$F$39;4;0);"") وفي عمود المجموع: =SUM(D10:E10) وعند انتقالك لشهر جديد نغير بالمعادلات حسب رقم الورقة السابقة والله أعلم .. والسلام عليكم 1.xlsx

السلام عليكم أختي الكريمة أعتقد أتك بحاجة لتحرير الارتباطات مع مصنف أخر كما يلي: من تبويب بيانات..الاتصالات.. نحرير الارتباطات اختاري الخيار الملائم للمصنف لديكِ و الله أعلم

=IF(D18=11,(IO9),IF(D18=11.3,(IP9),IF(D18=11.7,(IQ9),IF(D18=12,(IR9),IF(D18=12.3,(IS9),IF(D18=12.7,(IT9),IF(D18=13,(IV9)," "))))))) PT.xlsx

تم الحل بواسطة الجداول المحورية مع المعادلات الشرطية انظري للمرفق واي استفسار او تعديل خبريني من فضلك SSS3- pivot.xlsx

وستجد هنا أيضا ما يفيدك : 🙂

وضعت ملاحظات توضيحية في مشاركتي اعلاه 🙂

طيب ان شاء الله الفكرة التي سوف احاول تطبيقها كالتالي : ( حسب ظروفي ..... الله ييسر الامور ) اضيف حقلين Reserve و Reserve1 في الجدول كما في الصورة ( Reserve لعدد نصاب المعلم من حصص الاحتياط خلال اسبوع و حقل Reserve1 عدد حصص الاحتياط المسندة للمعلم أي كلما نقوم باسناد حصة احتياط يتغير الرقم صعودا حتى يصل لعدد حصص الاحتياط في حقل Reserve ويتوقف البرنامج تلقائيا من اسناد حصص لهذا المعلم .... وملاحظة يبدأ البرنامج باسناد حصص الاحتياط للمعلمين الاقل نصاب وهكذا ......... ___________________________________________________ عند عدم وجود معلم احتياط لحصة من الحصص يقوم البرنامج باظهار خانة اسم المعلم المنظر فارغة حتى يتم اسناد الحصة يدويا .....