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

أخي الحبيب الخطأ المرجعي ببساطة هو أنك على سبيل المثال تكتب معادلة في الخلية H1 على سبيل المثال ، فتحتوي المعادلة على إشارة مرجعية للخلية نفسها H1 فهذا هو الخطأ المرجعي Circular Reference

المطلوب الأول =IF(V3>0;NOW();"") الخطأ الذي وقعت به هو خطأ يدعي خطأ مرجعي .. لأنك أشرت في معادلتك إلى الخلية ذاتها التي كتبت فيها المعادلة

الحمد لله الذي بنعمته تتم الصالحات

أخي الحبيب جرب الملف التالي VLOOKUP.Lowest.Value.rar

بارك الله فيك يا بن عليه أنت ملك المعادلات ... جزاكم الله خيرا

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

مشكور على مرورك العطر أبو ناصر (المعنى في بطن الشاعر)...أهم شيء إنه يكون شاعر بالإكسيل

مفيش كلام بعد دا الكلام إبداعاتك ليس لها حدود أيها المبدع دائماً

لا يمكن أن أتكلم عن الإبداع في أرض الإبداع فالنور يضمحل إذا كان هناك نور أسطع منه

أخي الحبيب جرب الملف التالي Discount.rar

بارك الله فيكم حلول رائعة ومنور يا حاج زمان

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

أخي الفاضل ارفق الملف لكي يستطيع الأخوة مساعدتك

أخي الحبيب مزيد من التوضيح

الأخ الغالي رجب جاويش الكود : Dim LR As Integer LR = [c1000].End(xlUp).Row + 1 Cells(LR, 3) = Date Cells(LR, 2) = Month(Cells(LR, 3)) Cells(LR, 2) = Format(Date, "mmm") ألا ترى أنه يمكن الاستغناء عن هذا السطر Cells(LR, 2) = Month(Cells(LR, 3))

أخي الغالي لا تكتب (أخبرك انشاء الله) بل اكتب ( إن شاء الله)

بارك الله فيك يا مستر سيد أعانك الله وبارك الله فيك

جرب الملف بعد تعديل طفيف عليه FilterByTextbox.rar

بارك الله فيك أخي أبو حنين عمل رائع ... شغل احتراف

شفت بقى إننا أحسن من الأجانب (من غير تغيير الامتداد تم حل المشكلة بفضل المولى عزوجل)

عذرا أخي الغالي كان هناك خطأ بسيط في الكود إليك الكود بعد التصحيح Dim clnMyUniqueArray As New Collection Dim rngCell As Range Dim lngMyCounter As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rngCell In Range("Q7:Q" & Range("Q" & Rows.Count).End(xlUp).Row) On Error Resume Next clnMyUniqueArray.Add Item:=rngCell.Value, Key:=CStr(rngCell) If Err.Number = 0 Then lngMyCounter = lngMyCounter + 1 rngCell.Offset(0, -2).Value = lngMyCounter End If On Error GoTo 0 Next rngCell Set clnMyUniqueArray = Nothing Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic

الأخ الغالي هل جربت الحل بدون تغيير الامتداد ؟؟؟ أرجو التجربة

بارك الله فيك أخ طارق .. دائما مبدع (تعلمنا منك الكثير ويبدو أننا لن نتوقف عن التعلم منك فمعينك لا ينضب)

بارك الله فيك أخي رجب عمل رائع

تفضل أخي الحبيب المرفق التالي (الكود منقول بتصرف .... قمت فقط بالتعديل عليه ليتناسب مع طلبك) Sales.rar