۩◊۩ أبو حنين ۩◊۩

الاخ الكريم ابراهيم ابو ليلة وجت كود من عملك ايضا وقام بالمهمة المرجوة جزاك الله خيرا ()Private Sub Worksheet_Activate Range("A4") = ActiveSheet.Name End Sub

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

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

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

الاخ العزيز حسام عيسى سلمت يداك بكل خير اجدك دائما عون للجميع

السلام عليكم الاخ ابوعيد جزاك الله خيرا عند تنفيذ الكود تظهر رساله خطاء r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 لماذا بعد عدده محاولات عند اضافه الرقم 66 فقط تظهر هذه الرساله لاكن الامر تم بصوره جيده جدا اسال الله عز وجل ان يجعلة فى ميزان حسناتك ويقدر لك كل الخير

السلام عليكم الاخوة الكرام ارجوالمساعده فى ضبط معادلة VLOOKUP حيت ان مصدر عملها بالملف الخليه F1 والتى بها معادله لجلب اسم الشيت ... واسم الشيت هو رقم الموظف الذى تقوم على اساسة معادلة VLOOKUP طلب اخر يوجد كود بالملف من ضنع الاخ الكريم ابوعيد جزاه الله كل الخير وهو كود ترحيل ويطلب الكود هل تريد مسح البيانات القديمة عند الترحيل اريد الاستغناء عن تلك الشاشه التى يطلب بها هذا الطلب جزام الله كل الخير TIST.rar

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

السلام عليكم الاخ الكريم ضاحى الغريب سلمت يداك بكل خير هلى يمكن اضافة بحيث يظهر فى خلية اسم المستخدم الحالى ووقت الدخول ووقت الخروح من البرنامج جزاك الله كل الخير

اخى الكريم ابو عيد اريد الغاء ظهور هل تريد مسح البيانات القديمه وعدم تفعيلها لان النفترض ان شبن كل شخص يحتفظ بحركى العلاج لمده عام او اكثر

السلام عليكم الاخ الكريم ابو عيد اولا سلمت يداك بكل خير كود فوق الرائع واسال الله عز وجل ان يجعلة فى ميزان حسناتك اخى الكريم ابو عيد عند تكرار الترحيل مثال ترحيل علاج لرقم 134 اكثر من مره يتم مسح القديم ويبقى اخر شئ مرحل اريد الغاء هل تريد مسح البيانات القديمة و تظهر رساله خطاء اثناء عمل الكود وذلك عند اضافه اكثر من شيت ليسو موجودين من قبل اى عند كتابة 160 و161 ولم يكونا موجودين من قيل يتم اضافة شيت واحد فقط وتظهر الرسالة هل من حل لذلك r = Sheets(Range("a" & t).Text).[b1000].End(xlUp).Row + 1 جزاك الله بكل الخير

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

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

السلام عليكم الاخوة الكرام ارجو المساعده فى عمل كود ترحيل على اساس متغيرين 1- فى شيت TRANSEالعمود B به اسم الشيت المراد الترحيل اليه 2- اذا احتوى العمود C على كلمه نهار يتم الترحيل ابتداء من العمود D الى H الى الشيت المراد ابتداء من الخليه B الى F 3- واذا كان محتوى الخلية C كلمه ليل يتم الترحيل ابتداء من العمود D الى H الى الشيت المراد ابتداء من الخليه H الى K ويتم مسح البيانات اذا تم الترحيل من الشيت الاصلى ارجو ان اكون اوضحت الامر ملحوطة اذا لم يتفق الرقم المكتوب فى العمود B واسم الشيت تظهر رساله بان اسم الشيت غير موجود جزاكم الله كل الخير Book1.rar

