فريدة العصر

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

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

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

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

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

السلام عليكم لدى جدول بيانات به عدد كبير من الصفوف وهو عدد متغير قابل للحذف والإضافة وبه معادلات ونطاقه A1 :T وأريد كود يقوم بتصفير جميع بيانات الجدول وحذف الصفوف مع الاحتفاظ بالمعادلات بحيث يسمح عند الادخال من جديد عن طريق الفورم بالتسجيل فى أول صف وهو الخليةA2 حيث اننى عند تجربة تسجيل كود الحذف يبدأ عند التسجيل يتخطى الصف الاول وكأنه ممتلئ بالبيانات وشكرا لحضراتكم على استجابتكم المتوقعة كود تصفير الجدول.xlsb

أساتذة الأفاضل عندما وضعت الكود فى موديل ونفذته داخل الصفحة نفذ على الخلية بالضبط ولكن توقف الاكسيل عن العمل (Xlsp ( not responding. هل بسبب عدم تحديد نطاق معين لتطبيق الكود ام ما هو السبب اتمن أن ينفذ الكود على الخلايا G عند وجود بيانات فى الخلايا E وH فقط لان الكود يقوم بحساب جميع خلايا العمود G فيتوقف عن العمل كما أعتقد

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

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

أساتذة المنتدى الكرام لدى جدول بيانات منسق يدويا نطاقه من الصفوف كبير ومرتبط بيوزرفورم ادخال بيانات إليه واريد معرفة التنسيق الذى يسمح لى بإدخال البيانات يدويا عند الرغبة وفى نفس الوقت عند استخدام الفورم يتم الإضافة بعد آخر صف قمت بتسجيله يدويا لأنى عندما اقوم بالتسجيل بالفورم فإنه يتم ترحيل البيانات بعد انتهاء آخر صف فى الجدول متخطيا صفوف فارغة مشاركة مكررة ..... تــم بالفعل حذف المشاركة الأخرى بيانات طلاب.xlsm

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

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

الأستاذ الكبير -سليم-حاصبيا/ أعتذر عن تأخرى فى متابعة حضرتك بسبب ظروف عملى طوال النهار أحيانا يختلف ترتيب الأعمدة المطلوب من جهة الادارة العليا ونضطر لنسخ الأعمدة الواحد يلى الأخر ولصقه فى صفحة جديدة حسب الترتيب المطلوب فهل يمكن ترحيل وإظهار أعمدة الجدول من صفحة لأخرى بترتيب حسب رقم عمود يتم تحديده مسبقا فى الفورم ويختلف مكانه كل مرة حسب الرقم المحدد ترحيل اعمدة الى أخرى بتحديد رقم العمود المرحل والمرحل إليه.xlsb

سليم-حاصبيا طيب كده حضرتك هاتخلينى أسأل السؤال الأكبر وهو بعيدا عن فورم الادخال وتحديد الترحيل لأعمدة محددة هل يمكن فى الجدول محل المناقشة ترتيب الأعمدة حسب رقم يكتب أمام كل ليبول فى فورم يحدد ترتيب العمود ثم عودة الترتيب كما كان عليه بزر أخر ( مثلا العمود الخامس يكون الثالث والسادس يكون الرابع Fathi_User.xlsb

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

شكرا جزيلا وبارك الله فى علمك ونفعك وإيانا به وبارك فى عملك ونفعك به يوم لا ينفع مال ولا بنون

الاستاذ / سليم-حاصبيا بخصوص اخفاء واظهار اعمدة جدول معذرة . عندما طبقت الملف على الملف الخاص بى ويحتوى على حوالى 30 عمود يتم تنفيذ الأمر على 25 عمود ويتوقف أمر الاظهار أو الاخفاء وتبقى الأعمدة ظاهرة أرجو توضيح السبب فى ذلك وقد حاولت لكن لم أتمكن المصنف2.xlsb

الاستاذ / سليم-حاصبيا بخصوص اخفاء واظهار اعمدة جدول معذرة . عندما طبقت الملف على الملف الخاص بى ويحتوى على حوالى 30 عمود يتم تنفيذ الأمر على 25 عمود ويتوقف أمر الاظهار أو الاخفاء وتبقى الأعمدة ظاهرة أرجو توضيح السبب فى ذلك وقد حاولت لكن لم أتمكن المصنف2.xlsb

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

السادة الافاضل اساتذة المنتدى الكرام مرفق ملف يحوى جدول ويوزرفورم يحتوى رؤوس الاعمدة وامامها مربعات اختيار ارجو المساعدة فى شرح كيفية ربط مربع الاختيار بالفورم بالعمود المقابل له بالجدول بحيث عند تحديده يتم اظهار العمود وعدم التحديد يتم اخفاؤه حتى يتسنى تطبيق ذلك على جدول كبير عند الطباعة واختيار الاعمدة المراد طباعتها حسب الحاجة وأكون ممتن وشاكر حضراتكم اظهار واخفاء اعمدة.xlsb

الاستاذ / moneer-saad فى انتظار رأى حضرتك وملاحظاتك

https://www.mediafire.com/file/96rbmghicqmyelb/file

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

شكرا استاذى / ابراهيم-الحداد

ما المقصود بالمتغير Lab.Caption = .Cells(ii, 3).Row فى كود البحث للاستاذ / مجدى يونس حيث اننى عند تطبيقه يعطينى رسالة ( متغير غير معرف ) If Me.TextBox4.Value = "" Then Exit Sub Set Sh = Sheets("ورقة1") With Sh Me.TextBox1.Value = "": Me.TextBox2.Value = "": Me.TextBox3.Value = "" Last = .Range("A" & Rows.Count).End(xlUp).Row For ii = 1 To Last If LCase(CStr(.Cells(ii, 1).Value)) = LCase(CStr(TextBox4.Value)) Then ' TextBox1.Value = .Cells(ii, 1).Value TextBox2.Value = .Cells(ii, 2).Value TextBox3.Value = .Cells(ii, 3).Value Lab.Caption = .Cells(ii, 3).Row CommandButton3.Enabled = True: CommandButton2.Enabled = True: CommandButton1.Enabled = False End If Next ii End With If Me.TextBox1.Value = "" Then MsgBox "This Name Does Not Exist", vbExclamation, "Search" CommandButton3.Enabled = False: Lab.Caption = "": CommandButton2.Enabled = False: CommandButton1.Enabled = True End If End Sub