نزار سليمان عيد

وعليكم السلام ممكن لو سمحت توضح المكتوب حسب الطلب اعلاه سيتكرر الاسم 3 مرات في الشهر واذا ممكن تبعث ملف فيه حل يدوي لتثبيت الفكرة ومشاهدة كيف التوزيع وليس كل الاسماء اختار مثلا 20 اسم واكتب شكل الحل

فضلا انظر للمرفق مع العلم حضرتك طلباتك مختلفه في كل مرحله test_print (1) (1).xlsm

فضلا من صاحب السؤال التاكيد على الحل لاقفال الموضوع حيث تم عمل المطلوب test_print (1) (1).xlsm

عندك حل الاستاذ محمد حسن بالمعادلات

تحتاج لهذه المعادله =(IF(LEFT(C6,1)="3","السنة الثالثة",IF(LEFT(C6,1)="2","السنة الثانية","السنة الاولى"))) انظر للمرفق مستوى.xlsx

بامكانك ذلك من البيانات فرز الى اعمده او بالماكرو انظر للمرفق واي استفسار خبرني الهدف.xlsx.xls

انا قصدي بنفس مثالك يوجد اسم مكرر 3 مرات واسم اخر بس مره هل هذا صح من باب التوزيع العادل للمستويات

هل الاسماء بالملف توزيعها صحيح

فضلا انظر للمرفق test_print (1).xlsm

وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو Sub InsertPageBreaksEveryXRow() Dim xLastrow As Long Dim xWs As Worksheet Set xWs = Application.ActiveSheet xRow = Application.InputBox("أدخل عدد السطور المراد طباعتها في كل صفحه", xTitleId, "", Type:=1) xWs.ResetAllPageBreaks xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row For i = xRow + 1 To xLastrow Step xRow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) Next End Sub انظر للمرفق test_print (1).xlsm

فضلا جرب هذا الكود Sub TextBox1_Click() For i = 1 To 200 Step 19 ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1) Next End Sub انظر للمرفق test_print.xlsm

كل الاحترام استاذ محمد بالعكس اضافاتك مميزة وتضفي اثراء للمشاركات كل عام وانتم بخير

تحتاج لهذا الكود Sub PrintA() 'prints rows of data, will not print rows if column A is blank Application.ScreenUpdating = False Range("A:A").EntireRow.Hidden = False Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("A:A").EntireRow.Hidden = False Application.ScreenUpdating = True End Sub او هذا الكود Sub PrintSummary() Dim myrange As String myrange = Cells(Rows.Count, 17).End(xlUp).Address ActiveSheet.PageSetup.PrintArea = "$A$1:" & myrange Application.Goto Reference:="R1C1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False End Sub فضلا انظر للمرفق طبع الصفحات التي تحتوي على بيانات.xlsx123 (1).xlsm

تفضل انظر للمرفق مدد الخدمة المسجلة بالتامينات.xls

جزاكم الله كل خير

تفضل الحل استاذ خالد لحساب مدة الخدمة (1).xls

فضلا انظر للمرفق واي استفسار خبرني من فضلك ارقام جلوس.xlsm

بامكانك استخدام المعادلة ادناه والتعديل عليها حسب كل خلية حيث ان التنسيق من الاساس في الخلايا غير موحد =LEFT(A2,SEARCH(" ",A2))&" "&MID(A2,SEARCH(" ",A2,1)+1,SEARCH(" ",A2,SEARCH(" ",A2,1)+1)-SEARCH(" ",A2,1))&" "&RIGHT(A2,LEN(A2)-SEARCH(" ",A2,SEARCH(" ",A2,SEARCH(" ",A2)+1))) انظر للمرفق تصحيح مشكلة في الاسماء.xls

تحتاج المعادلة ادناه للتجميع واضافة كل شهر مستقبلا على المعادلة =SUMIFS(January!G$3:G$39,January!B$3:B$39,B3)+SUMIFS(February!G$3:G$39,February!B$3:B$39,B3)+SUMIFS(March!G$3:G$39,March!B$3:B$39,B3) انظر للمرفق Total Suppliers Invoice - Copy (1).xlsm

فضلا جرب المرفق tar.xlsm

تحتاج لاستخدام هذه المعادلة =IFERROR(VLOOKUP(A2, حساب1!$A$2:$C$6, 2, FALSE), IFERROR(VLOOKUP(A2, حساب2!$A$2:$C$6, 2, FALSE), "غير موجود")) انظر للمرفق جلب الاسم اين ما وجد.xlsx

على حسب طلب السائله اتوقع تحتاج هذه المعادلة =IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),P2&O2&N2&""&M2,IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),P2&" و "&O2&" و ",IF(AND(A2>0,OR(B2>0,C2>0,D2>0)),N2&" و "&M2))) انظري للمرفق ياسمين محمد.xlsx

بامكانك استخدام المعادله ادناه =IF(A2>0,A1,IF(B2>0,B1,IF(C2>0,C1,IF(D2>0,D1,"")))) فضلا انظري للملف واي استفسار خبريني ياسمين.xlsx

راجع المعادلتين في عمود I و عمود J حضرتك عامل ربط عن طريق IF الشرطية لمجهولين

تفضل جرب المرفق واي استفسار خبرني من فضلك الافضل تبعث ملف في المرات القادمة ضريبة.xlsx