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

أخي الحبيب حماده عمر بارك الله فيك وجزيت خيرا على دعائك لي ... إخواني تم عمل شرح الفيديو على هذا الرابط http://www.officena.net/ib/index.php?showtopic=60236

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قدم الأخ الفاضل خالد الشاعر موضوع شيق وممتع وجديد على هذا الرابط .. http://www.officena.net/ib/index.php?showtopic=60175 وكنت قد وعدتكم أن أقوم بعمل شرح فيديو للموضوع نظراً لأهميته عند كثير من الأعضاء .. في الملف المرفق الأدوات المطلوبة لعمل تبويب مخصص أو ما يسمى Custom Ribbon وإضافة أزرار للأوامر التي ترغب في إضافتها أترككم مع رابط الفيدو وإن شاء الله يكون مفيد للجميع بالفيديو نسيت جزئية هامة .. وهي إظهار التبويب المخصص فقط وإخفاء كل التبويبات الأخرى .. بكل بساطة افتح الملف عن طريق البرنامج Custom UIE Editor وغير كلمة false إلى true في السطر الثاني <ribbon startFromScratch="false"> مع مراعاة أن تكون الحروف small اي حروف صغيرة .. ولا تنسى أن تنقر على أيقونة Validate ثم أيقونة الحفظ تقبلوا تحيات أخوكم أبو البراء Custom Ribbon.rar

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

ارفق ملف أخي الكريم

الأخ الفاضل أبو محمد نصري إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim Cell As Range Dim strCrit As String, FirstDate As Date, EndDate As Date Dim X As Long Set WS = Sheet1: Set SH = Sheet2 strCrit = SH.Range("E1").Value FirstDate = SH.Range("E2").Value EndDate = SH.Range("E3").Value X = 6 Application.ScreenUpdating = False SH.Range("B6:H1000").ClearContents With WS For Each Cell In .Range("D5:D" & .Cells(Rows.Count, 4).End(xlUp).Row) If Cell >= FirstDate And Cell <= EndDate And Cell.Offset(, -1) = strCrit Then Cell.Resize(, 7).Copy SH.Cells(X, 2).PasteSpecial xlPasteValues X = X + 1 End If Next Cell End With SH.Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub إليك الملف التالي (إذا أعجبك الحل يرجى تحديد المشاركة كأفضل إجابة ... تقبل تحياتي) Transfer Data According To Criteria.rar

طيب ايه المشكلة .... غير في المعادلة رقم 200 إلى 10000 ومتنساش بعد ما تعدل المعادلة تضغط Ctrl + Shift + Enter عشان دي معادلة صفيف

الأخ الفاضل أبو محمد نصري في الخلية F2 ضع المعادلة =MIN(IF(اليوميات!$C$5:$C$200=$F$1,اليوميات!$D$5:$D$200)) وفي الخلية F3 ضع المعادلة =MAX(IF(اليوميات!$C$5:$C$200=$F$1,اليوميات!$D$5:$D$200)) المعادلتين معادلات صفيف أي يجب الضغط على Ctrl + Shift + Enter تفضل الملف المرفق Test This.rar

تفضل أخي الحبيب أبو نبأ إليك مجموعة ساعات .. تجميعتي الخاصة Date Time UserForm.rar Clocks Collection.rar

بارك الله فيك أخي الحبيب محمد الريفي .. وجزاك الله خير الجزاء في الدنيا والآخرة . تقبل تحياتي أخوك أبو البراء

الأخ الفاضل صلاح تفضل الملف المرفق ..تم إدراج التاريخ يدوي في الكود 30/3/1980 لتجربة الكود ..يمكنك تغيير التاريخ في الكود إذا أعجبك الحل لا تنسى أن تختار المشاركة كأفضل إجابة Birth Date Movable Text.rar

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

الأخ الفاضل طارق إليك الملف التالي .. Sub Button2_Click() Dim Cell As Range For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Cell.Value = Date Then Cell.Select: Exit For Next Cell End Sub تقبل تحياتي Select Cell Equal To Date.rar

افتح برنامج الإكسيل واجعل إعدادات الماكرو مرتفعة بحيث تعطل الماكرو ثم افتح ملفك

أخي الفاضل حكيم جرب الملف المرفق ..عله يكون المطلوب (ولا تنسى تحديد المشاركة كأفضل إجابة إذا أعجبك الحل) Load Unload All UserForms.rar

جرب هذا الكود في أي ملف Sub ResetAll() Dim myCommandBar As CommandBar For Each myCommandBar In Application.CommandBars If myCommandBar.Type = msoBarTypePopup Then myCommandBar.Reset myCommandBar.Enabled = True End If Next myCommandBar End Sub

يرجى إعادة رفع الملف ...على موقع آخر

ارفق ملفك أخي الفاضل للعمل عليه

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

نفس المشكلة الملف لا يفتح عندي ...لا أعرف ما السبب !

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

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

تفضل الملف المرفق Formula Array.rar

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

مشكور أخي الكريم زيزو على دعائك الطيب

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