نجوم المشاركات

تحياتى طالما هذا الموضوع تم فتحه كنت متردد فى مناقشة موضوع هام و هو رسالة من القلب و خاصه للطيور المهاجره او المتقطعه _ لعصر ذهبى جديد لهذا المنتدى فالى الساده المحترمين محمد طاهر عمر الحسيني ياسر خليل أبو البراء أبو حنــــين الاخوه الافاضل جزاكم الله خيرا ارى ان هناك مجهود مميت من مجموعه من الاعضاء بدون ذكر اسماء حتى لا انسى احد حتى يظل هذا المنتدى عاليا كما كان و سيظل بأذن الله مناره مضاءة دائما و لكن ما يحزنى انه فى يوم من الايام كان هناك مجموعه متميزه افتقدنا مشاركتها فى فتره زمنيه قصيره منها لكثرة الاشغال او ظروف سياسيه فى بلدهم او لاسباب خاصه او للرحيل ( رحمة الله عليه _ الحسامي ) و حقا نرجو التواصل الجاد معهم و رجعوهم لهذا المنتدى العظيم و حتى للاطمئنان عليهم و ان يكون تواجدهم مميز كما كان من قبلو هذا فضلا و ليس امرا ( مع حفظ الالقاب و تحياتى لشخصهم الكريم ) و منهم ( مع احترامى الشديد لمن لم اذكره ) عبدالله باقشير _ شوقي ربيع _ ضاحي الغريب _ حماده عمر _ حسام عيسى _ الصقر _ يحيى حسين _ عبدالله المجرب _ جمال عبد السميع _ رجب جاويش _ عادل حنفي _ إبراهيم ابوليله _ ياسر العربى ابو اياد ( الاسيوطى ) _ خالد الرشيدى _ محمد الريفى _ محمود الشريف _ محمد حسن المحمد _ طارق محمود _ احمد حمور-ابوعبدالله _ احمد فضيله _ احمدزمان _ هشام شلبى _ ابو عبدالله _ ياسر الحافظ _ ibn_egypt _ احمد فؤاد _ أم عبد الله _ وائل احمد المصري _ إبراهيم محمد _ محمد يحياوى _ قنديل الصياد _ محمدى عبد السميع _ محمد أبو البراء و هذا الموضوع محتاج وقت لتنفيذه و اجراءات و ادوات جريئه قد لا اعرفها لتنفيذه و خصوصا من الفاضل / محمد طاهر و كل عام و انتم بخير و ايام مباركه تحياتى

السلام عليكم ورحمة الله وبركاتة فكرة البرنامج كانت مقدمة من ااحد الاخوة الاعضاء وقد اعجبتني فكرة الموضوع فكانت النتيجة برنامج يعمل علي الاتي :: صفحة تكويد الاصناف مع الرصيد الاساسي ( رصيد اول المدة ) صفحة اضافة صنف الي اي من المخازن الثلاثة صفحة صرف صنف من اي من المخازن الثلاثة صفحة لكل من المخازن الثلاثة بها ارصدة الاصناف بالمخزن المعني يمكن الفلترة عليها صفحة حركة المخزون وهي تسجل جميع الاجراءات للصفحات السابق ذكرها ولا يتم التعامل معها من قبل المستخدم اضافة وصرف الي ومن ثلاثة مخازن.rar ارجو ان ينال اعجابكم

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

كيف يمكن يمكن القيام بهذا التنسيق الشرطي zebra-lines with Cond_Format.rar

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي و لا تنسونا من صالح الدعاء تحياتى واجهة برنامج...hosami (1).rar

السلام عليكم هم كثيرون حفظهم الله و أضيف عن ما ذكر سابقا - الدغيدي - بن عليه

