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

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

أخي الغالي جعفر جربت الملف وأعطاني رسالة خطأ في هذا الجزء الخاص بإظهار الفورم 'display the userform Call ShowFormatedUserForm(Form:=UserForm1, TitleBarColor:=lTitleBarColor, GradientFill:=True, FontAttributesPtr:=VarPtr(tFontAttr), CharColorsPtr:=VarPtr(aCharColors(0))) وتحديداً مع الكلمة VarPtr

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

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

الأخ الغالي ياسر فتحي رائع أخي الحبيب ياسر في تقديم الموضوع بارك الله فيك وجزيت خير الجزاء .. تقبل الله منا ومنكم صالح الأعمال

الأخ الكريم عبد الواحد ارفق الملف الذي يحوي الكود .. تقبل الله منا ومنكم صالح الأعمال

50 مشاركة ... 67 إعجاب .. يعني إعجاباتك تجاوزت عدد مشاركاتك وهذ متوقع من أعمالك التي حرمنا منها طويلاً الحمد لله أن رزقنا الله بك أخي الحبيب جعفر تقبل تحياتي

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

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

راجع المشاركة ستجدني قلت ضع موشر الماوس في آخر سطر ألا وهو End Sub تقبلوا تحياتي وكل عام وأنتم بخير وأراكم إن شاء الله بعد أجازة العيد في رعاية الله

إذا كانت هناك بيانات في جدول موجود بالفعل فإليك الملف التالي المثال.rar

أخي الحبيب إبراهيم وجب تصحيح نقط معينة وهو أنه لا يجوز الإعلان عن متغير وتعيين قيمة له في نفس السطر Dim H As Integer=10 يجوز ذلك في لغة الفيجوال بيزيك دوت نت أما في VBA سيعطيك خطأ نقطة أخرى بالنسبة للسطر Dim H,m As Integer هنا لم يتم الإعلان عن المتغيرين من النوع عدد ..فقط المتغير m هو المتغير العددي أما المتغير H في هذه الحالة يعتبر من النوع Variant للتأكد من صحة مقولي قم بنسخ الكود التالي في موديول Sub Test() Dim H, m As Integer End Sub قم بوضع مؤشر الماوس في سطر End Sub اضغط F9 لوضع نقطة وقوف BreakPoint سيكون لونها باللون الأحمر الغامق روح لقايمة View وأظهر نافذة Locals ثم قم بتنفيذ الكود ستجد في النافذة تفاصيل كل متغير أرجو أن أكون قد وفقت في توصيل المعلومة

أخي الكريم ما هو الشرط ؟ يرجى التوضيح بمثال تطبيقي لتجد المساعدة

أخي الكريم جرب الملف التالي فيه حلين لإخفاء الصفر .. Hide Zero Values.rar

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

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

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

هل توصلت لما تريد أخي الحبيب ولد الحجاز أم أنك متعثر؟

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

تفضل قبل ما أنام عشان أنام وأنا ضميري مرتاح Sub Archive() 'تعريف المتغيرات Dim WS As Worksheet, SH As Worksheet Dim lRow As Long 'تعيين أوراق العمل المطلوب الترحيل منها وإليها Set WS = Sheet1: Set SH = Sheet2 'تحديد آخر صف فارغ بعد آخر خلية بها بيانات في ورقة العمل المراد الترحيل إليها lRow = SH.Cells(Rows.Count, "Q").End(xlUp).Row + 1 'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [Q] الخلية في العمود 'تساوي 'الخلية التي تحتوي تاريخ اليوم SH.Cells(lRow, "Q") = WS.Range("L13") 'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [O] الخلية في العمود 'تساوي 'الخلية التي تحتوي الزيادة أو العجز SH.Cells(lRow, "O") = WS.Range("L12") End Sub

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

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

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

أخي الكريم أبو عبد الرحمن إليك الكود التالي عله يفي بالغرض Sub ColorIt() Dim WS As Worksheet, SH As Worksheet Dim lCol As Long, X Dim I As Long, J As Long Set WS = Sheets("البحث"): Set SH = Sheets("الاكواد") For I = 1 To 16 Step 3 If InStr(SH.Cells(1, I), WS.Range("E2").Value) > 0 Then lCol = SH.Cells(1, I).Column For J = 3 To SH.Cells(Rows.Count, lCol + 1).End(xlUp).Row If WS.Range("A2") = SH.Cells(J, lCol) And WS.Range("B2") = SH.Cells(J, lCol + 1) Then SH.Cells(J, lCol).Resize(1, 2).Interior.Color = vbRed Next J End If Next I End Sub

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