أبو عبد الله _

في حالة وجود تكرارات يحتفظ بالاول والاخير وبحذف غير ذلك

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

شكرا لحضرتك - واشكر اهتمامك أنا أعلم المعادلة بفضل الله ثم بفضل حلول الاساتذة أمثالكم لكن أرغب في الأكواد نظرا لكثرة البيانات ( أولا ) ثانيا : عند حذف التكرارات في المنتصف سوف يؤثر على العدد

السلام عليكم مطلوب في هذا الملف كودين الأول كود في حدث ورقة العمل ( يعمل تلقائي) عند كتابة اسم او كود الموظف في العمود B ان يتم زيادة اخر قيمة مقابلة للكود في عمود التكرارات E بالقيمة (واحد) 1 بغض النظر عن عدد التكرارات في العمود B الثاني كود مرتبط بزر يقوم بحذف الصفوف بناءا على القيم المكررة في العمود B مع الاحتفاظ باكبر واقل قيمة تكرار مثلا لو كود الموظف او الاسم مسجل له في العمود E تكرارات ١ و ٢ و ٣ و ٤ و ٥ يقوم بحذف ٢ و ٣ و ٤ لو اسم مسجل له ١ و٢ و ٣ يقوم بحذف ٢ حذف المكرر بشرط.xlsx

اقترح حضرتك تعمل نسخة من الملف وتمسح القيم

ابحث عن موضوع كشوف المناداة في المنتدى هتلاقي حاجات مشابهة

جزاكم الله خيراً تسلم ايديك والشكر موصول للأستاذ أبو إيمان

السلام عليكم المطلوب باختصار تعديل الكود في المرفق بحيث ينقل الاسم الغير موجود للأرشيف Counter1.xlsm

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

السلام عليكم اولا سلمت يداك المطلوب التنبية عند تكرار نفس القيمة اكثر من ١٠ مرات بخصوص السؤال الثاني ما اقصده ان يتم تظليل الخلايا من c الى f اذا كانت هناك بيانات مكررة في العمود c مع العلم ان البيانات في العمود c هي الاسم مثلا وقد يتكرر والعمود d الى f بيانات مختلفة شرط التنسيق التكرار في العمود c بغض النظر عما هو مكتوب في باقي الأعمدة المطلوب الكود الذي قمت باضافته في الزر المسمى بشرط تكرار القيمة في العمود c بشرط ان يعمل تلقائي عند كتابة قية في العمود C مع تحديد مجموعة الالوان كما في الكود الاخر حيث ان الالوان العشوائية قد ياتي لون غامق .... كيف يمكنني معرفة اللون ورقمه

السلام عليكم المطلوب اولا هو كود لاظهار رسالة تنبيهية في حال زيادة عدد البيانات في العمود C عن ١٠ اشخاص مع العلم ان البيانات متغييرة في العمود C وليست ثابتة قمت بكتابة كود لاظهار رسالة في حال زيادة العناصر الثابتة في حدث الورقة لتوضيح الفكرة ثانيا كود لتلوين الخلايا من C ال F اعتمادا على البيانات المكررة في العمود C بحيث ان كل مجموعة تكرارات تأخذ لون مستقل countif.xlsm

الاستاذ محي اذا محتاج البيانات في العمود B و مثلاً فما هي الاسطر التي سوف اقوم بتغييرها في الكود وشكراً

شكراً على تفاعلك لكن ما اريده كود بحيث يوضع داخل ملف معين وهذا الملف فقط وليس كل ملفات الاكسيل

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

شكرا كيف يمكن حذف الكود من النسخة الاحتياطية

Up

السلام عليكم وجدت الكود المرفق في احدى المشاركات والمطلوب التعديل عليه بحيث ان تكون النسخة الاحتياطية مؤمنة من اي تعديل ويمكن النسخ منها فقط ويفضل ان تكون النسخة الاحتياطية بدون الكود Sub copy1() Dim Extension$ Dim savePathName As String Extension = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & "Backup" & (Format(Now, " dd-mm-yyyy,hh.mm.ss AMPM")) & ".xls" savePathName = "c:\Test Backup 1\" On Error Resume Next Application.DisplayAlerts = False GetAttr (savePathName) Select Case Err.Number Case Is = 0 Application.DisplayAlerts = False ThisWorkbook.SaveCopyAs savePathName & Extension Application.DisplayAlerts = True Case Else MkDir savePathName ThisWorkbook.SaveCopyAs savePathName & Extension End Select On Error GoTo 0 End Sub نسخة.xlsm

السلام عليكم كل عام وانتم بخير هل يوجد كود يقون بإلغاء تفعيل جميع الايقونات في الاكسيل وكذلك اختصارات لوحة المفاتيح بحيث يتم إجبار المستخدم من التعامل من خلال الازارار التي يتم ربطها بأكواد مثلاً عند الطباعة لا يتمكن من الضغط على ctrl+p او الطباعة من ملف يطبع فقط من خلال زر طباعة يتم اعداده وكذلك النسخ واللصق .... .... إذا كان يصعب الغاء تفعيل جميع الخيارات فيمكن الاكتفاء بالغاء الطباعة والنسخ واللصق والحفظ كنسخة

Up

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

🌹🌹🌹🌹🌹

استاذ محمد الكود يعمل بكفاءة ماشاء الله لكن ارغب في تعديل بسيط لاحظت ان الكود يعمل عند الضغط في اي خلية او ادخال بيانات في اي خلية ما اريد هو ان يتم تنفيذ الكود فقط عند ادخال بيانات في العمود C او D فقط وتحياتي لك

الله يعطيك الف عافية ما قصرت جزاكم الله خيراً 🌹♥️🌹

جزاكم الله خيرا كنت افكر في هذ الامر الترحيل التلقائي من خلال حدث الورقة اولا تم وضع الكود في حدث ورقة العمل المخزن لكن عند ادخال البيانات يظهر رسالة خطأ عند السطر for each c in a ثانيا عند محاولة الكتابة في الخلية C3في المخزون او عند الضغط عليها لاول مرة تظهر كلمة اسم الصنف في الخلية c3في ورقة البيانات هناك امر غريب عندما قمت باستدعاء الكود من موديول ١ عن طريق call في حدث الورقة فانه يعمل ### *** ارغب في إضافة بسيطة وهو عند حذف البيانات من المخزن يتم حذفها من ورقة عمل البيانات ( جميع البيانات) الله يعطيك العافية

جزاكم الله خيراً استاذ محمد ويعمل بكفاءة لكن عند إلغاء الترتيب الابجدي يظهر خليه فارغة في المنتصف هل لها حل إذا التعديل يحتاج وقت فالكود الحالي يكفي ❤️❤️