الجموعي

السلام عليكم ورحمة الله تعالى وبركاته جمغه مباركة علينا وعليكم بارك الله فيك أستاذي رجب جاويش الله يجزيك كل الخير جعلها الله في موازين حسناتك ملاحظه عند إدخال تاريخ ميلاد في الشيت بهذا التنسيق "dd-mm-yyyy" وعند تشغيل الفورم النتائج لا تظهر جربت كتابة التاريخ كما هوم منسق في الشيت ولم تفلح نتيجة البحث هل من طريقة لحل هذه المشكلة هل من طريقة لإرغام التيكست بوس 1 إدخال الأرقام فقط وتكون تنسيقها على هذا الشكل أوفكره أخرى مثلا

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

شكرا وبارك الله فيك أخي إبراهيم على عمل المطلوب جزاك الله خيرا في إنتظار الأستاذ رجب جاويش للمطلوب السابق

بارك الله فيك أستاذي /رجب جاويش عند البحث بتاريخ الميلاد ويكون مكر تظهر أسماءالأشخاص الذين تواريخهم مكرره وعند إختيار واحدمنهم تظهر النتائج كاملة في التكيست بوكس نأتي للمشكله عند البحث ولا يكون تاريخ الميلاد مكرر النتائج لا تظهر كاملة في التيكست بوكس شاهد المرفق ملفات مرفقة 1111.rar 145.06كيلو 4 عدد مرات التحميل

شكرا وبارك الله فيك أخي إبراهيم على عمل المطلوب جزاك الله خيرا في إنتظار الأستاذ رجب جاويش للمطلوب السابق

بارك الله فيك أستاذي /رجب جاويش عند البحث بتاريخ الميلاد ويكون مكر تظهر أسماءالأشخاص الذين تواريخهم مكرره وعند إختيار واحدمنهم تظهر النتائج كاملة في التكيست بوكس نأتي للمشكله عند البحث ولا يكون تاريخ الميلاد مكرر النتائج لا تظهر كاملة في التيكست بوكس شاهد المرفق 1111.rar

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

أستاذي الفاضل بارك الله فيك نعم هذا ما طلبته قمت بنقل الاكواد لفورم أخر عملية البحث ممتازة لكن عند تكرار تاريخ الميلاد يظهر في اليست بوكس أرقام وليس أسماء ماهي المشكلة أخي؟ المرفقالبحث بتاريخ الميلاد ‫‬.rar

بارك الله فيك ستاذي رجب جاويش هل من طريقة للإستغناء عن الكمبوكس 2 وإستبداله ب تكست بوس لو افترضنا انه عندنا 1000 تاريخ ميلاد كلها ستظهر في الكمبوبوكس انا أريد كتابة التاريخ كاملا والبحث كما في المرفق السابق ثانيا في الكمبوبوس 1 عند إختيار الصفحة لا تتغير الصفحة تبقى في الصفحة 2010

up

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

أخي راجع الأكواد في المشاركة رقم 2 لقد قمت بتعديلها معذره عن ذاك الخطأ

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

Private Sub CommandButton1_Click() 'هذا للإنتقال لليوزر فورم2 Me.Hide UserForm2.Show End Sub Private Sub CommandButton1_Click() 'هذا للرجوع لليوزر فورم 1 Me.Hide UserForm1.Show End Sub ملاحظة مراعاة تسمية الفورم عند إدراج الكود

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

جزاك الله كل خير اخي الجموعي انت والاستاذ رجب جاويش ولكن الكود يقوم بنسخ المفتاح فوق المفتاح قف على المفتاح واحذفه سوف تجد انه يوجد مفتاح اخر تحته انا اضفت لك سطر جديد بالكود لحذف نفس المفتاح اذا كان موجود ثم طباعته كرة اخري Sub Macro1() On Error Resume Next ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Select Selection.Copy For i = 2 To Sheets.Count Sheets(i).Select ActiveSheet.Shapes.Range(Array("ÒÑ 10")).Delete Range("D2").Select ActiveSheet.Paste ActiveSheet.Shapes.se Next i Range("D2").Select End Sub ماشاء الله عليك أخي وليد فتحي تمكن من الأكواد جعلها الله في موازين حسناتك ربي يحفظك

للرفع

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

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

ماشاء الله شكرا أستاذي رجب جاويش على التعديل بارك الله فيك الله يعطيك العافية

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

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

تم إرفاق الملف

السلام عليكم ورحمة الله تعالى وبركاته إليكم كود الماكرو التالي Sub Macro1() ActiveSheet.Shapes.Range(Array("Button 10")).Select Selection.Copy Sheets("2005").Select Range("D2").Select ActiveSheet.Paste Range("D2").Select End Sub هذا الماكرو مرتبط بشيت 2005 وأنا أريده على كل الشيتات وبارك الله فيكم macro.rar

أخي إبراهيم شاكر مجهودك الجميل بارك الله فيك في إنتظار الخبراء