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

السلام عليكم ورحمة الله وبركاته اخواتي في الله مطلوب كود يقوم بترحيل المكتوب في شيت Main في الخليه C8 الى اسم الشيت المكتوب في الخليه B2 يقوم بترحيلها بالترتيب في العمود B6 ثم يقوم بنسخ شيت NEW وفتح شيت جديد باسم الخليه B2 في شيت Main وان امكن ان يعمل ربط تشعبي اذا امكن تطبيقها على الملف المرفق جعله الله في موازين حسناتكم BB.xlsm

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

اخي الكريم هل من الممكن ان تكون معادله وليس كود ؟ بارك الله لك في علمك ومجهودك وحفظك الله من كل شر

السلام عليكم ورحمة الله وبركاته اخواتي في الله في الملف المرفق يوجد في العمود B مجموعه من ارقام ملفات مسجل بها بيانات اريد عند كتابة الرقم في الخليه F6 و كتابة نوع البيان بجانبها في الخليه G6 ان يقوم باستدعاء البيانات من شيت رقم الملف ويكتبها في العمود H6 و i6 الملف المرفق موضح المطلوب شكرا مقدما لكل من يساهم في حل المطلوب BB.xlsx

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

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

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