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

وعليكم السلام

ممكن لو سمحت توضح المكتوب

حسب الطلب اعلاه سيتكرر الاسم 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 مرات واسم اخر بس مره 

هل هذا صح من باب التوزيع العادل للمستويات

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

في 17‏/4‏/2022 at 11:40, نزار سليمان عيد said:

وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو

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

انظر للمرفق

تحتاج اضافة هذا الكود 

Dim xPrintRng As Range
Dim xFirstRng As Range
Dim xLastRng As Range
Application.ScreenUpdating = False
With Application.ActiveSheet
.Cells.EntireColumn.Hidden = False
.Cells.EntireRow.Hidden = False
If .PageSetup.PrintArea <> "" Then
Set xPrintRng = .Range(.PageSetup.PrintArea)
Else
Set xPrintRng = .UsedRange
End If
Set xFirstRng = xPrintRng.Cells(1)
Set xLastRng = xPrintRng.Cells(xPrintRng.Count)
If xFirstRng.Row > 1 Then
.Range(.Cells(1, 1), xFirstRng(-0, 1)).EntireRow.Hidden = True
End If
If xFirstRng.Column > 1 Then
.Range(.Cells(1, 1), xFirstRng(1, 0)).EntireColumn.Hidden = True
End If
If xLastRng.Row < .Rows.Count Then
.Range(xLastRng(2, 1), .Cells(.Rows.Count, 1)).EntireRow.Hidden = True
End If
If xLastRng.Column < .Columns.Count Then
.Range(xLastRng(1, 2), .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
End If
End With
Application.ScreenUpdating = True

test_print (1).xlsmFetching info...

فضلا انظر للمرفق

وايضا هذا الكود وتحدد عدد السطور دون الدخول للماكرو

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