ابو حمادة

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

كدا شغال تمام استاذي الغالي اجمل تحيه وتقدير مني اليك جعله فى يزان حسناتك استاذي وحبيبي ليا استفسار السطر دا ممكن شرح ليه خصوصا -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

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

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

شكرا لكك على الردود محمد الخازمي الكود يعمل جيدا ولكن صعب تنفيذه لان عدد الاعمده كثيره ا تقريبا 220 عمود يعني احتاج الاستاذ الفاصل سليم حاصبيا لكود جميل ومختصر ولكن لا يعمل ///////// رد لا أعلم ما السبب لكن عندي يعمل بشكل حيد سليم حاصبيا تم اضافة الكود ودى النتيجة نظر للصورة بعد الكود

السلامعليكم ورحمةلله وبركاته الاخوه الافاضل اساتذتي الكرام ارجوا مساعدتى محتاج كود مختصر يقوم بعمل الاتى عند فتح يوزر فورم يتم استدعاء البيانات الموجوده في الصف (6) من الرنج (B6:Z6) الى (Label) داخل اليوزر فورم كما واضح في االصورة المرفقه علما ان الملف الاساسي به رئوس الاعمدة كثيرة ورئوس الاعمدة متغيره حسب الطلب ولكم منى جزيل لشكر والتقدير مرفق ملف Book1.rar