احتاج الى ماكرو او معادله لجمع حقلين وحذف المدخلات

[سلطان العبدالله]

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

 

اساتذتي الكرام يسعدني ويشرفني الانضمام الى المنتدى وباذن الله نفيد ونستفيد

 

حقيقة بعد محاولات عدّه ومتابعة هذا المنتدى ودروس للاستاذ عبدالله المجرب

 

لم استطع ايجاد حل لما اقوم به !

 

لدي ملف بدأت بتصميمه لمتابعة رصيد الاجازات للزملاء الموظفين في القسم

 

ولكني توقفت عند نقطه وهي موضحه في الملف المرفق

 

الذي اريده توجيهي لكي اعمل المطلوب وليس حله في الملف بارك الله فيكم لكي استفيد

 

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

 

شكرا لكم :)

رصيد الاجازات.rar

[طارق محمود]

السلام عليكم

تفضل أخي الكريم

الملف وبه شرح سريع للكود المستخدم

رصيد الاجازات1.rar

[سلطان العبدالله]

شاكر ومقدر متابعتك استاذي طارق محمود

 

يبدوا اني لم اوضح المطلوب بما فيه الكفاة اعتذر منك

 

المطلوب استاذي الكريم عندما اقوم بتعبئة التواريخ للموظف باسم سلطان على سبيل المثال والمعطيات السابقة الموجودة كالتالي

 

الرصيد الفعلي = 10 الاجازات = 0  ( المقصود بالاجازات هو عدد ايام الاجازات خلال السنة بالكامل ) عدد الايام = الفرق بين التاريخين من و الى مثلا اصبح عدد الايام = 5

 

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

 

عند ضغط زر حفظ يقوم بالتالي 

 

الاجازات + عدد الايام والناتج يكون في حقل الاجازات بمعنى اخر ان حقل الاجازات بعد ضغط زر الحفظ يتغير من صفر الى 5 .

 

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

 

اعتذر للاطاله وشكرا لك مقدما استاذي

[سلطان العبدالله]

اعتقد باذن الله ان وجد ضالتي بمساعدة الاستاذ طارق محمود

 

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

Sub AddVacation()

    Range("J4:J12").Select
    Selection.Copy
    Range("G4:G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd
    Range("h4:i12").ClearContents
    Range("n3").Select
    
    
    
End Sub

شكرا لكم

رصيد الاجازات.rar

[طارق محمود]

الحمد  لله
تشرفنا بك اخي الكريم في المنتدي
نسيت أن أرحب بك كما هو المعتاد لأولي مشاركاتك
أهلا ومرحبا بك بين إخوانك
ونحمد الله أن جعلنا سبب لإيجاد ماتبحث عنه

[سلطان العبدالله]

الحمد  لله

تشرفنا بك اخي الكريم في المنتدي

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

أهلا ومرحبا بك بين إخوانك

ونحمد الله أن جعلنا سبب لإيجاد ماتبحث عنه

 

الله يخليك استاذي طارق هذا من كرم اخلاقك .. تشرفت بالجميع شكرا لك