محمد عبد الناصر

الحمد لله دائما وابدا

بالضبط ولكن اريدها معادله وليس كود فعند تغيير الاسم لا يقم بالمطلوب اريد عندما اقوم بتغيير الاسم يقوم بالامر وليس عند دخول الورقه

هل من الممكن التعديل في العمود M6 لكي يجمع رواتب او سلف كل شخص

اعتذر لك اخي الكريم فهو يقوم بجمع راتب محمود مع مصطفى يوجد خطأ في المعادله المكتوبه في الخليه M6 يقوم بجمع كل الرواتب اريد فقط يجمع راتب محمود فقططط او مصطفى فقققط على حسب الاسم المكتوب في الخليه I6

في الملف المرفق اريد جمع الراتب الخاص بمحمود فقط او سلف محمود فقط في الخليه M6 اعتمادا على الاسم المكتوب في الخليه I6 اعتمادا على العمود d يقوم بجمع المبالغ التي صرفت للموظف محمود او الاسماء المكتوبه في العمود d DC (1).xlsx

ماشاء الله بارك الله في علمك وعقلك استاذ عبدالله وجعله في ميزان حسناتك

@محمد هشام. اخي الكريم عند التعديل على هذه المعادله يختفي رمز {} ماذا اضغط بعد تعديل المعادله ؟ =IFERROR(INDEX(D$6:D$139,SMALL(IF($H$6=$C$6:$C$139,ROW($D$6:$D$139)-5),ROW(J1))),"")

ماشاء الله بارك الله فيك استاذ محمد هشام

