mhareek

اخوانى الاحباب عندى قاعدة بينات كبير بدلالة الارقام لكل حساب ارجو شرح طريقة عمل الفلتر المتقدم لاستخراج كشف حساب معين بدلالة رقم الحساب advanced filter ولكم جزيل الشكر اخوانى الاحباب

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

السلام عليكم ورحمة الله وبركاتة اخى الحبييب استعمل هذا الكود وسوف تعمل معة الاكواد بالتوفيق والله المستعان Sub Rectangle99_Click() MyPassword = "123" Sheets("eny").Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True End Sub انا استعملة والاكود تعمل عادى

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

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

رائع واكثر من رائع اخى الحبييب ابو اسامة بوركت بالفعل عمل متقن سلمت وبارك الله فيك اخى الحبييب جعلك الله من انفع الناس للناس وجعلها الله فى ميزان حسناتك جزاك الله خيرا اخى الحبييب ملحوظة بسيطة لو بدات برقم 1290 مثلا فى او خانة ثم اكملت الترقيم لا يعمل الكود ويعطى لاتوجد ارقام ناقصة يعنى لو a1 = 1290 a2=1291 وهكذا لايعمل الكود لو كان هناك رقم ناقص وليكون 1298 يعطى رسالة لايوجد ارقام مفقودة ارجو اخى الحبييب التعديل وجزاك الله خيرا

[جميل جدا اخى الحبييب رائع والله ومشكور لتجاوبك اخى الحبييب جعلة الله فى ميزان حسناتك ملحوظة اخى الحبييب لو كتبت ارقام من 1 الى 100 مثلا بالفعل انة يبين الناقص بينهم ولكنة يكمل باقى الارقام حتى 1000 على اساس انها مفقودة مع العلم انى لم اصل اليها فى العد وبالتالى كل مرة يجب الدخول للكود وتعديل المدى فلو امكن تعدي المدى اوتو ماتك بدون الاظطرار للدخول كل مرة للكود وايضا اخى الحبييب الترقيم يبدا من 1 , 2 وهكذا ولكنى اريد ابدا من اى رقم ويعلو مثلا 1290 , 1291وهكذا والبتالى اريد ان يكون هناك طريقة لتعديل بداية الترقيم جزاك الله خيرا بارك الله فيك اخى الغالى العدالة

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

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

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

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

للرفع

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

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

مشكور اخى حنا ولكن طلبى يختلف فانا اقصد ان كان هناك عمود بة ارقام متسلسلة من 1 الى 1000 مثلا ولكن بينهم ارقام مفقودة لم توضع مثلا 556 اريد الكود يخبرنى ان الرقم 556 غير موجود بالتسلسل ويجب ادراجة ولكم جزيل الشكر

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

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

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

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

احبائى عند كتابة الكود بهذة الطريق اجد انها متعبة فهل هناك طريقة اخرى لكتابة الكود ليعطى نفس الطريقة ولكن المطلوب ان احدد لة لو ان الخانة 6 فى العمود a = ؟ والخانة 6 فى العمود b =؟ فان الرسالة تكون "" اى بدل ان احدد خانة خانة اريد ان عمود وعمود ومن داخلة الخانات ارجو ان اكون وصلت ما اريد ..... وهذا هو كود او بمعنى ادق هل يمكن اختصار كل تلك السطور فى سطر واحد كود Subfffff If Range("E11") + Range("d11") > 0 And Range("b11") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E12") + Range("d12") > 0 And Range("b12") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E13") + Range("d13") > 0 And Range("b13") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E14") + Range("d14") > 0 And Range("b14") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E15") + Range("d15") > 0 And Range("b15") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E16") + Range("d16") > 0 And Range("b16") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E17") + Range("d17") > 0 And Range("b17") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E18") + Range("d18") > 0 And Range("b18") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E19") + Range("d19") > 0 And Range("b19") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E20") + Range("d20") > 0 And Range("b20") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E21") + Range("d21") > 0 And Range("b21") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E22") + Range("d22") > 0 And Range("b22") = 0 Then MsgBox "انتبة......؟م تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E23") + Range("d23") > 0 And Range("b23") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E24") + Range("d24") > 0 And Range("b24") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E25") + Range("d25") > 0 And Range("b25") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E26") + Range("d26") > 0 And Range("b26") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E27") + Range("d27") > 0 And Range("b27") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E28") + Range("d28") > 0 And Range("b28") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E29") + Range("d29") > 0 And Range("b29") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E30") + Range("d30") > 0 And Range("b30") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E31") + Range("d31") > 0 And Range("b31") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E32") + Range("d32") > 0 And Range("b32") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E33") + Range("d33") > 0 And Range("b33") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E34") + Range("d34") > 0 And Range("b34") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E35") + Range("d35") > 0 And Range("b35") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 If Range("E36") + Range("d36") > 0 And Range("b36") = 0 Then MsgBox "انتبة......؟لم تضع اسم الحساب", 524288, "اوفسينا": GoTo 1 1 End Sub وجزاكم الله خيرا

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

الف شكر اخى الحببييب

مششششششششششكور عمل رائع جعلة الله فى ميزان حسناتك

بارك الله فيكى اخى ابو تامر فعلا كلام مقنع والاهم هو ان الله هو الذى من وراء القصد بوركت اخى الحبيب واايد اقتراحك

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