طيب ممكن تفتح الملف وتبدأ تدرسه .. أو ممكن لو عايز تستخدم الفورم في ملفك بسيطة جداً روح لمحرر الأكواد ( Alt + F11) هتلاقي الفورم في نافذة المشروع ..دور على كلمة UserForm1 اعمل كليك يمين عليه ثم اختر الأمر Export File . وصدره لسطح المكتب مثلاً ، حدد سطح المكتب وانقر Save خلاص اقفل الملف اللي فيه الفورم روح لملفك اللي عايز تدرج فيه الفورم وافتح وكرر نفس الخطوات تروح لمحرر الأكواد وفي نافذة المشروع في أي مكان كليك يمين والمرة دي اختار Import File وروح لسطح المكتب واستورد الملف اللي صدرته من شوية بعد كدا كليك يمين على الفورم واختار View Code وغير الاسم وكلمة السر إلى ما تريد من خلال السطر التالي If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then بعد كدا ضع الكود التالي في حدث فتح المصنف ودا بيكون عن طريق دبل كليك على الكائن ThisWorkbook ثم الصق الكود التالي في حدث المصنف Private Sub Workbook_Open() UserForm1.Show End Sub احفظ ملفك واقفله .. وارجع افتح مرة تانية ومبرك عليك

الاخ جلال الجمال_ابو أدهم جزاك الله كل خير اخي جلال الجمال_ابو أدهم في تذكر الاخوة الاعزاء وازيذ استاذتي العظام الفاضل الاستاذ محمد حجازي والفاضل الاستاذ علي السحيب وهم من تتلمذت تحت عبائتهم

وعليكم السلام أخي الكريم حامل المسك بالنسبة للخطأ في العمود L سببه أن دالة التفقيط وهي دالة معرفة غير موجودة بالملف .. ولكي تتجنب الخطأ يجب نسخ الدالة ووضعها في موديول عادي داخل المصنف .... بالنسبة للطلب الثاني قم بتعديل المعادلة في الخلية K2 بالشكل التالي =IF(J2="","",IF(J2="ح","محروم",IF(J2="غ","غائب",(IF(J2>=95,"أ+",IF(J2>=90,"أ",IF(J2>=85,"ب+",IF(J2>=80,"ب",IF(J2>=75,"جـ+",IF(J2>=70,"جـ",IF(J2>=65,"د+",IF(J2>=60,"د","هـ")))))))))))) إذا حدث معك خطأ قم باستبدال الفاصلة العادية بفاصلة منقوطة

وعليكم السلام أبا سلمان بالنسبة للسؤال ثاني غير نوع المتغير من Integer إلى Long بالنسبة للطلب الأول إليك الكود التالي يقوم باسخراج القيم المكررة للأرقام في جدول يبدأ في الخلية A1 ، وجدول آخر بالقيم المكررة للأسماء في جدول آخر يبدأفي E2 ... وذلك في ورقة العمل المسماة Test1 .. أما بالنسبة للتلوين فإعتقد التنسيق الشرطي يكفي رابط الكود من هنا

ارج التعقيب اذا امكن

17 hours ago, ياسر خليل أبو البراء said: الموضوع منذ أيام ولم أراه سوى الآن .. ولا أجد أي عضو يلفت النظر للسائل بأن العنوان غير مناسب ساعدوني بارك الله فيكم ..... تعبت من كثرة توجيه الأعضاء للالتزام بالتوجيهات .. من المعروف أن الكتاب بيبان من عنوانه كذلك موضوعات المنتدى .. وإلا أصبح المنتدى مسخ بالعناوين الفارغة الغير معبرة والغبر مناسبة أرجو الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى (والكلام موجه للجميع) الاخ ياسر خليل أبو البراء تحياتي لك ارجو ان تتقبل نصيحتي المنتدي به من الاخوة الاكفاء و ذو الخبرة الجيدة امثال الاخ سليم حاصبيا و الاخ أبو حنــــين و الاخ جلال الجمال_ابو أدهم وغيرهم كثر ربما لم الحظهم ولكنك تعرفهم خيرا مني فلماذ لا تتم ترقيتهم الي مشرفين حي يساعدو في عملية الاشراف لا تخبرني ان التدرج بالترقيات يتم اليا حسب المشاركات قديما تم ترقيات من هم اقل منهم خبره ويمكنني ذكر اسمائهم ان احببت للتذكره وتأكد ان المنتدي سيعج بالنشاط والانضباط فلا يجوز ان تقوم بكل شئ يجب ان تتفرغ للأمور اخري كفصل ودمج وحذف المشاركات والموضوعات وامور اخري لا مجال لذكرها هنا ملحوظه هامة انا خارج هذه الترقيات لأسباب منها علي سبيل المثال لا الحصر اولا شبعت ترقيات قديما ثانيا انا اقوم بإختيار موضوعاتي التي استجيب لها (( عدم وجود اي نوع من الحماية - عدم حذف اي من اشرطة الادوات - التنسيق الجيد - وجود داتا كافية للتجربه عليها - واخيرا الموضعات الجديدة او ذات جهد معين )) فلا يجوز لي الاشراف لأني لن اكون عادلا مع الاخوة الاعضاء واعتقد ان الكثير من الاخوة الاعضاء يوافقون علي ترشيحاتي ارجو ان تتقبل نصحي بصدر رحب

