الصـقر

اخى الكريم بكار

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

يعنى كل ما تدخل قسط عميل فى الصف 2 من الشيت 2 ثم يتم ترحيله ومن ثم مسح المحتويات فى الصف وبكدا تقدر تدخل بيانات عميل اخر فى نفس الصف فهل هذا ما تريده

بخصوص طلبك الثانى اللى اعرفه انه لا يوجد اى قوائم فى الشيت 1 علشان تسحبها ؟؟ 

مفيش اى مشكله بالكود لو عدد العملاء فى الشيت 1 مليون عادى الكود سوف يتم تنفيذه فى لمح البصر 

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

تقبل تحياتى

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

المشكله ان هناك اكواد لا تعمل الا على 2007 

جرب تسطب 2007 وهيشتغل معاك وراح تدعيلى

تقبل تحياتى

استاذى الحبيب ابويوسف

الاصل فى الشيت 1 أن العميل بيتم تسجيله مره واحده وليس من المنطق انه يكون مكرر واذا كان ولابد من تكراره فلازم من تغير الاسم فى المره الثانيه بشئ مميز

مثلا محمد حسن المحمد ( قسط تلفزيون)

     محمد حسن المحمد ( قسط سياره )  مبروك السياره والتلفزيون يا ابويوسف 

يعنى الخلاصه انه من الطبيعى والغير منطقى تكرار الاسم

تقبل تحياتى

استاذى الحبيب ابويوسف

مشاركتك دائما تعطر مشاركاتى بالورد 

جزاكم الله خيرا 

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

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

جرب وعلمنى بالنتائج

تقبل تحياتى

الاخ الحبيب بكار

أولا عايز اشكرك على طلبك هذا لانه بصراحه فنى وكتير ممكن نستخدمه فى الحياه العمليه

المهم علشان مطولش عليك انا عملت كود من اهم الاكود اللى عملتها فى حياتى ودا بالنسبه لى مش هنساه لانه صعب يتنسى الكود بسيط فى تنفيذه ولكن فكرته هى الفنيه

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

جرب المرفق وان شاء الله هيعجبك

ولا تنسانى من صالح دعائك

تقبل تحياتى

2015.zip

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

Sub mash()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    Range("h9:j34").ClearContents
   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True
End Sub

تقبل تحياتى

اخى الكريم كاسر الامواج والاخ الكريم صالح

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

عند التعديل سيطلب رقم سرى وهو 123 ويمكنك تغييره ان شئت من خلال هذا السطر بالكود

x = "123"

تقبلوا تحياتى

Book1.zip

اخى الكريم ابوراكان العوده

جزاكم الله خيرا على هذا الرابط

بالفعل الاخت الفاضله ساجده العزاوى مبدعه واسلوب الشرح ولا اروع صراحه

كم اتمنى تكون معنا فى جامعه اوفيسنا لنستفيد منها  

وايضا المبدع الاستاذ محمود حموده

والمبدع الاستاذ محمد جاد الله

تقبل تحياتى

وعليكم السلام ورحمة الله اخى الكريم ابا الحسن

مرورك على الموضوع هو الاروع والاجمل

جزاكم الله خيرا

تقبل تحياتى

الغالى ابو يوسف

جزاكم الله خيرا دائما ما تعطر المشاركات بتعليقاتك 

تقبل تحياتى

نفضل اخى الكريم

الملف المرفق الحل بالمعادلات اختر الموقع من الخليه D1

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

تقبل تحياتى

اظهار بيان مواد.zip

اخى وحبيبى عبدالعزيز 

الاروع والاجمال مرورك العطر 

تقبل تحياتى

اخى الكريم اجعل امتداد الملف Xlsb

تفضل اخى الكريم الملف المرفق 

من فضلك غير اسم الظهور للغه العربيه طبقا لقواعد المنتدى

تقبل تحياتى

الصادر.zip

الاخ الكريم

فى شيت البحث والاستعلام فى العمود B  الاسماء الموجوده هى مزيج من اسماء الام والاب فى شيت البيانات 

فلما حضرتك تضغط دبل كليك فى اليست ويكون ام مره او يكون اب كيف لى ان اقوم بعملية البحث فى حين ان الاب فى العمود B  والام فى العمود L  

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

فأنا اختصارا للوقت بعتذر منك

وان شاء الله يساعدك احد الاساتذه بالمنتدى

تقبل تحياتى

تفضل الملف المرفق

اجازات2.zip

نعم

Me.PrintForm

دعوه بظهر الغيب

تقبل تحياتى

اخى الكريم هل ما تقصده هو عند البحث عن رقم 1 مثلا

سوف يظهر كل ارقام الاسر التى تحتوى على 1 ومنها 10 & 11 & 12 & 1 

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

هل هذا قصدك

تقبل تحياتى

اخى الحبيب مفيش داعى للاعتذار انا تحت امرك

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

وبخصوص الطلب الثانى انا لم ارى فى الملف المرفق هيبر لينك ولا صوره ؟؟؟؟ هل هناك ملف اخر غير هذا تعمل عليه أم ماذا ؟؟

تقبل تحياتى

تفضل اخى الكريم 

شاهد المرفق هل هو طلبك

تقبل تحياتى

عملية الدفع.zip

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

حاول تعطينى شكل للنتائج التى ترغب بها

تقبل تحياتى

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

وبخصوص رقم 2 لم افهم جيدا ما تريد 

تقبل تحياتى

اخى الكريم جرب المرفق هل هو طلبك 

ملحوظه المعادلات فيها خطأ والخطا ناتج عن وجود معادله بالملف الاصلى لم يتم ارفاقها هنا صح ؟؟ اللى هى تاريخ الميلاد 

عموما شاهد المرفق وبانتظار رائيك

تقبل تحياتى

اجازات2.zip

ويت الاجابه عن استفسارى يا غالى ما هو معيار البحث