هشام شلبى

السلام عليكم ========== عفوا اخى المرفق مشكلة ترحيل لايسم1.rar

السلام عليكم =========== اخى ابو محمد الحل طويل بعدد المتغيرات المطلوبة" لاحظ نفس الجملة مكررة 12 مرة ويمكن زيادتها" شاهد المرفق بحل ثانى دالة IF لاكثر من 25 شرط.rar

السلام عليكم =========== اخى ابو محمد طابت ايامك برضا من الله وسلم لسانك

السلام عليكم =========== اخى الحبيب ايسم"منور المنتدى" طابت ايامك شاهد المرفق

السلام عليكم =========== انا لا استطيع نسيانك لكن انا جاوبتك فى المشاركة رقم4 الموضوع فقط انتظار الوقت حتى يتم عمل الكود

السلام عليكم =========== شاهد المرفق mo123333.rar

السلام عليكم =========== اعتقد ان هذا من الكود انا جربته على اعداد اقل ويعمل بصورة طيبة انتظر عليه وسيلبى طلبك

السلام عليكم ========== بارك الله فيك "طريقة مفتخرة صحيح"

السلام عليكم =========== استبدل هذا السطر بالكود Set MyRng = æÑÞÉ1.Range("A12:DL50") بالسطر التالى Set MyRng = æÑÞÉ1.Range("A12:DL511") الكنترول للصف الأول ث تجديد2.rar

السلام عليكم =========== بارك الله فيك اخى emadoo الكود وان صح سيحل الكثير من المشاكل

السلام عليكم =========== بارك الله فيك اخى emadoo وفى انتظار المزيد

السلام عليكم =========== اخى الكريم شاهد المرفق Book2.rar

السلام عليكم =========== ارفق الملف حتى نعرف اين المشكلة

السلام عليكم ========= بارك الله فيك

السلام عليكم =========== اخى الفاضل شاهد المرفق عبارة عن دليل تليفونات للاستاذ خبور دليل الهاتف.rar

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

السلام عليكم =========== الاخ emadoo الاخ الخالدي بارك الله فيكما الى الامام دائما

السلام عليكم ======== اخى ابو محمد ضع الكود التالى Sub HH() Dim myrange As Range, lastc Selection.SpecialCells(xlCellTypeLastCell).Select lastc = ActiveCell.Row On Error GoTo nozeros Set myrange = Range("IV1:IV" & lastc) With myrange .Formula = "=IF(COUNTIF(RC[-255]:RC[-1],0)>0,1,"""")" .Value = .Value .SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete .Clear End With Range("A1").Select Exit Sub nozeros: Range("A1").Select MsgBox ("لا يوجد صفوف بها الرقم صفر ليتم مسحها") End Sub واليك مرفق بطريقة العمل وسامحنى لانى اعمل على اوفيس 2003 شرح ادراج كود.rar

السلام عليكم ======== اخوانى والاحباء الى قلبى " ابو عبدالله - طارق - احمد يعقوب " كلام كله جيد وجميل مما لاشك فيه ان الكل هنا ولا شك يشاركنى نفس الاحساس اننا جميعا اصبحنا اسرة واحدة بدون ان نرى كلا منا الاخر فمن الممكن ان يخطأ احد منا فى منزله وينادى على ابنه باسم احد منكم وهذه حقيقة ------------------------------------------- وانا بطبيعتى اتوه فى تصفح المواضيع الطويلة التى تحتوى على كتابات كثيرة واميل دائما الى التقصير فى توصيل المعلومة . المفدمة هذه هدفها الاساسى " وبدون زعل" انه ولابد لنجاح هذا المشروع ان يكون هناك نظام له ولابد لتحقيق الامن فى تحصيل المعلومة من قائد ولا يصح ان يفهم من هذا المعنى انا القائد افضلهم لالا لابد وقبل التصويت على المواضيع اختيار من يوقع على اهميتها اولا حتى لا تكثر المواضيع ويصعب ملاحقتها وبالتالى لا نحقق المطلوب والمطلوب ومن وجهة نظرى المتواضعة : ============================= 1) ترشيح احد الاشخاص " من المشرفين طبعا " لتحديد اهمية واولوية المواضيع التى سنبدأ بها ولا تزيد عن موضوعين فقط " مشروعين " وفى المقابل مشاركة اخرى لتبنى فكرة معينة كما ذكرت فى مشاركة سابقة -------------------------------------------- 2) بعد الانتهاء من الترشيح يقوم المترشح بتحديد اولوية واهمية المواضيع ليبدأ بها ونبعد عن فكرة التثبيت لان الموضوع اذا كان قوى وجذاب ويهم الشريحة الاكبر من المشاركين سيكون بديهيا فى المرتبة الاولى دائما بكثرة المشاركات والردود " والا سنجد جميعنا فى يوم ما الصفحة الاولى من المنتدى كلها مواضيع مثببتة" -------------------------------------------- 3) اعجبتنى فكرة طرحها اخ كريم وكان الرد الاول من اخى احمد يعقوب فارجوه بالانتظار قليلا لان هذا الموضوع هو فكرة مشروح يهم الجميع تقريبا " موضوع المرتبات " هذا فقط وتقبلوا احترامى وتقديرى لكم جميعا

السلام عليكم =========== اخى احمد بارك الله فيك على هذا المجهود

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

السلام عليكم =========== اخى الحبيب ابو عبدالله اصبحنا فى المشاركة رقم 18 ولم ارى اى خطوات ايجابية وستملأ صفحات هذا الموضوع بالكثير من الكلام الجميل اعتقد ان نفتح صفحتان من دون هذه المشاركة ويكون لهما اسمان مختلفان يدلان على المواضيع بداخلها "الصفحة الاولى" ------------- وتتبنى الافكار والشروحات وما الى ذلك بحيث تطرح فكرة معينة او موضوع معين ولا ننتقل الى موضوع اخر الا بالانتهاء من تفنيد وتحليل جميع جوانبه من حيث التطبيق بالمعادلات ثم الانتقال للتطبيق بالاكواد التى تعمل عمل المعادلات واقترح ان يكون الموضوع الاول عن " drop down" وال "combo box" التى صال وجال بها العالم الجليل "خبور ادام الله عليه نعمة العطاء " لما لهما من احتياجات ونتائج خطيرة "الصفحة الثانية" ---------------- ستكون ان شاء الله صفحة المشروعات "الوليدة والتى فى دور الحضانة" وسنحتضنها جميعا بكل ما نملك من افكار حتى تصبح شابه مترعرعة بما يجود الله علينا من علم وافكار فى انتظار ان شاء اول صفحة لاضع بها اول موضوع لى وهو موضوع المرتبات التى تعمل به ادارتى منذ عامان ووللاسف الان الموضوع " قديم جدا بالنسبة لى حتى الان لم اطور فيه اى شئ لان القائميت على العمل به قانعين به بالفعل " ولكنى اتمنى تطويرة . فى انتظار اول موضوع ابوعبدالله تقبلوا جميعا تحياتى

السلام عليكم =========== الم اقل لك ابو عبدالله انك داخل نفوسنا وتقرأ ما بها فعلا افتقدنا تواجده اللهم اقضى حاجته

السلام عليكم =========== اضافة الى حل اخى يحيى اليك اخى هذا الحل عن طريق دالة SUM " الدالة المستخدمة غالبا فى الجمع باستمرار" جمع بشرط.rar

السلام عليكم =========== اخى العزيز استخدم الدالة SUMPRODUCT