السلام عليكم ورحمة الله وبركاته الكود هذا يقوم باخذ الصف كوبي اذا تحقق شرط كتابة اسم محدد وهو ( دريم ) يقوم بنسخ الصف باكمله وينقله كوبي الى شيت "دريم" اريد تعديل ان يقوم بنقل الصف من الخليه B الى الخليه G فقطط Sub CopyRowsmaktab() Dim LR As Long, I As Long, X As Long LR = Sheets("Main").Cells(Rows.Count, "B").End(xlUp).Row X = 6 Application.ScreenUpdating = False Sheets("دريم").Rows("6:1000").ClearContents For I = 6 To LR If Cells(I, "B").Value = "دريم" Then Rows(I).Copy Sheets("دريم").Range("A" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

شكرا اخي الكريم بارك الله في علمك وعقلك الف شكر

هو المطلوب تماما ولكن لا ياتي باسماء كل العاملين فقط محمو ومصطفى ومتبقي شريف وانا سوف اقوم بكتابة اكثر من 20 عامل اريد ان يكتبهم جميعا بارك الله فيك

السلام عليكم ورحمة الله وبركاته في الملف المرفق بيان بمصروفات المكتب به بنود مصروفات للمكتب ومصروفات لله وصروفات اخرى اريد في الخليه H6 عندما اكتب كلمة ( مكتب ) ان يجمع لي كل مصروفات المكتب وايضا ان يكتب اسماء العاملين في الخليه k1 ويجمع لي مصروف كل عامل بجانب الاسم وايضا عندما اكتب لله ان يجمع لي كل مصروفات لله وهكذا الملف المرفق موضح المطلوب DC.xlsx

ماشاء الله استاذ محمد صالح و استاذ محمد هاشم جعله الله في ميزان حسناتكم

هذا الكود يقوم بربط الشيتات ب Sheet1 اريد ان يقوم بعمل الكود وان لا ينفذ الامر على sheet2 و sheet7 و sheet3 وان يجعل حجم الخط في الخليه E1 في كل الشيتات 30 Sub ww() Dim h As Worksheet, sh As Worksheet, j As String Dim k As String, x As String, d As String Set h = Sheets("Sheet1") For Each sh In Sheets If Not sh.Name = "Sheet1" Then j = sh.Index + 2 k = sh.Name x = "'" & k & "'!a1" d = "'Sheet1'!a1" h.Hyperlinks.Add h.Cells(j, 1), "", x, k, k sh.Hyperlinks.Add sh.Cells(1, 5), "", d, "Sheet1", "رجوع" End If Next End Sub

لو امكن ممكن تطبقهالي على الملف المرفق ؟؟ لما بحط المعادلة بيجبلي خطأ

السلام عليكم ورحمة الله وبركاته ,,, في الملف المرفق بيانات لموظفين لدي من سنة 2022 الى سنة 2023 يوجد من الموظفين من ترك الشركة ومن مستمر معي وموظفين جدد اريد الفصل بينهم في كل شيت خاص بالحاله ومطلوب كود اخر يقوم بتحديد الموظفين الذي تم زيادة رواتبهم والذي لم يتم زيادة رواتبهم في شيت المعدل الملف المرفق موضح المطلوب شكرا لكل من ساعدني جعله الله في موازين حسناتكم OK.xlsm

ماشاء الله هو المطلوب تمام جزاك الله كل خير

ماشاء الله استاذ محمد هاشم بارك الله فيك وفي علمك وجعله الله في ميزان حسناتك ولكن لماذا يقوم بمسح اي شيت اخر موجود فمثلا يقوم بمسح sheet2 وهو غير مكتوب في العمود C لا اريد ان يتم مسح اي شيت اخر عند تفعيل الكود

السلام عليكم ورحمة الله وبركاته,,, في ها الكود يقوم بفتح عدة شيتات على حسب الاسم المكتوب في العمود C في كل خليه به المطلوب ان يقوم بنسخ البيانات وترحيلها الى الشيت المخصص لها حسب المكتوب في العمود C فمثلا في الخلية C4 مكتوب كنوز فيقوم بنسخ الصف الى شيت كنوز الخليه C5 مكتوب ادعية يقوم بنسخ الصف الى شيت ادعية ومطلوب ان يجعل العمود B في كل الشيتات size 70 ويقوم ايضا بنسخ الصف 5 ويضعه في كل الشيتات في الصف رقم 5 الملف المرفق يوضح المطلوب ..... وجزاكم الله كل خير على مساعدتكم Sub CreateSheets() Dim lra As Integer Dim My_Rg As Range Dim ListSh As Range lra = Cells(Rows.Count, "c").End(xlUp).Row Set ListSh = Worksheets("Sheet1").Range("c6:h" & lra) On Error Resume Next For Each My_Rg In ListSh If Len(Trim(My_Rg.Value)) > 0 Then If Len(Worksheets(My_Rg.Value).Name) = 0 Then Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = My_Rg.Value End If End If Worksheets("Sheet1").Select Next My_Rg Applications.Calculations = xlCalculationManual End Sub اسلاميات.xlsm

السلام عليكم ورحمة الله وبركاته مطلوب كود ييقوم بنقل اصفف حسب المكتوب في الخليه a1 في العمود E ويقوم بفتح شيت مخصص حسب الاسم المكتوب في العمود A3:A20000 الملف المرفق موضح الطلوب MD.xlsm

السلام عليكم ورحمة الله وبركاته,,,, اريد ملف اكسيل به جميع عملات العالم مقابل الجنيه المصري

شكرا اخي الكريم جعله الله في موازين حسناتك

السلام عليكم ورحمة الله وبركاته مطلوب تعديل في هذا الكود في بداية الامر يقوم بفتح حماية جميع الشيتات بباسورد وفي نهاية الكود يقوم بقفل جميع الشيتات بباسورد محدد Sub go_mod5alat() If Sheets("ÇáãÏÎáÇÊ").Range("c6") = "" Then MsgBox "ÏÎá ÇÓÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜã ÇáÚãããããíííííííííííííííííííááááááá", vbExclamation: Exit Sub Sheets("ÝÇÊæÑÉ ãÏÎáÇÊ").PrintOut Dim ws As Worksheet, Data As Worksheet, ShName As String Dim LR As Long, ER As Long, x As Integer Set Data = Sheets("ÇáãÏÎáÇÊ") ShName = Data.Range("C6").Text ER = Data.Range("B" & Rows.Count).End(3).Row x = ER - 7 For Each ws In Worksheets If ws.Name = ShName Then LR = ws.Range("B" & Rows.Count).End(3).Row ws.Name = ShName ws.Range("B" & LR + 1).Resize(x, 17) = Data.Range("B10").Resize(x, 17).Value End If Next Sheets("ÇáãÏÎáÇÊ").Protect Password:="20125907275" Sheets("sheet1").Unprotect Password:="20125907275" Dim strName As String, sh As Worksheet strName = Trim(Sheet4.Range("am14").Value) For Each sh In Worksheets If sh.Name = strName Then Exit Sub Next sh Sheet4.Copy after:=Sheets(Sheets.Count) Sheets("sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete With .Range("b10:am10000") .Value = .Value End With Sheets("ÇáãÏÎáÇÊ").Range("B10:B1000").ClearContents Sheets("ÇáãÏÎáÇÊ").Range("d10:d1000").ClearContents Sheets("ÇáãÏÎáÇÊ").Range("h10:h1000").ClearContents Sheets("ÇáãÏÎáÇÊ").Range("n10:n1000").ClearContents Sheets("ÇáãÏÎáÇÊ").Range("c6").ClearContents Sheets("ÇáãÏÎáÇÊ").Protect Password:="20125907275" Sheets("ÇáãÏÎáÇÊ").Select Range("A1").Select ActiveWorkbook.Save End Sub

ماشاء الله اخي الكريم هو المطلوب تمام شكرا لك وبارك الله لك

السلام عليكم ورحمة الله وبركاته هل من طريقة او كود يقوم باخفاء مسميات الاعمدة مثل A B C D والصفوف مثل 1 2 3 4