هشام شلبى

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

السلام عليكم ======== اخى قصى اهلا بك ماذا تقصد سأرفق لك ملف اذا كان هو قصدك سأقوم بشرحه لك تقبل تحياتى New ورقة عمل Microsoft Excel.rar

السلام عليكم ======== اخى صاحب المشاركة الملف به كثيرا من الاخطاء وجب على ذكرها للمصلحة العامة من الواضح ان من كتب هذا الملف لم يكن يعلم ان الوقت قد يشاء لتدخل معادلات واكواد الاكسيل من هذه الاخطاء مثلا ما يعوق من دقة عملية الفرز " اذا قبل الملف اساسا الفرز" 1) ترك اعمدة فارغة وصفوف كثيرة بدون داعى 2) عند كتابة الاسماء وقبل البدء اخذ المسافات يعوق عملية الفرز 3) كتابة الاسم باللغة الانجليزية وبجانبه كلمة باللغة العربية مما يعوق دقة عملية الفرز 4) عمل دمج للخلايا بدون داعى فى بعض الاحيان وجب على للامانة ذكر الاشياء السابقة حتى يتمكن صاحب المشاركة من تلافى هذه الاخطاء مستقبلا وعموما ------ ادركت لك ملفين احدهما لطريقة استخدام الفرز فى الملف باكثر من طريقة . والملف الاخر هو ملف الاكسيل المطلوب . وفقنا الله ووفقكم الى ما يحبه ويرضاه تقبل تحياتى شرح.rar فرز طبيب HH.rar

السلام عليكم =========== اخى العزيز hussien2222 شاهد المرفق واى طلب ستجدنا ان شاء الله "جمييييييييييييييييييييييييييييييعا" فى خدمتك تقبل تحياتى تعديل.rar

السلام عليكم =========== اخى العزيز ابو محمد محاولتك ناجحة " واتمنى ان اراك فى كل المشاركات" والى مزيد من التفدم ان شاء الله تحياتى شرح الخروجCommandButton.rar

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

السلام عليكم =========== الاخ ابو محمد موفق ان شاء الله الاخ tahar1983 شاهد المرفق واجهة برنامج.rar

السلام عليكم =========== اخى hussien2222 "بارك الله فيك" حدد الصفحة من اول صف يحتوى على اسم الطالب ثم - كليك يمين - ارتفاع الصف - قم بزيادة الرقم الى ان تصل الى ان تكون الصفحة بها 16

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

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

السلام عليكم ======== اخىkemas الامر Resize(1, 110).Copy يجعل الكود يمر على كل صف "من العمود الاول الى العمود 110" وينسخ البيانات التى تحقق الشرط فى العمود 107 وتعمل له " لصق خاص " فى الصفحة المسماه بنفس الشرط المتحقق فى العمود 107" ولا يتأثر النسخ باختلاف ناحية اللصق عن النسخ ولا يتاثر بتعير الحجم" باختصار الخلايا التى تنسخ من العمود الاول الى العمود 110 وشرط التحقق موجود فى العمود 107 قريبا جدا سأرفق لك ملف خاص به كود بفيد بعمل الامر Resize وسيكون بعيدا عن الترحيل تمام سيوضح لك تماما الفائدة الكبرى لهذا الامر فى حالات النسخ واللصق تقبل تحياتى واحترامى

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

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

السلام عليكم ========== شاهد المرفق مرات فتح.rar

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

السلام عليكم ======== اخى العزيز kemas الامر Range("A" & R).Resize(1, 110).Copy ستجده مكرر فى 3 اوامر النسخ الموجودة بالكود وذلك لضمان اللصق مع اختلاف ناحية اللصق بالحجم بالشيت المنسوخ اليه اتمنى ان اكون وضحت المفهوم من معنى الامر Resize اى تغير الحجم

السلام عليكم ======== اخى العزيز سالم شباني اولا وليس اخرا اشكرك على كلامك الرقيق العذب ثانيا سلامى الى اخى العالى بن عليه اذا كان عندك وسيلة اتصال به للاطمئنان عليه " فكم افتقد هذا الرجل كثيرا " ثالثا هذا هو اساس الكود والذى كما ترى عبارة عن 4 اسطر فقط Private Sub Worksheet_Change(ByVal Target As Range) Select Case Range("A1").Value Case Is = 1 Range("B1").Value = "خبور خير" End Select End Sub ثم قمت انا بنسخ السطر الثالث والرابع لاكثر من 24 مرة ويمكن زيادتها ومن هنا تستطيع وضع الاسماء التى تريدها " افتح الكود فى صفحة الاكواد واطلع على الكود تقبل تحياتى

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

السلام عليكم ======== الاخ سعد شاهد المرفق مرتبات الجديد بعد التعديل.rar

السلام عليكم ======== هل تريد ذلك مكان الرقم فى ضفحة الترحيل ام ماذا واذا كان سيكون الاسم مكان رقم العامل ويكون مكان الاسم رقم العامل هل هذا ما تريد

السلام عليكم ======== اخى جلال هذا من كرم اخلاقك

السلام عليكم ======== بعد اذن اخى احمد الاخ الكريم عملت لك فى الخلية D10 قائمة منسدلة تختار منها ارقام العمال " وذلك للتسهيل " اما بالنسبة للحماية " رقم فك الحماية 123" كما طلبت انت اما بالنسبة لاختفاء البيانات بعد الترحيل فيجب اضافة السطر الاتى لاخر الكود [f11:f14].ClearContents Range("d10").Select On Error GoTo 0 End Sub اما بالنسبة لكتابة العدد 2 يظهر فى الترحيل 900 فيجب استبدال السطر Cells(r, 7) = Cells(10, 6) بالسطر Cells(r, 7) = Cells(11, 6) وشاهد المرفق ان شاء الله تظبط معاك تقبل تحياتى لك ولاستاذى " احمد يعقوب" مرتبات الجديد بعد التعديل.rar

السلام عليكم ======== اخى فى البرنامج لم اضع كلمة سر لفك الكتشنة فقط اضغط موافق اما فى ملف الاستاذ دغيدى كلمة السر اعتقدhh

السلام عليكم ======== اخى العالى " احمد يعقوب " والله كود ما شاء الله لكن ينفصه سطر صغير ليعمل بنجاح علينا استبدال السطر msg box " الحمد لله - تم نقل البيانات بنجاح" 9 بالسطر MsgBox "تم نقل البيانات بنجاح", vbMsgBoxRight, "الحمد لله" 9 شاهد المرفق مرتبات الجديد بعد التعديل.rar