كلنا نتعثر لست وحدك .. المهم أن ننهض من عثرتنا ونصل لخط النهاية تقبل وافر تقديري واحترامي

نعم ينفع ولكن ارفق ملف للعمل عليه

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

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

السلام عليكم كل عام وانتم بخير وبمناسبة ذكر العيد في هذا البرنامج المميز خطر على بالي السؤال التالي في البداية قلت انك يجب ان احدد ايام العطل من بداية العمل او السنة ولكن يبقى عندنا الاعياد الفطر والاضحى قد تكون ايامهم مختلفة عما سجلناه في بداية العمل او السنة بحيث نسجل ان عيد الفطر سيكون 5-6-7/ 7/ 2016 ثم كما ورد في المثال المذكور سابقا ان احد الموظفين اخذ اجازة 10 ايام من ضمنها او اخرها قبل العيد تماما او ضمنه فإذا قمنا بتغيير تاريخ العيد الى تاريخه الصحيح فهل سيؤثر ذلك على اجازة الموظف أم لا تحياتي للجميع

استخرجت الجداول عن طريق هذا البرنامج لكنه يعمل مع اصدار 2003 و ما قبل accessfix.rar

اخي الكريم عليك استخدام الدالة DSUM واذا صعب عليك الامر ارسل مرفقا مع توضيح الطلب

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

ألف شكر أستاذنا الفاضل / ياسر خليل أبو البراء جزاك الله خيرااااااااااااااااااااااااااا بارك الله فيك دائماً

وعليكم السلام ضع المعادلة التالية في الخلية B2 ثم قم بسحبها لأسفل ولليمين =SUMPRODUCT((main!$B$1:$B$819=$A2)*(main!$D$1:$D$819=Sheet1!B$1)*(main!$F$1:$F$819)) إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة فورم تم ارفاق كود الحل من مشاركات الاعضاء و لا تنسونا من صالح الدعاء تحياتى Book1 (فورم ادخال بيانات).rar

بارك الله فيك أبا سلمان المطلوب في النتائج المتوقعة غير واضح ..هل تريد نقل الأسماء أي نقلها كليةً من القائمة أم نسخها فقط ..؟ وهل التعامل سيكون مع الأسماء المكررة فقط؟ وهل ستترك في حالة النقل اسم فريد ؟ أم أن النقل يكون لكل الأسماء المكررة؟ يرجى إرفاق شكل النتائج المتوقعة ؟ مع توضيح التظليل المطلوب ...

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

وعليكم السلام أخي الكريم زياد999 قم بالذهاب إلى التبويب Developer ثم انقر Design Mode للدخول لوضع التصميم ثم دبل كليك على زر الأمر الموجود لينتقل بك لمحرر الأكواد ضع الكود الذي سأرفقه لك إن شاء الله ثم عد إلى ورقة العمل مرة أخرى ، وانقر على Design Mode للخروج من وضع التصميم ، ثم انقر زر الأمر لتنفيذ الكود .. رابط الكود من هنا

