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

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

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

هل من الممكن التعديل في العمود 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

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