ياسر خليل أبو البراء

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

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

يشرفني ويسعدني دائما أن تكون أول من يرد على موضوعي تقبل تحياتي وتقديري أستاذي ومعلمي وملهمي العلامة عبد الله باقشير :fff:

أخي الفاضل مختار أنت لم توضح هل تريد المسلسل يكون منفصل أم متصل؟ التفاصيل مهمة يا جماعة عشان اللي يقدر يساعد يشتغل على بصيرة والموضوع ميطولش ... عموما جرب المرفق أنا اعتمدت على سيريال منفصل لكل من الذكور والإناث .. عشان كدا فيه عمود أنا ضفته للنوع تم إخفاء العمود Delete Empty Rows New Serial.rar

السلام عليكم إخواني الكرام .. أقدم لكم شيئا قد يكون جديدا بعض الشيء ألا وهو البحث عن أو التعرف على الخلايا المدمجة في ورقة العمل في الملف المرفق ستجد أكثر من طريقة للتعرف على الخلايا المدمجة الطريقة الأولى طريقة خاصية البحث .. يوجد دالة معرفة تحدد إذا ما كانت الخلية مدمجة أو لا يوجد كود لتلوين الخلايا المدمجة .. كما يوجد كود يعرض لك عناوين الخلايا المدمجة .. كل هذه الطرق الأربعة في ملف مرفق واحد فقط ( 4 * 1 ) زي برت بلس عشان متقولوش حارمكم من حاجة مع تمنياتي لكم بدوام الصحة والعافية أخوكم في الله أبو البراء Find Merged Cells.rar

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

حدد أي خلية من الخلايا التي فيها خاصية التحقق من الصحة ثم الأمر نسخ.. وفي الخلايا الجديدة المراد التعامل معها كليك يمين لصق خاص Paste Special ثم اختر Validation

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

أخي أمير تفضل الملف التالي TestThis.rar

جرب تضع هذه الجملة With ws On Error Resume Next For lngCtr = .Range("J" & Rows.Count).End(xlUp).Row To 2 Step -1 If .Range("J" & lngCtr).Value <> rngCell.Value Then .Rows(lngCtr).Delete Next lngCtr End With End If On Error Resume Next

وعليكم السلام نورت المنتدى أخي الفاضل مشكور على مرورك العطر

ارفق ملفك أخي للعمل عليه قم بضغط الملف أولا ثم رفعه

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

جزيت خيرا على دعواتك الطيبة أخي الحبيب ولد جدة ؟؟هو لسه فيه عودة ربنا يستر .. عموما الحمد لله أن تمت الخطوة الأولى والأخيرة بخير

أخي الفاضل أسامة أتعبني ملفك كثيرا .. بس يا ريت ميكونش فيه أي طلب إضافي .. لو كان فيه اطرح موضوع جديد عشان أنا تعبت تفضل المرفق التالي : ومتنساش تدعي لي دعوة بظهر الغيب Import From WBs.rar

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

أخي الفاضل على أي أساس قمت بدمج ملف المقبوضات.. لاحظت الصفوف متداخلة يعني حتة من هنا وحتة من هنا وبعدي شوية 3 حتت من هنا وجتة من هنا اعذرني لجهلي بمثل هذه الأعمال ..أنا لا أفهم طبيعة عملك ..طلبك غير واضح بالنسبة لي .. لابد أن يكون هنا منطق في العمل مع الأكواد وأنا لا أفهم المنطق المراد العمل عليه الآن!! لابد أن يكون هناك أساس للعمل .. لو كان الأساس التواريخ لاحظت أن التواريخ ما بين 2013 و2014 .. لازم يكون فيه منطق أو تحديد على أساس ثابت حتى يسهل العمل

بارك الله فيك وجزاك الله كل خير ..

السلام عليكم قلت قبل ما أنا أقدم لكم دالة كدا ع السريع يمكن تفيد أي حد الدالة تقوم بعمل عد للتواريخ في نطاق ما .. الدالة بسيطة جدا بتعتمد على اختبار الخلية باستخدام IsDate وترجع القيمة إلى True أو False فلما يكون تاريخ العداد يضيف واحد في كل مرة أرجو أن تنال إعجابكم Function CountDates(R As Range) For Each Cell In R If IsDate(Cell) Then Counter = Counter + 1 Next Cell CountDates = Counter End Function

أخي الحبيب أنا بداعبك .. قافشك باللغة العامية المصرية يعني فاهم اللي عملته ومطنش عليه ... تقبل احترامي وتقديري أخوك أبو البراء

بارك الله فيك أخي الحبيب الجموعي تسجيل ماكرو (قافشك) تقبل تحياتي وتقديري

هل يمكن إضافة زر Toggle Button لأن خبرتي ضعيفة في UserForms ؟ أريد أن أرى تأثيرها على الإطار Frame

تسلم يا ابن مصر بس يا ريت تحط الأكواد بين علامة الأكواد <> =IF(OR(N8="",M8=""),"",O7+M8-N8) توضع المعادلة في الخلية O8 تقبل تحياتي

الأخ والأستاذ الحبيب ضاحي لكم تسعدني كلماتك ويسعدني مرورك دائما فأنت لنا المثل والقدوة بارك الله لنا فيك أخبار المجلة ايه؟ مفيش جديد

مشكور على مرورك الكريم أخي الحبيب وإن شاء المولى تستفيد من الأداة