لاحظ أخي ديدو أن المنتدى لا يقدم برامج كاملة لأسباب عديدة لن أذكرها .. ولكن بالصبر والمثابرة يمكنك بناء برنامج كامل حسب رؤيتك .. تناول كل مشكلة أو نقطة في موضوع حتى إذا انتهيت منها قمت بالانتقال لموضوع آخر وهكذا ، ولن يمنعك أحد من طرح الموضوعات (ولو وصلت لمليون موضوع) .. طبعاً صعب توصل لمليون موضوع (وآدي دقني لو عرفت توصل لألف موضوع حتى )

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

شكرا أخي الكريم ياسر خليل أبو البراء دمتم في حفظ الله

بارك الله فيكم إخواني على الحلول المقدمة .. عملت على الكود الخاص بأخونا عبد الباري وعدلت تعديلات بسيطة جداً لكنها في نظري مهمة ، وهي الإشارة لأوراق العمل بحيث يمكن تنفيذ الكود من أي ورقة عمل أخرى بدون مشاكل ، حيث أن تنفيذ الكود في ورقة عمل أخرى لن يعطي نتائج صحيحة كما عدلت نطاق الترحيل لأن آخر عمود مطلوب هو AR وليس AY .. والكود رائع وممتاز وفكرته بسيطة وأعجبني كثيراً لي رجاء قبل أن أضع الكود ..كفانا ملفات مرفقة وحسب ..نريد أن نرتقي ... كفانا ملفات مرفقة في الحلول ، يكفي ملف مرفق واحد فقط وهو الذي يرفقه صاحب الموضوع ، والكل يعمل عليه .. نظراً لكثرة الملفات المرفقة قمت بالاعتماد على مرفق أخونا عبد الباري لأنه أضاف ورقة عمل باسم "رصد الدور الثاني" ... وهذا توفيراً للوقت رابط الكود من هنا

جرب هذا الملف(الورقة salim) النطاق الاصفر المصنف salim1.rar

الاخ احمد ديدو اذا كنت مازلت ترغب في تنفيذ عمل شيت مخزن المستشفى ساعد نفسك حتي يتم تنفيذ المطلوب قم بالاتي لعمل اختبارات الاكواد عبئ الاوراق التالية ببيانات لا تقل عن 25 سطر كود الصنف اضافة صنف صرف صنف

وجدت هذا الحل في مواضيع سابقة ،، وبقي التضليل بلون مختلف على الجدول الاصلي.

اخى الكريم العزيز الى قلوب الملايين / ياسر خليل ابو البراء ربنا يبارك فى عمرك انت بتصعبها عليا وعلى كلا انا ها حاول وهتابع التعليمات زى توجيهاتك وربنا يقوينا لان الموضوع مش ساهل والوقت ضيق جدا وشكرا ليك اخى الكريم

اخي الفاضل كود الترحيل موجود بملفك تم التعديل في الكود ليلائم طلبك حسب ما فهمت الصف الأول الإبتدائي 2016.rar

شكرا جزيلا لحضرتك بارك الله فيك وأكثر من أمثالك ونفعنا بعلمك وكل عام وأنت بخير

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

اخى الحبيب محمد سلامة اهلا اهلا اهلا هلا والله يا سلام اهو انا فى انتظر التجربة دى هو ده الكلام . انا مستنى التجربة دى كل سنه وانت طيب يا قمر

وجزيت خيراً بمثل ما دعوت لي أخي العزيز جلال

قمت بتحميل الملف ووجدته ملف أكسس وليس إكسيل يمكن طرح الموضوع أو نقله إلى قسم الأكسس حيث يوجد خبراء هناك في الأكسس ..

