اذهب الي المحتوي
أوفيسنا

world liner

عضو جديد 01
  • Posts

    30
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو world liner

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  1. الف شكر وبالفعل هذا هو المطلوب ، اشكر لك مساعدتك. الشكر الجزيل لك على الرد والمساعدة.
  2. عند لصف المدخلات الجديدة يتم التعرف على المتكرر عن طريق العمود M والذي يحتوي على رقم المرجع ، تنبيه باللون الازرق الداكن يظهر في العمود A للمدخلات المتكررة ، بالمرفقات الملف الذي اعمل عليه ، عند فتح الملف ستجد تنبيه ل8 صفوف فيها تكرار ، 4 مدخلات قديمة و4 مدخلات جديدة بالاسفل لاكنها متكررة ، يوجد زر remove duplicate بالاعلي وعند الضغط عليه سوف يطبق الكود التالي ، الكود سوف يحذف المتكرر الجديد اي من الاسفل الي الاعلي ، المطلوب زر اخر يعمل نفس الوظيفة لاكن يحذف المتكرر من الاعلي الي الاسفل وبدون فرز .لعدم خبرتي لم استطلع التعديل على الكود لكي يقوم بحذف المتكرر من الاعلي الي الاسفل . Sub duplicate_AWB() LR = [m400].End(xlUp).Row For r = LR To 4 Step -1 x = Cells(r, 13).Value If WorksheetFunction.CountIf(Range("m4:m" & LR), x) > 1 Then Cells(r, 3).Offset("0,0").Resize(1, 25).ClearContents End If Next r Test.rar
  3. السلام عليكم اخواني الكرام لدي الكود التالي وهو يعمل على اكمل وجه بحيث يتم حذف التكرار ( يقوم بالاحتفاظ بالمدخلات القديمة ويحذف المتكرر من المدخلات الجديدة اوالصفوف الاخيرة ) طلبي هو اريد ان اعكس الكود بحيث يقوم بحذف المتكرر ( الاحتفاظ بالمدخلات الجديدة وحذف المتكرر منها في اول السطور (المدخلات القديمة ). Sub duplicate_AWB() LR = [m400].End(xlUp).Row For r = LR To 4 Step -1 x = Cells(r, 13).Value If WorksheetFunction.CountIf(Range("m4:m" & LR), x) > 1 Then Cells(r, 3).Offset("0,0").Resize(1, 25).ClearContents End If Next r End Sub
  4. اخي أبو حنين شكرا لك ، الكود يعمل المطلوب لاكن لدي ملاحظة واستفسار : في اخر الكود وبالتحديد : if sheets ("UAEHELD").cells (y,3).text="true then اريد ان يتم مسح السطر كاملا من الخلية c الي الخلية Z في صفحة UAEHELD بدلا من ان يقوم بتغير True الي False . عند تنفيذ هذا الطلب يكون الكود 100 % شكرا لك
  5. اخي الكريم ارجو النظر الي الصورة في الملف المرفق فربما تكون أوضح لايصال فكرة الكود اوالترحيل لمراد عمله. explain.rar
  6. اخي الكريم النتيجة رسالة خطا في الكود التالي: ملاحظة : عند إضافة علامة صح للمربع فان الخلية نفسها ( C) ستتحول الي "true " وليس لها علاقة ب الخلية B ( complete or incomplete ) ، المقصود اني عندما ضع علامة صح فان السطر كاملا سوف ينتقل الي صفحة movement بالمعادلات الموجودة في صفحة movement ، والكود المراد هو ان يتم ترحيل هذا السطر او السطور الي صفحة moved ومسحها من صفحة UAEHELD، لذا المفترض ان الشرط يكون متصل ب العمود c وليس b
  7. عليكم السلام اخي أبو حنين ، شكرا لك لاكن لم يعمل بما هو مطلوب، الكود لم يقم بترحيل المعلومات المسجلة في صفحة movement الي صفحة moved ، في صفحة movement هناك معادلات المفترض انها لاتحذف ابدا ، لو رايت الملف المرفق من قبلي في اول مشاركة لوجدت اني عندما احدد علامة صح في صفحة UAEHELD تقوم المعادلات في صفحة movement بجلبها ( أي جلب أي سطر فيه علامة صح في العمود C في صفحة UAEHELD ) ، اريد عند الضغط على الزر في صفحة movement يقوم الكود بترحيل هذه المعلومات الموجود في صفحة movement الي صفحة moved ومن ثم مسح الاسطر التي تم ترحيلها من صفحة UAEHELD ( لان عند مسحها سوف تمسح تلقائيا من صفحة movement ) ، المفترض في كل عملية ترحيل ان يتم إضافة المعلومات الي المعلومات القديمة فلايتم استبدالها او حذف المعلومات القديمة.
  8. السلام عليكم ورحمة الله وبركاته ، اخواني الكرام لجهلي بالترحيل ها انا محتاج لمساعدتكم ، مشروعي مرفق لكم ، هو عبارة عن ملف يحتوي على 4 صفحات كالتالي: UAEHELD تقرير يضم عدد الشحنات المتوقفة ومعلوماتها ، فعند الضغط علي المربع بعلامة صح يتم نقل معلومات الشحنة ورقمها الي الصفحة movement movement الشحنات الجاهزة للنقل ، فكلما حددت الشحنات بعلامة صح في uaeheld فانها تنتقل الي هذه الصفحة استعدادا لارسال تقرير بها . طلبي هو : اريد ترحيل الشحنات من صفحة movement الي صفحة moved وعند ترحيلها يتم تلقائيا حذفها من صفحة UAEHELD عن طريق مسح محتوي الخلايا C الي U للاسطر او الشحنات التي حددتها فقط ( بوضعي علامة صح في الخلايا C) . مع كل ترحيل يومي يتم حفظ المعلومات بالترتيب في صفحة moved ، فلايتم حذف او استبدالها بالمعلومات السابقة. ملاحظة : كل شيك بوكس نتيجته في نفس الخلية التي هو بها . (true & False ) شكرا لكم جزيلا وارجو ان طلب واضح لكم . test.rar
  9. ماشاء الله تبارك الله ، ماخاب املي بكم وبما تقدموه من مساعدة سريعة وشاملة .اسال الله لكم ولي التوفيق والصحة والمزيد من الازدهار. الشكر الجزيل لكم
  10. السلام عليكم اخواني الاعزاء ، بالمرفقات ملف لاستفساري وهو عندما ادخل المعلومات في الصفحة الاولي بطريقة غير مرتبة كمثلا ادخلت المعلومات في السطر 2 و 5 و 7 و 17 ، اريد ان تاتي نفس المعلومات في الصفحة الثانية مرتبة من السطر 2 الي 5 وهكذا، يعني كل المعلومات التي تدخل بشكل عشوائي بدون ترتيب تاتي جاهزة في الصفحة الثانية بدون سطور فارغة . شكرا لكم arrangement.rar
  11. شكرا لك اخي الخالدي على المجهود ، بالفعل المعادلة المعدلة اتت بالنتيجة لاكني قمت بتجربة معادلة فوجدتها تاتي بنفس النتيجة وربما تكون اسهل واصغر ، استخدمت المعادلة التالية بحيث اضعها في كل خلية من خلايا الملف Main ورايت النتيجة بالضبط مثل ما اردت ، صحيح ان فيها عيب وهو ان النتيجة لن تظهر سطر بعد سطر " أي بالترتيب" وذلك لانها تعتمد على ترتيب قيم البحث في الملف المستهدف لاكنها ليست بمشكلة كبيرة ، شكرا لك لاني اخذت الفكرة من الحل المطروح منك فافادني كثيراً ، طبعا في كل خلية راح اغير القيم E2 و A2 =IF(SUM(0+ISNUMBER(SEARCH("*"&Data!$C$2:$C$38&"*";'C:\documents\[tdoc.xls]Sheet1'!E2)));'C:\documents\[tdoc.xls]Sheet1'!A2;"")
  12. اخواني بعد التجارب لاحظت مشكلة : لو افترضت ان المعلومات في الملف 2nd تصل الي 1000 خلية ، فان ملف الmain سوف يقف عند السطر رقم 38 حيث ان قائمة اسماء الزبائن تقف عند نفس السطر ، ايضا عندما تأتي معلومات بنفس اسم الشركة فان النتيجة تظهر معلومة واحدة فقط ، مثلا جرب تسجيل اسم "medco " اكثر من مرة وفي اكثر من خلية "لنفترض ان عندي 10 طلبيات بنفس اسم الشركة "،فانها ستظهر مرة واحدة ، هل توجد طريقة لجعل البحث يتم استنادا للمدى أي من "h2 الي h38 " في قائمة الزبائن بدلا ان يتم بالخلية بنفس السطر؟ في ملف Main لو اردت تمديد الخلايا الي 1000 فان المعادلة لن تعمل لان البحث يعتمد على اسم الزبون في نفس السطر ارجو ان الفكرة واضحة ؟
×
×
  • اضف...

Important Information