سليم حاصبيا

جرب هذا الماكرو (اذا كانت B الخلية فارغة سوف يدرج التاريخ والا لا يتم ادراجه) Private Sub Worksheet_change(ByVal Target As Range) If Target.Column = 1 And IsEmpty(Cells(Target.Row, 2)) _ And Target.Row > 1 Then Application.EnableEvents = False Cells(Target.Row, 2).Value = Date Cells(Target.Row, 3).Value = Time End If Range("B:C").EntireColumn.AutoFit Application.EnableEvents = True End Sub الملف مرفق التاريخ تلقائيا.xlsm

استاذ علي انتبهت الى هذا الخطأ متأخراً وقد تم التصحيح في نفس المشاركة اذا لاحظت ذلك

ربما تنفع هذه المعادلة =DATE(YEAR($A$1),MONTH($A$1)+3*(ROWS($A$1:A1)),1)

بعد اذن اخي علي معادلة اخرى =INDEX({100;50;75},MATCH(A2,{"عالى";"قليل";"متوسط"},0))

هذه المعادلة في الخلية B1 واسحب نزولاً =DATE(YEAR(A1),MONTH(A1),1)

لا حاجة ان يكون هناك زر في كل صفحة 1-اضغط على Ctrl باستمرار واختر الشيتات اللازمة 2- اترك الزر Ctrl ونفذ الكود

حدد كل الصفحات (او عدد منها)دفعة واحدة وقم بتنفيذ هذا الماكرو Option Explicit Sub Salim_Macro() Dim My_St1$: My_St1 = "بدلات طبيعة" & Chr(10) & " عمل" Dim My_St2$: My_St2 = "حوافز" Columns("E:E").Insert Shift:=xlToRight With Range("d1") .Value = My_St1 .Offset(, 1) = My_St2 End With End Sub

جرب هذه المعادلة =IF(A2="","",A2+INDEX($L$2:$L$100,MATCH(A2,$J$2:$J$100))) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا =IF(A2="";"";A2+INDEX($L$2:$L$100;MATCH(A2;$J$2:$J$100)))

استفسار عن كيفية استحراج تاريح المبلاد من الرقم القومي بالنسبة للرقم القومي تم معالجة الامر Salim_age.xlsx

هذا الماكرو Option Explicit Sub Give_Months() Dim lr%: lr = Cells(Rows.Count, "E").End(3).Row Dim My_text$ Dim i% For i = 2 To lr If Application.CountIf(Range("e2:e" & i), _ Range("e" & i)) = 1 And Range("e" & i) <> "" Then My_text = My_text & Range("e" & i) & " ," End If Next Range("H2") = Mid(My_text, 1, Len(My_text) - 2) & " ." Columns(8).AutoFit End Sub الملف مرفق 2019_salim.xlsm

جرب هذه المعادلة =CHOOSE((F2="")+(I2="")+1,CHOOSE((I2="")+1,I2),F2,C2) اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتبصح هكذا =CHOOSE((F2="")+(I2="")+1;CHOOSE((I2="")+1;I2);F2;C2)

جرب هذا الماكرو Sub Extract_uniques() Dim i% Dim My_rg As Range: Set My_rg = Range("a3:b21") Range("c3").Resize(My_rg.Rows.Count, 1).ClearContents With CreateObject("System.Collections.ArrayList") For i = 1 To My_rg.Cells.Count If Application.CountIf(My_rg, My_rg.Cells(i)) = 1 Then .Add (My_rg.Cells(i).Value) End If Next .Sort Range("c3").Resize(.Count) = Application.Transpose(.ToArray) End With End Sub الملف مرفق Aziz.xlsm

لا تكتب شيئاً في الخانات بل اختر منها من تشاء(بواسطة السهم)

ربما يكون الحل هنا البحث بكل شيء دليل salim .xlsm

هذه المعادلة في الخلية G2 واسحب نزولاً =IF(COUNTA(D2:F2)<3,"",IF(SUMPRODUCT(--(D2&E2&F2=$D$2:D2&$E$2:E2&$F$2:F2))>1,"Duplicate","")) اذا لم تعمل المعادلة استبدل الفاصلة بفاصلة منقوطة لتصبح المعادلة هكذا =IF(COUNTA(D2:F2)<3;"";IF(SUMPRODUCT(--(D2&E2&F2=$D$2:D2&$E$2:E2&$F$2:F2))>1;"Duplicate";""))

جرب هذا الملف salim1.xlsx

هذه المعادلة في الخلية B3 ,واسحب نزولاً =IF(OR(WEEKDAY(E3)=3,WEEKDAY(E3)>5),0,1) و اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا =IF(OR(WEEKDAY(E3)=3;WEEKDAY(E3)>5);0;1)

استعمل هذه المعادلة في الخلية D3 ,واسحب نزولاً =IF(OR(A3="",B3="",C3=""),"",ROUND(AVERAGE(A3:C3),0)) و اذا لم تعمل معك استبدل الفاصلة بفاصلة منفوطة لتصبح هكذا =IF(OR(A3="";B3="";C3="");"";ROUND(AVERAGE(A3:C3);0))

ارفع مثالاً عما تريد

جرب هذا الملف workday_days_salim.xlsm

تم معالجة الامر salim3.xlsx

جرب هذا الملف Hidden cell.xlsx

ربما كان المطلوب Bookxxx.xlsx

بعد اذن الاخ علي _retardالحضور والانصراف.xlsx

جرب كده حضور وغياب -SALIM_W.xlsx