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

[algammal]

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

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

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

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

الرابط

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

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

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

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

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

 

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

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

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

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

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

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

[algammal]

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

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

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

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

أحبكم في الله

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

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

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

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

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

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

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

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

 

 

[algammal]

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

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

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

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

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

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

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

[algammal]

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

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

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

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

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

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

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

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

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

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

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

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

 

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

 

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

[algammal]

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

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

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

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

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

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

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

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

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

تم تعديل الجمعة at 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

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

 

تم تعديل السبت at 13:17 بواسطه عبدالله بشير عبدالله

[algammal]

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

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

وختامه مسك

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

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

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

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

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

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

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

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

"جزاك الله خيرًا على دعائك الطيب، أسأل الله أن يرزقك أضعاف ما دعوت لي، وأن يبارك لك في عمرك وعملك."

 

2 ساعات مضت, algammal said:

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

 

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

With wsTarget.Range("B5:B10000")
    .HorizontalAlignment = xlRight
    .VerticalAlignment = xlCenter
End With

حيث wsTarget تعنى شيت معاشات حيث قمنا بتعريفها  في بداية الكود        بدلا من اعادة كتابة اسم الشيت كل مرة

    Set wsTarget = ThisWorkbook.Sheets("معاشات")

اليك الملف بعد اظافة محاداة الاسماء لليمين

اتمنى انى قدمت لك ما بفيد

 

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

 

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

[algammal]

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

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

إن قلت شكراً فشكري لن يوفيكم حقكم؛ فكلمات الثناء تتوارى خجلاً تقديراً لعطائكم ومجهودكم؛ فلكم جزيل الشكر والامتنان؛ وهنيئا لنا بكم؛ وهنيئا لكم روعة العطاء.

ومن أجمل ما تهديه لأخيك أن تدعو له وتقول:

· ألبسكم الله لباس التقوى وكفاكم ما أهمكم، وأسعدكم بطاعته، ورزقكم من واسع كرمه وفضله، وحفظكم من كل شر، وفرج همكم، وأسعد قلبكم، وأراح بالكم، وغفر لكم ولوالديكم، يا ذا الجلال والإكرام. وهذا دعائي بحجم ما أحمله لكم من حب ومودة.

· رزقكم الله أسمى مراتب الدنيا وأعلى منازل الجنان؛ وجعلكم ممن طال عمره وحسن عمله؛ وبورك لكم في رزقكم ومالكم وصحتكم وعافيتكم وأولادكم وأهلكم أجمعين؛ وكتبكم الله من السعداء المعافين في الدنيا والفائزين في الآخرة؛ اللهم آمين رب العالمين.

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

· وإني أشهد الله في علاه؛ وملائكته؛ وجميع خلقه؛ وكل من يقرأ هذا التعليق: أني أحببتكم في الله

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

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

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

رحم الله من دعا لهم قلبك، وأسكنهم فسيح جناته، وجعل دعاءك لهم ولنا شاهدًا لك يوم تلقاه، وكتب لك من كل حرف كتبته نورًا يضيء دربك في الدنيا والآخرة.

أحبك الله الذي أحببتنا فيه، وجمعنا وإياك على الخير، وفي الجنة على سررٍ متقابلين

[algammal]

 

تم تعديل منذ 15 ساعات بواسطه algammal