السلام عليكم ورحمة الله تعالى وبركاته اخى الحبيب تحية طيبة وبعد البرنامج حسب ايام العيد الاربعة + الوقفة باعتيارها عطلات رسمية + ايام الجمعة والسبت باعتيارها عطلات اسبوعية 1/9/2016 -الخميس 1 2/9/2016 -الجمعة 1 3/9/2016 -السبت 2 4/9/2016 -الاحد 2 5/9/2016 -الاثنين 3 6/9/2016 -الثلاثاء 4 7/9/2016 -الاربعاء 5 8/9/2016 -الخميس 6 9/9/2016 - الجمعة 3 10/9/2016 -السبت 4 11/9/2016 -الاحد 5 واقفة عرفات 12/9/2016 -الاثنين 6 اول ايام عيد الاضحى 13/9/2016 -الثلاثاء 7 ثانى ايام عيد الاضحى 14/9/2016 -الاربعاء 8 ثالث ايام عيد الاضحى

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

بارك الله فيك أستاذي الكبير محمد طاهر وجزاكم الله خيراً .. ونتمنى تواجدك الدائم فيما بيننا ، ونريد أن تقدم لنا موضوعات جديدة لنستفيد من خبراتك فنحن بحاجة إلى المزيد من الخبرات والكوادر

السلام عليكم أرى أن الحل المناسب في يد الأعضاء . لو إلــتزم كل عضو بعدم الإجابة عن السؤال الذي لا يتقيد صاحبه بشروط المنتدى ( عدم ارفاق ملف - شرح غير موجود او غير كافي - العنوان غير مناسب . . . .. ) لتم التخلص من هذه المشكلة في وقت قصير .

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

السلام عليكم هذا الكود يمكن ان أسميه فخ أو لغم من المعلوم أن هناك برامج لفك حماية الشيتات لا نستطيع مقاومتها أومنعها من كسر الحماية والمستخدم يقوم بكسر حماية الشيت للحصول على المعلومات السرية داخل البرنامج (معادلات ـ أعمدة مخفية .....الخ) إذا منعنا المستخدم من الحصول على هذه المعلومات السرية فنكون قد حققنا الهدف يبدأ عمل الكود من حدث الصفحة SELLECTION CHANGE ثم ينتقل إلى الإجراء booom وهو يقوم بحذف أوراق محددة عندما يتم فك حماية الورقة (الشيت) والنقر على أي خليه فيها ولكن انتبه : فيمكن أن يكون المبرمج نفسه هو ضحية لهذا الكود (كما حصل لي شخصيا أثناء العمل على هذا المرفق) إذا عاود المبرمج فك حماية الصفحة لتعديل أي معادلة مثلا وتحديد أي خلية سينفجر اللغم وتحذف الأوراق تلقائيا ويقفل البرنامج لذا بعد الانتهاء من عمل أي برنامج وبعد حماية الصفحات يتم وضع هذا الكود فإذا اراد المبرمج في وقت لاحق فك الحماية على الصفحة للتعديل عليها فيجب قبل ذلك الذهاب لمحرر الفيجوال والدخول على الماكرو booom وتعليق السطر الآتي ' Sheets(Array(1, 3, 4)).Delete لأنه المسؤول عن حذف الأوراق (الأولى والثالثة والرابعة) تفضلوا المرفق والشرح داخل الكود abo eed file.rar

سيتم حذف اوراق العمل وإغلاق الملف إذا تم فك الحماية تفضل حذف أوراق عمل1.rar راجع أيضا موضوعي هنا http://www.officena.net/ib/topic/63306-منع-المستخدم-من-فك-حماية-الشيت/?do=findComment&comment=411097

اخي الكريم رحلة ال 1000 ميل تبدأ بخطوة المرفق التالي يشبه طلبك كثير ولكن توجد بعض الفروقات باختصار قم بقتح النموذج daybox اضغط على زر عرض القيود سيظهر نموذج اسمه كشف حساب الحقل ( الرصيد ) قيمته لن تكون صحيحة الا بعد استخدام احدى طرق البحث جرب الآن اكتب الرقم 161 في حقل ( بحث حسب الاسم ) وسترى النتيجة كان بودي لو ساعدتك حسب طلبك بالضبط ولكن عدم خبرتي بالامور المحاسبية هو ما اعاقني ارجو ان يفيدك المرفق التالي وسنتعاون انشالله لتصل الى طلبك 100 % صندوق يومي.rar