عبدالله المجرب

اخي ابو احمد عمل رائع سلمت يمينك ابواحمد

ملف ممتاز كنت مخبيه فين يا باشا سلمت لنا ابواحمد

اخي سعد شكراً لهذا التشجيع المتواصل ابواحمد

اخي الفاضل هذا ما اقصده ب aa ولا يجب تكرارة وانت قمت بتكراره Sub aa() Dim C As Range LR = Sheets("ميزان العملاء").Range("ae" & Rows.Count).End(xlUp).Row Set mrng = Range("AE12:AE" & LR) For Each C In mrng If C.Value > 0 Then With C.Interior .ColorIndex = 3 .Pattern = xlSolid End With End If If C.Value = 0 Then With C.Interior .ColorIndex = 6 .Pattern = xlSolid End With End If If C.Value < 0 Then With C.Interior .ColorIndex = 2 .Pattern = xlSolid End With End If Next C End Sub اما هذا فهو ما تقوم بوضعه في اي صفحة جديدة تريد Private Sub Worksheet_Change(ByVal Target As Range) aa End Sub

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

الحماية و عدم التكرار امرها سهل وقد وضعتها في مشاركة سابقة لكن المشكلة في المعادلات التي يتم وضعها في الخلايا ولكن اعدك بالمحاولة ولكن لا اعدك بالحل ابواحمد

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

اخي باسم جرب الكود المرفق في مشاركتي السابقة والشكر موصول للعميد دغيدي

اخي الفاضل ضع هذا الكود في زر الامر الموجود في الملف Sub DCount() xx = Application.WorksheetFunction.DCount(Range("A1:B8"), Range("B1").Value, Range("C1:C2")) Range("F2").Value = xx End Sub ابواحمد

بسم الله الرحمن الرحيم النشرة الدورية لمواضيع المنتدى - العدد السادس http://www.officena....s/news%2006.htm و سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر و ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى مرفق الملف فى صيغة Pdf news 06.pdf

اللهم آمين

السلام عليكم اخي سالم اهلاً بك بين اخوانك ما رايك بتجربة هذا الرابط http://www.officena.net/ib/index.php?showtopic=31532 ففيه طلب مشابه لما تطلبه ابواحمد

والله ما مملت منك ولكن الانشغال في طلبات اخرى ينسي واعذرني على ذلك وبالنسبة للتواجد فانا متواجد بشكل يومي =========== اخي العادلات تعمل لكن هناك كود اسمه aa قمت بتكراره (نسخته مرتين) وهذا خطاء يكتفى بواحد ويمكنك وضعه في حدث التغيير في اي ورقة جديدة

الله يسلمك اخي ابو نصار لا شكر على واجب

اخي الفاضل ملفك يحتاج الى اعادة تنظيم لماذا لا تستخدم الدالة VLOOKUP لجلب البيانات بدل مساوات الخلايا بين الشيتين!!

اخي ابو نصار استبدل كودك السابق بهذا Private Sub ComboBox1_Change() ' On Error Resume Next For i = 1 To 49 Me.Controls("TextBox" & i + 1) = Application.WorksheetFunction.VLookup(ComboBox1 + 0, Sheets("data").Range("A4:az5000"), i + 1, 0) Me.Controls("TextBox" & i + 1).Text = Application.WorksheetFunction.Text(Me.Controls("TextBox" & i + 1).Text, "# ?/?") Next i End Sub وان شاء الله يفي بالغرض ابواحمد

اخي العيدروس (ابو نصار) يمكنك ان تغير خواص الخلية الى نص يمكن تنفع او كما قال العميد ارفق ملف

السلام عليكم كحل اولي يمكنك استبدال اسم الخلية AL28 في المعادلة (موجودة مرتين) بهذه المعادلة =SUMPRODUCT(ISNONTEXT(F28:AJ28)*1)-SUMPRODUCT(($F$7:$AJ$7="F")*(F28:AJ28="")) وبذلك تقدر تستغني عن هذه الخلية

اعتقد بانه لا يحفظ ملف فيه اكواد بهذا الامتداد (حسب علمي) وانما بامتداد XLSM ابواحمد

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

تم تغيير الاسم وكل الشكر لإدارة الموقع ============== سيتم نقل الموضوع للمنتدى المفتوح ابواحمد

اخي الفاضل المرفق يفتح على الانترنت اي انه ليس ملف اكسل (وهناك ملفات كثيرة في المرفق)!

اخي ياسر الحافظ ابو الحارث ايه الفارس النبيل يمامن تتحلى باخلاق الفرسان غمرتني بكرمك الاخلاقي فانت لا تترك مكان الا وتمدحني فيه وهذا كثير علي شكراً جزيلاً لكل هذا التشجيع ابواحمد

اخي هذه من صلاحيات الادارة ولكن .. يمكنني مراسلة الادارة لعمل اللازم فما الاسم الذي يرغب به الاخ ضاحي ابواحمد