saad abed

اخى جمال عبدالسميع افكارك ممتازة وجميلة لى سؤال =LOOKUP(2;1/(D2:L2<>"");D2:L2) رقم 2;1 يرمز للصف ام العمود ام رقم ثابت لا يتغير

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

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

اخى عبدالله باقشير كلمات الاعجاب تعجز عن التعبير عن روعة اعمالك جزاك الله خيرا بارك الله فيك

اخى ابواحمد عبدالله جزاك الله خيرا مشكلة الست بوكس اتحلت على يديك بارك الله فيك فى انتظار الطلب الثانى وهو هل يمكن اضافة معادلة sum لجم البنود فى مديول reportصفحة report2

اخوانى اعتذر عن هذا العنوان المبهم فكرت فلم اجد ايضاحات دلالية ****اكرر اعتذارى ما اطلبه من حضراتكم 1- فورم البحث الذى صنع كوده الاستاذ احمد عبدالناصر اضفت له التعديل ولكن بشرطين لكن الكود لا يعمل وان عمل يعدل فى اكثر من سطر الطلب الثانى(مديول repor) فى كود التقرير هل يمكن اضافة الجمع فى سطر الاجمالى بشرط ان يجمع البند فقط 1 (2).rar

اخى رجب جاويش ستكون بعون الله سلسلة رائعة ولكن اهم شرط فى عمل الخير كيف انميه واداوم عليه استمر فالعمل ممتاز اخى رجب كثير من الوقت افكر هل هناك الية لدمج المعادلات مع بعضها ام هى اشياء منقوله ينقلها المتعلم عن ملمه وفقط فى انتظار السلسله

ابو يوسف الف الف مببببببببببببببببببروك

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

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

اخى احمد فضيلة اعمالك كاخلاقك عالية جدا جزاك الله خيرا

اخى احمد عبدالناصر دائما اذا ضاقت الدنيا على اجدك بجوارى شكرا لك جزاك الله خيرا فرج الله همك واذهب حزنك اللهم امين

اخى ابراهيم ابوليلة شكرا لاهتمامكم وجزاك الله خيرا

للرفع اردت التذكرة لان العمل منه كثير ولكن مش ضابط معى

اخى احمد زمان عمل جميل ومفيد جزاك الله خيرا

اخى ضاحى اعتذر لك ضبط معى كل شئ تمام جزاك الله خيرا

اخى ضاحى الغريب كل اشكر على الاستجابة السريعة الدائمة منك جزاك الله خير جرب الملف ستجده لا يظهر ووضعت كود فى thisworkbook ظهر ولكن لا استطيع الدخول على الاوراق فان اريده مع فى كل الصفحات يختفى

اخوانى ارجو اضافة كود للفورم يجعله يظهر فى المقدمة مع كل الاوراق على يسار الشاشة ولكم الشكر المصنف1.rar

اخى جمال عبدالسميع بارك الله فيك والله اعمالك كلها جميلة ومتقنة

اخى رجب جزاك الله خيرا اعمالك نافعه للسائل ولنا ايضا

السلام عليكم اريد البحث فى ورقة عن طريق لست بوكس بمتغيرين ياريت استخدام الااشارة للورقة activesheet لان الاوراق متشابه فى التصميم وتتنفذ للبحث لكل الاوراق اكون شكر لمن يبادر بمسا عدتى 1.rar

استاذ برقش جزاك الله خيرا

جزاكم الله خيرا صفحة مهمة جدا

اخى ضاحى الغريب الكمبو فى الظهور بها مشكلة الثلاثة الاولى تعمل بطريقة صحيحة والباقى تظهر فارغة لماذا ارجو تجريب الفورم

استاذى احمد عبدالناصر اكواد جميلة وتواضعك اعظم هناك اضافة بسيطة جدا سرعت الكود ايقاف الحساب التلقائى لحيت ينفيذ الكود ثم العوده للتلقائى فى النهاية Sub Button4_Click() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual x = Cells(Rows.Count, 2).End(xlUp).Row If x > 2 Then Range("ba3:ba" & x).Formula = "=b3&c3&d3" y = Cells(Rows.Count, "h").End(xlUp).Row If y > 2 Then Range("bb3:bb" & y).Formula = "=h3&i3&j3" Range("bc3:bc" & x).FormulaR1C1 = "=COUNTIF(C[-1],RC[-2])" Range("bd3:bd" & y).FormulaR1C1 = "=COUNTIF(C[-3],RC[-2])" If x > y Then Z = x Else Z = y Range("ba3:bd" & Z) = Range("ba3:bd" & Z).Value For i = 3 To Z If Cells(i, "bc") > 0 Then Range("a" & i & ":e" & i).Copy Range("n" & n + 3) Range("a" & i & ":e" & i).ClearContents n = n + 1 End If If Cells(i, "bd") > 0 Then Range("g" & i & ":k" & i).Copy Range("t" & t + 3) Range("g" & i & ":k" & i).ClearContents t = t + 1 End If Next Range("ba3:bd" & Z).Clear Range("a3:e" & x).Sort key1:=Range("a3"), key2:=Range("b3") Range("g3:k" & x).Sort key1:=Range("g3"), key2:=Range("h3") End If End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub