عاشق الاكسيل

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

اخى العزيز ياسر خليل اولا جمعة مباركة بمشيئة الله ثانيا لا يعرف الملل طريقا لى نهائيا ولكنى دائما اخشى ان اكون مصدر تعب او ملل لاخرين لكثرة الطلبات الكود يعمل بشكل ممتاز الخطا كان منى الان كل ما اريده هو كود لفصل بيانات كل ادارة على حدة بالاعتماد على العمود AH بمعنى اذا كان قيمة العمود AH (ادارة 1) يتم نقل كافة البيانات الموجودة وقيمة العمود ادارة 1 الى وررقة جديدة باسم ادارة 1 نفس فكرة ناجح وراسب ولكنى فشلت فى تطبيقها لكثرة الادارات

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

جربت الكود اخى العزيز ولكن دول جدوى

الترحيل من ورقة (يناير) الى ورقة (فبراير) الاعمدة المطلوب ترحيلها A-B-C-D-E-F-G-H-I-J-K-L-M-S-T-U-V-W-Y-Z-AA-AB-AC-AD-AH

اخى / ياسر خليل لا تعتذر عن كثرة التساؤلات فهذا حقك لكى تتضح الفكرة امامك اليك كامل التوضيح (الكمال لله عز وجل) هذا الشيت لحساب المرتبات المستحقة للعاملين بالمنشاة الاوراق الاتية سوف يتم ملاءها جميعا يدويا (اوراق الادخال) يناير - الخصومات - السلف كافة بيانات يناير مساوية لبيانات الاشهر جميعا عدا عمود الخصومات والسلف لانهم متغيرين من شهر الى اخر لذلك قمت بعمل ورقتين منفصلين ليتم قراءة البيانات منهم لذلك ما اريده عند حلول الشهر ارحل البيانات اليه من الشهر السابق لحساب المرتب المستحق ارجو ان تكون اضحت الفكرة والله الموفق وشكرا على مساعدتك

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

السلام عليكم ورحمة الله وبركاته طلبى اليوم هو التعديل على هذا الشات اتمنى من الله ان يساعدنى احد الاخوة وشكرا مقدما الى استاذ / ياسر خليل على كل ما قدمه لى من مساعدات المعطيات : 1-يتكون الملف من 15 ورقة عمل (12ورقة تمثل شهور السنة - ورقة للخصومات - ورقة للسف - نموذج الطباعة) مرفق المطلوب: 1- عمود الخصومات فى اول 12 ورقة يملاء تلقائيا من ورقة الخصومات 2- عمود السلف فى اول 12 ورقة يملاء تلقائيا من ورقة السلف 3-اذا كان هناك طريقة افضل لتعديل ورقة السلف بحيث اذا قمت بادخال قيمة السلفة وعدد الشهور وبداية شهر السلفة يقوم بحساب نصيب كل شهر ويضع قيمة كل شهر فى الخانة الخاصة به بمعنى (موظف 1 قام بعمل سلفة بمقدر 900 جنيه على 3 شهور بداية من شهر يناير يدخل الكود 300 جنيه امام شهر يناير و 300 امام شهر فبراير و300 امام شهر مارس) 4-كود طباعة بحيث يتم طباعة الادارة المختارة فقط بناء على عمود AH بمعنى (اذا قمت باختيار او كتابة او ما شابه ادارة 1 يقوم بتعبئة نموذج الطباعة بموظفين ادارة 1 فقط طبقا لترتيبهم فى ورقة الشهر) فى انتظار مساعدة الاخوة وشكرا للجميع مرتبات.rar

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

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

السلام عليكم ورحمة الله وبركاته اثناء بحثى وجدت هذا الكود لادخال الوقت والتاريخ فى حالة ادخال قيمة فى الخلية اريد من الاخوة الكرام التعديل عليه بحيث يتم ادخال اسم الجهاز المستخدم فى عمود اخر مع امكانية تقعيل هذا الكود على صفحة معينة او على كافة صفحات العمل وشكرا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then VBA.Calendar = vbCalHijri ' اذا كنت تريد التاريخ هجري 'VBA.Calendar = vbCalGreg ' إذا كنت تريد التاريخ ميلادي With Target(1, 4) ' العمود الاول والعمود المراد كتابة التاريخ والوقت فيه '.NumberFormat = "[$-1010000]yyyy/mm/dd;@" ' إذا كنت تريد التاريخ ميلادي .NumberFormat = "[$-2060000]B2yyyy/mm/dd;@" ' اذا كنت تريد التاريخ هجري .Value = Date & " _ " & Time ' يظهر التاريخ مع الوقت .EntireColumn.AutoFit ' توسيع العمود بقدر كبر التاريخ والوقت End With End If End Sub

أخى العزيز / محمد عبد المولى بخصوص الطلب الاول : حساب عدد الايام يمكنك ذلك باستخدام معادلة Datedif =DATEDIF(A1,A2,"d") بحيث ان A1 تمثل تاريخ بدء العمل , A2 تمثل تاريخ الانتهاء "d" تعنى فرق الايام اختصار day بخصوص الطلب الثانى : عدم تكرار الاسماء يمكنك ذلك من خلال استخدام Data Validation من تبويب Data وهذا الفيديو يوضح الخطوات بخصوص الطلب الثالث برجاء توضيح المطلوب اكثر ويفضل ارفاق ملف العمل للعمل عليه

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

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

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

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

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

للرفع فى انتظار مساعدة الاخوة

السلام عليكم ورحمة الله وبركاته لدى طلب ان شاء الله بسيط ويستطيع احدالاخوة مساعدتى المعطيات: لدى ورقة عمل تحتوى على صفحتن "tax" , "tax41" بكل صفحة جدول ولكن غير متشابهين فى التقسيم (عدد الاعمدة والصفوف غير متشابه) المطلوب : كود ترحيل عل سبيل المثال اول عمود فى الجدول من صفحة "tax" الى العمود الثانى فى الجدول من صفحة "tax41" وثان عمود فى الجدول من صفحة "tax" الى العمود الرابع فى الجدول من صفحة "tax41" وثالث عمود فى الجدول من صفحة "tax" الى العمود الخامس فى الجدول من صفحة "tax41" ورابع عمود فى الجدول من صفحة "tax" الى العمود السادس فى الجدول من صفحة "tax41" مع تحديد نطاق الجدول فى الصفحة الاولى والثانية فى كود الترحيل تم ارفاق مثال exeg.rar