ابراهيم الحداد

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(LEFT($G2;2)="10";"ذكر";IF(LEFT($G2;2)="11";"أنثى";"رقم غير صحيح"))

السلام عليكم ورحمة الله الاخ ABOU ELSAAD يمكنك استخدام الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long Dim a As Integer, b As Integer, d As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then a = WorksheetFunction.Min(ws.Range("A" & x & ":AE" & x)) b = WorksheetFunction.Max(ws.Range("A" & x & ":AE" & x)) ab = b - a + 1 d = WorksheetFunction.Count(ws.Range("A" & x & ":AE" & x)) If ab = d And d > 1 Then Abst = " يوم " & " (" & a & " - " & b & ")" ws.Range("AL" & x) = Abst Else Abst = C.Value & Com & Abst ws.Range("AL" & x) = Left(Abst, Len(Abst) - 1) End If End If Next C Abst = "" x = x + 1 Loop End Sub

السلام عليكم ورحمة الله استخدم الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long, y As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then Abst = Abst & C.Value & Com ws.Range("AL" & x) = StrReverse(Left(Abst, Len(Abst) - 1)) End If Next C Abst = "" x = x + 1 Loop End Sub

السلام عليكم ورحمة الله جرب هذا الملف الرقم _القومى.xlsm

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية "C6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A1))-4;2);"") ثم اصغط "CTRL+SHIFT+ENTER" ثم اسحب نزولا حتى الخلية "C35" ثم اكتب المعادلة التالية فى الخلية "E6" =IFERROR(INDEX(msheet!$D$5:$E$82;SMALL(IF(msheet!$D$5:$D$82=$E$3;ROW(msheet!$D$5:$D$82));ROW(A31))-4;2);"") و كر ر ما سبق

السلام عليكم ورحمة الله اليك الملف ابتدائي2020.xlsm

السلام عليكم ورحمة الله تم تعديل الكود Sub ALIDROOS_JC_T() Application.ScreenUpdating = False Dim sh As Worksheet, ws As Worksheet Set ws = Sheets("معلومات") On Error GoTo 0 For Each sh In ThisWorkbook.Worksheets For r = 2 To 102 If ws.Cells(r, 7).Value <> Empty Then If ws.Cells(r, 7).Value = sh.Name Then ws.Range(ws.Cells(r, 1), ws.Cells(r, 12)).Copy QQ = sh.Cells(1000, 1).End(xlUp).Row + 1 sh.Range("A" & QQ).PasteSpecial xlPasteValues End If End If Next Next MsgBox "تم الترحيل بنجاح" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله استخدم هذا الكود Sub Work_Day() Dim ws As Worksheet, Sh As Worksheet Dim C As Range, LR As Long, i As Long Dim x As Integer, Dy As String Dim WF As Object Set ws = Sheets("ورقة2") Set Sh = Sheets("ورقة1") Set WF = WorksheetFunction LR = ws.Range("A" & Rows.Count).End(3).Row i = 2 Do While i <= LR For Each C In Sh.Range("A2:A" & ws.Range("A" & Rows.Count).End(3).Row) If ws.Cells(i, 1) = C.Value Then Dy = C.Offset(0, 1) x = WF.Match(Dy, ws.Range("B1:G1"), 0) ws.Cells(i, 1).Offset(0, x) = Dy End If Next i = i + 1 Loop End Sub

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "B" ثم اضغط Ctrl+Shift+Enter ثم اسحب عرضا وطولا =IFERROR(INDEX(ورقة1!$B$4:$E$8;SMALL(IF(ورقة1!$E$4:$E$8>0;ROW(ورقة1!$E$4:$E$8));ROW(A1))-3;COLUMN()-1);"")

السلام عليكم ورحمة الله استخدم الكود التالى الرقم السرى 123 يمكنك تغييره كما شئت Sub Delpics() Dim ws As Worksheet, Pic As Object Dim InBox As String InBox = InputBox(" يرجى ادخال كلمة السر", "ازالة الصور ") For Each ws In Worksheets For Each Pic In ws.Pictures If InBox = "123" Then Pic.Delete Else MsgBox "ارجو وضع الرقم السرى الصحيح ...حاول مرة ثانية" Exit Sub End If Next Next End Sub

السلام عليكم ورحمة الله استخدم هذا الكود Sub Delpics() Dim ws As Worksheet, Pic As Object For Each ws In Worksheets For Each Pic In ws.Pictures Pic.Delete Next Next End Sub

السلام عليكم ورحمة الله استخدم هذا الكود Sub addpics() Dim ws As Worksheet For Each ws In Worksheets ws.Pictures.Insert ("D:\عنوان.jpg") Next End Sub

السلام عليكم ورحمة الله غير العبارة Dim ahmed As Range الى Dim ahmed As long و سيعمل معك الكود

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "B5" =IFERROR(INDEX('قائمة الموفين'!$B$5:$L$15;SMALL(IF('قائمة الموفين'!$M$5:$M$15=$H$2;ROW('قائمة الموفين'!$M$5:$M$15));ROW(A1))-4;COLUMN(A1));"") و اضغط Ctrl+Shift+Enter ثم اسحب طولا و عرضا ثم ضع المعادلة التالية فى الخلية "A5" ثم اسحب نزولا =IF(B5="";"";SUBTOTAL(3;$B$5:B5)) قوائم العمال1.xlsx

السلام عليكم ورحمة الله عمل طيب جعله الله فى ميزان حسناتك