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

السلام عليكم اخي ابو ريان هل يمكن ان تستبدل اسماء الصفحات وتجعلها ارقام متسلسلة مثلاً ان كان الجواب نعم فيمكن الاستغناء عن تعريف AA BB CC ....الخ واستعمال الدالة INDIRECT لتعريف نطاق معين وسيسهل التعديل ويصبح بإمكانك السحب ليتطبق على الخلايا الاخرى في الوقت الحالي انا اقوم بالتعديل خلية خلية ابواحمد

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

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

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

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

اخي الفاضل جرب المرفق بعد التعديل عليه ان شاء الله هذا هو ما طلبت ابواحمد الاجازات.rar

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

اخي الفاضل كما قلت لك تم استعمال الدالة SUMPRODUCT وهي دالة تجميع بعدة شروط كما تم استعمال تعاريف المدى متل rng و rng1 و rng2 حيث يعني rng = المدى من A 2:A9 و هو مدى الشرط الاول فإذا كان مطابق للشرط ترجع القيمة True و rng1 = المدى من B2:B9 هو مدى الشرط الثاني بينما rng3 هو مدى ما يتم تجميعه في حال تحقق الشرطين =SUMPRODUCT((rng=$B$5)*(rng1=C4)*(rng2)) ان شاء الله الشرح مفهوم للعلم يمكنك بدل من كتابة rng ان تكتب المدى بالصورة العادية لتصبح المعادلة =SUMPRODUCT((a!$A$2:$A$9=$B$5)*(a!$B$2:$B$9=C4)*(a!$C$2:$C$9)) جرب وضع هذه المعادلة في الخلية C5 ولاحظ النتيجة

اخي الفاضل ارفق ملف فيه تصورك للمطلوب وكذلك النتيجة المرجوة وستجد الحل بإذن الله فأنت في أوفيسنا ابواحمد

اخي الفاضل الخطاء الحاصل عندك هو في اسماء المدارس ففي شيت data اسم المدرسة المشير وفي الشرط بتاع التصفية المتقدمة اسم المدرسة المشير احمد اسماعيل تم عمل تعديلات جمالية على المرفق بحيث تم نقل الشرط الى الخانة D وكذلك الزر كما تم جعل المدى بتاع عمر الكود مرن جرب المرفق وابلغني بالنتيجة. ابواحمد ff.rar

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

اخي ابو ريان تفضل الملف الذي حاولت ولاكن النتيجة ليست المطلوبة (حسب طلبك) ابواحمد الحركة العامة 1للمستأجرين.rar

ان شاء الله انتظر المرفق اليوم فانا الان في العمل والملف في كمبيوتر البيت الى لقاء قريب بإذن الله ابواحمد

انا عن نفسي ادخل في بعض الاحيان لتصفح المنتدى عن طريق هاتف البلاك بيري (BlackBerry) نتيجة ممتازة كتصفح وردود كتابية ابواحمد

اخي الفاضل بالاضافة الى حل استاذي احمد زمان (حفظه الله) جرب الرابط ففيه درة من درر مآسة المنتدى الاستاذ محمد صالح (حفظه الله) الرابط ابواحمد

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

بارك الله فيك اخي تومي على هذا التوضيح ابواحمد

الحمدلله ان كان هذا طلبك والله يسلمك ويجزيك كل خير وهذا واجبي ابواحمد

ابو الحارث أكثرت علينا مجاملات ومديح وجعلتني احسبك تخاطب شخص اخر ما هذا الا بعض ما عندكم ونحن ننهل منكم التواضع والمحبة والاخلاق الحميدة شكراً لك ابواحمد

اخي طاهر الكود لا يقوم بالتثبيت وانما يقوم بنقل البيانات الموجودة في الورقة الاولى دو التأثير في الخلايا الصفراء في الورقة الثانية لانه لا يقوم بنقلها ف ارفقت لك ملف جربه فيه هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) LR = Range("L" & Rows.Count).End(xlUp).Row For Each cl In Range("L2:L" & LR) If cl.Value <> "" Then Cells(cl.Row, 3).Value = cl.Value End If Next cl End Sub المرفق فيه تقوم بوضع المعلومات المثبته في العمود L لاي صف لا يهم وبعدها قم بلصق اي بيانات منسوخة من أي ملف ولاحظ النتيجة ان شاء الله هذا ما تقصده ابواحمد عبدالله المجرب2011.rar

الاستاذ الفاضل / جمال دغيدي عمل مميز وابداع متواصل سلمت يمينك ابو محمد ابواحمد

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

اخي طاهر بعد اذن ابو الحارث جرب المرفق واخبرني بالنتيجة ابواحمد عبدالله المجرب2011.rar

اخي الفاضل يمكنك إخفاء العمود (فلا يظهر في الطباعة ولاكنه يبقى في ورقة العمل) ولعمل ذلك اختر العمود الذي تريد اخفاءه ثم كليك يمين واختر إخفاء ولن يظهر في الطباعة ويمكنك اعادة اظهاره بنفس الطريقة (ظلل العمود الذي قبله والذي بعده ) ثم اختر اظهار ابواحمد

بعد اذن اخواني الكرام (ابو نصار و دغيدي) جرب المرفق تم التعديل في كود زر التعديل وفقاً لعدد الاعمدة الموجودة كما تم اغلاق خلية اسم المستاجر عن التعديل لاحظ ان ارقام تسلسل التكستات بوكس تبداء من الرقم 3 جرب واعلمني بالنتيجة نموذج ادخال تجريبي.rar