السلام عليكم الاخ الكريم احمد زمان اولا اشكرك على الكود الذى قمت بع من اجلى واسالك سعة صدرك معى حيث يوجد اضاقات ارجو تحقيقها يتم الترحيل من شيت transe على اساس اسم الشيت الذى بالعمود A ا عند ما يكون العمود B فى شيت transe يحتوى على كلمة Family يتم ترحيل الاعمده C الى B الى الشيت الذى اسمه موجود فى العمود A فى شيت transe D الى C E الى D F الى E ابتداء من الصف رقم 19 وعند ما يكون العمود B فى شيت transe يحتوى على كلمة Personal يتم ترحيل الاعمده C الى H الى الشيت الذى اسمه موجود فى العمود A فى شيت transe E الى I F الى J ابتداء من الصف رقم 6 مع مسح المدخلات فى العمود D & E & F فى شيت transe بعد الترحيل الدعم الفنى كلمه السر 1111 فك حماية الشيتات 1111 علاج حقول طارق.rar

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

السلام عليكم الاخ الكريم احمد جزاك الله خيرا على وقتك ومجهودك معى اخى الحبيب حاولت تكرار الكود ( اضافة كود جديد للعلاج الشخصى )على اساس ان اسم الشيت المراد الترحيل اليه سوف ستم ادخالة فى العمود N ويتم نقل او ترحيل الاعمده O&p&Q&R&S الى نفس الاعمدة فى الشيت المراد نقل البيانات اليه ولاكنى لم افلح ارجو التكرم ومساعدتى فى تكرار نفس الكود على اساس 1- اسم الشيت المراد تقل البياات اليه فى العمود N إبتداء من الخلية N3 2- ويتم نقل الاعمده O&P&Q&R&S الى الشيت المراد والى الاعمده O&P&Q&R&S ابتداء من الصف السادس اى الى O6&P6&Q6&R6&S6 مع باقى الكود من مسح البيانات بعد الترحيل اخى الحبيب ارجو ان تتقبل عزرى فى اثقالى عليك فى حفظ الله وامنه TIST.rar

السلام عليكم الاخ الكريم ابراهيم ابو ليلة جزاك الله خيرا تم الامر بصورة حيده سلمت يداك

السلام عليكم الاستاذ الجليل والاخ ياسر سلمت يداك ... فعلا ... افاده كبيرة جزاك الله كل الخير

السلام عليكم ارجو المساعده فى تعديل الكود المرفق الكود قائم على اساس وجود اى قيمة فى اى خليه فى العمود A يتم وضع التاريخ فى الخليه المجاورة لها فى العمود B اريد اضافه حالة اخرى للكود وهو عند وضع ايضا اى قيمة فى اى خليه فى العمود N يتم وضع التاريخ فى الخليه المجاورة لها فى العمود O (Private Sub Worksheet_Change(ByVal Target As Range Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row If Target.Column <> 1 Then Exit Sub ("",("Target.Offset(0, 1).Value = IIf(Target.Value <> "", Format(Now(), "yyyy/mm/dd Application.ScreenUpdating = True End Sub Book1.rar

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

السلام عليكم اخى الحبيب ياسر مرفق الملف وتقبل عزرى فى طلب اخير اريد كود اخر مستقل بنفس طريقه عمل الكود الاخر نفس الكود على ان يتم ترحيل O4 ال 46 من شيت transa الى الشيت فى O6 الى S6 جزاك الله كل الخير اسم المستخدم الدعم الفنى 1111 حماية الشيتات 1111 علاج طارق4 .rar

نعم اخى الحبيب بعد الترحيل يتم مسحها من شيت transa ولاكن من خلال مسح محتوى الخلايا A4& C4&E4&G4 الى الصف 26 وذلك لكون الاعمده B &D&F بها معادلات هل يمكن عمل ذلك وجزاك الله كل الخير على مجهودك وسعيك معى

السلام عليكم اخى ياسر ... هل يمكن اضافه للكود بحيث بعد الترحيل يتم مسح محتوى الخلايا A4& C4&E4&G4 الى الصف 26 حزاك الله خيرا

السلام عليكم اخى ياسر جارى العمل وان شاء الله تكون النتيجة مرضية جزاك الله كل الخير