تعديل كود ترحيل بيانات موظف محال للمعاش

[algammal]

السادة الكرام مسئولي ومشرفي وخبراء وأعضاء وزوار منتدي أوفيسنا (إكسيل)

طبتم وطابت جميع أوقاتكم بالخير واليمن والبركات أينما كنتم وأينما حللتم

وتحيتكم: السلام عليكم ورحمة الله وبركاته

بخصوص موضوع سابق لنا هذا رابطه

الرابط

المطلوب: فقط عندما يتم في أي مرة مسح (أو إزالة) المحتويات في شيت (معاشات) أن يكون العدد (0) صفر في كل من خلية: (معاش C3؛ ذكر E3؛ أنثى H3؛ المجموع J3) 

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

و أرجو منكم جميعا أن تلتمسوا لنا العذر حيث أن هذه أول أمرة أتعرض فيها لمثل ذلك الأمر.

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

ودمتم جميعا بخير وصحة وعافية

 

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركانه

 اليك الملف وبه التعديل

ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 5.xlsb

وان اردت اي تعديل في الملف  فايشر

لك كل الود والاحترام

[algammal]

أستاذي الفاضل الأستاذ / عبد الله بشير عبد الله

السلام عليكم ورحمة الله وبركاته

بشرك الله بالجنة؛ وبشرت بما يسرك دوما آمين رب العالمين

عرفتكم بالقلب ولم أعرفكم بالنظر؛ تعارفنا بلا وجوه ولكن بالسطور

أحبكم في الله

ودمتم عونا لكل من أراد العون؛ ومثلا يحتذى لكل من أراد القدوة.

دمتم في حفظ الله ورعايته؛ ولا حرمنا الله من فيض علمكم

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اسعدتى جدا دعاؤكم لي  

ولكم مثل ما دعوتم لي وزيادة

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

لكم كل التقدير والاحترام

 

 

[algammal]

أستاذي الفاضل / عبدالله بشير عبدالله

السلام عليكم ورحمة الله وبركاته

لقد أسرتني بعلمك وبحوارك الراقي

والله أسأل أن يرزقكم الدرجات العلى من الجنة وأن يسقيكم من يد نبينا محمد (صل الله عليه وسلم) شربة لا تظمأ بعدها أبدا؛ وأن يظلكم الله في ظله يوم لا ظل إلا ظله

ولن أمل من الدعاء لكم ما حييت؛ ولن أمل أيضا من قولي لكم:

دمتم عونا لكل من أراد العون؛ ومثلا يحتذى لكل من أراد القدوة

والله يحفظكم ويرعاكم  

[algammal]

السلام عليكم ورحمة الله وبركاته

هل لي أن اطمع في كرم  أخلاقكم و علمكم

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

بحيث لو أردت أن أقوم بتعديل في التنسيق 

أستطيع القيام به

وجزاكم الله عنا خير الجزاء؛ ودمتم في حفظ الله ورعايته

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

تم تطبيق التنسيق الشرطى على الصفوف المرحلة   

بمعنى كلما تم الترحيل يطبق عليه التنسيق الشرطى

تم نوحيد ارتفاع الصفوف  للبيانات المرحلة 

جرب الملف وان هناك شئ  لم يحقق ما طلبت فاوضح ثم ابشر

 

ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

 

تم تعديل بالامس في 11:41 بواسطه عبدالله بشير عبدالله

[algammal]

 أستاذي الفاضل / عبد الله بشير عبد الله
السلام عليكم ورحمة الله وبركاته 

بداية إن حلمكم وتواضعكم الجم وسرعة تلبيتكم لما اطلبه ليزيدني خجلا من نفسي كلما طلبت شيئا

وأسأل الله العلي العظيم أن يجزيكم فضل تعليمكم وحلمكم علينا

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

ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

قم بتحميل الملف في المشاركة السابقة

يومك طيب ومبارك

تم تعديل بالامس في 11:40 بواسطه عبدالله بشير عبدالله

[algammal]

الأستاذ / عبدالله بشير عبدالله

السلام عليكم ورحمة الله وبركاته

ماذا لو أردت أن يكون الحد الأيسر للخلية J3 مثل الحد الأيسر للخلايا من I3: B3 (في شيت معاشات)

وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن

 

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

لديك الحق 

الجزء الخاص بحدود الصف الثالت 

    With ws.Range("C3,E3,H3,J3")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Bold = True
        .NumberFormat = "0"
        .Borders.Weight = xlThin
    End With

.Borders.Weight = xlThin  وزن الخط رفيع

يتم تعديله الى  .Borders.Weight = xlMedium  وزن الخط منوسط

كذلك يجب تعديل   With ws.Range("C3,E3,H3,J3") لانها نشمل خلايا معينة لتحديدها

ويتم تعديلها لتشمل النطاق  With ws.Range("B3:J3")

الملف بعد التعديل

ترحيل بيانات الموظف المحال للمعاش إلى شيت آخر وحذفه من قاعدة البيانات 7.xlsb

لك كل الود والاحترام

 

تم تعديل منذ 3 ساعات بواسطه عبدالله بشير عبدالله

[algammal]

الأستاذ / عبدالله بشير عبدالله

السلام عليكم ورحمة الله وبركاته

وختامه مسك

ماذا لو أردت أن تكون محاذاة الأسماء (في شيت معاشات) بعد ترحيل الأسماء بداية من الخلية B5 وحتى نهاية الشيت:   HorizontalAlignment = xlRight &

VerticalAlignment = xlCenter كما هو بالفعل

حاولت مع شيت آخر بأن عملت Module وكتبت فيه الكود التالي:

Sub alignment()
Range("B5:B10000").HorizontalAlignment = xlRight
Range("B5:B10000").VerticalAlignment = xlCenter
End Sub

 وتم بنجاح؛ ولكن لم تفلح محاولتي في شيت معاشات بعد الترحيل 

وجزاكم الله خير الجزاء ودمتم في حفظ الرحمن