ابو حمادة

الامر صعب ولا مستحيل اتمنى القى اجابه

اسف مش عارف دا حصل ازي هذا الملف Test11.rar

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

FFF.rar ملحوظة يتم النقل من ورقة1 الى ورقة2 ولكم جزيل الشكر

ممكن شرح اعمل ايه بالظبط يريت باالصور لو تكرمت عايز اربط ملف اكسل بثلاث اجهزة داخل مكان بحيث اي حد يفتحه ويدخل عليه بيانات ايه المطلوب اعمله بالظبط لو تكرمت

كدا شغال تمام استاذي الغالي اجمل تحيه وتقدير مني اليك جعله فى يزان حسناتك استاذي وحبيبي ليا استفسار السطر دا ممكن شرح ليه خصوصا -6 ws.Range("A" & M + Ls - 3) = M + Ls - 6

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

شكرا لاهتمامك استاذي الغالى زيزو العجوز انا استبدلت الكود ولكن لايعمل لا يتم نقل اي بيانات

السلام عليكم ورحمة الله وبركاته هل من مجيب Sub KH_START1() Dim R As Integer Dim Q As Range Dim sh As Worksheet: Set sh = Worksheets("add") Dim ws As Worksheet: Set ws = Worksheets("ArchiveS") Dim Lr As Long: Lr = sh.Cells(Rows.Count, "B").End(xlUp).Row ' ws.Range("A4:E" & Lr).ClearContents M = 3 Application.ScreenUpdating = False For R = 6 To 506 If sh.Cells(R, "H") = "M" Then M = M + 1 sh.Range("A" & R).Range("A1:D1").Copy With ws 'هذا السطر محتاج تعديله حتى يتم نسخ البيانات دون مسح البيانات السابقه' ws.Range("A" & M).PasteSpecial xlPasteValues ws.Range("A" & M) = M - 3 End With End If Next Application.ScreenUpdating = True End Sub هذا الكود يعمل جيدا بس بيمسح البيانات المخزنه في الارشيف اتمني اجد الحل

الف الف شكر استاذي الغالي على هذا المجهود الرائع هذا هو المطلوب جزاك الله كل خير

السلام عليكم ورحمة اله تعالى وبركاته ارجو المساعدة يوجد فى هذا الملف كود لنقل البيانات المكتوب امامها حرف (M) فى العمود (H) وينقلها من صفحة (add) الى صفحة (ArchiveS) ويعمل بطريقه جيدة وصحيحه ولكن بيمسح البيانات الموجوده فى صفحة (ArchiveS)وينسخ مكانها البيانات الجديده المطلوب ان ينسخ البيانات اسفل البيانات السابقه فى صفحة (ArchiveS) ويترك البيانات السابقه بها بحيث احتفظ باي بيانات تم نقلها BookC.rar ولكم جزيل الشكر واللحترام

الله ينور عليك استذي الفاضل بس فيه حاجه عند اختيار (ALL) بيوضع كلمة التميز للاصناف المستبعدة ايضا ودي انا مش عايزها المستبعد يتركه فى كل الاحوال المطلوب عند اختيار (ALL) يميز كل الاصناف منصرف وارد فقط ويترك اي صنف مستبعد نهائيا

الملف TTTTT.rar

كدا تمام استاذي الغالى باقي حاجه اخيره كل صنف ينقسم الى ( وارد - منصرف - مستبعد ) دا فى العمود (E) محتاج اضافة شرط للكود لو كتبت منصرف في الخليه (LN1) يوضع كلمة التميز لكل الاصناف المنصرفه ولو كتبت وارد يوضع كلمة التميز للاصناف الواردة واستبعاد اي صنف ( مستبعد ) من التميز ولو كتبت الكل يوضع كلمة التميز للوارد والمنصرف واستبعاد اي صنف مستبعد كما واضح فى الصورة واسف للاطاله

دى صورة من الملف الاصلي اتمنى الكود يمشي معاه انا حولت اعمله لكن للاسف معرفتش وسف انى تعبتك معايا

الله ينور عليك استاذي الغالى هو دا المطلوب ممكن بس شرح للكود عشان اعرف احطه فى الملف الاصلى عندي الملف الاصلى عمود الصنف فى (i6) الخليه ال فيها العدد (LM1) العمود ال هايتم وضع التميز فيه هو (LM6) بدايه العمل فى الصف (6) ضع في الكود هذه الاسطر Set MY_Rg = Range("i6").CurrentRegion ([x = Int(N_row / [LM1 Range("LM6:LM" & N_row + 5).ClearContents ("Cells(i + 5,"LM If Target.Address <> "$LM$1" Then Exit Sub مكان هذه الاسطر Set MY_Rg = Range("a5").CurrentRegion ([x = Int(N_row / [f1 Range("D5:D" & N_row + 4).ClearContents (Cells(i + 4, 4 If Target.Address <> "$F$1" Then Exit Sub

شكرا لسعة صدرك واهتممك لك جزيل الشكر

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتي الكرام كل عام وانتم بخير محتاج كود يقسم الاصناف ال مجموعات كل مجموعه تتميز بكللمه مختلفه كما موضح فى الصوره RTR.rar

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

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

الف شكر لاساتذتي الاجلاء على المساهمة فى الحل ولكني اريد كود للاسباب تتعلق بحجم الملف علما ان الملف الاصلي يحتوي على اكثر من 5 الاف اسم ونظر لتقل حجم الملف اريد كود يعمل المطلوب لاخر صف به بيانات ملحوظه المعدله الاولى للاستاذ علي محمد على لها مميزاتها وايضا المعادلة الثاانيه للاستاذ سليم لها مميزاتها واتمني ان يكون هناك كود يجمع بينهما ان كنت اريد تسلسلس حرف (m) او لاء بالكود

مرفق ملف TEXT.rar