اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترحيل عمود بشرط للأهمية أرجو المساعدة


الردود الموصى بها

السادة أعضاء المنتدى

برجاء المساعدة في كشف المرتبات المرفق

المطلوب

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

و نفس الحال في  كشف 2   155 يتم ترحيله الى بدل نقدى 2

و كذلك في كشف مرتب اداري يتم ترحيله الى بدل نقدى 3

مرتب.rar

رابط هذا التعليق
شارك

في ٣‏/٤‏/٢٠١٨ at 14:59, فتحى ابوالفضل said:

رحيل العمود المسمى ( بدل نقدى )   في شيت كشف 1 155 إلى شيت بدل نقدي 1 مع مسح المبالغ  من الكشف و بالتالي خصمها من الجملة   و الابقاء على المعادلات

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

هذا اقتراح لفكرة الحل

 

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

بحيث تبحث عن بدل النقدي في ورقة او شيت بدل نقدي 1

اذا كانت القيمة موجودة هناك يعطينا هنا صفر 0

اذا لم نكن موجودة هناك يتم حسابها

 

هل هذه هي الفكرة المطلوبة

رابط هذا التعليق
شارك

 

أخي الفاضل / أحمد زمان

أولاً اشكر حضرتك على الاستجابة و كرم أخلاق حضرتك

ما فهمته أن يمكن تعديل الدالة أو المعادلة بحيث تقوم بعملية البحث في ورقة أو شيت بدل نقدي 1 فإن كانت القيمة موجودة  في كشف 1   155  ( و هو الأصل ) فإنها تضع صفر في صفحة بدل نقدى 1 و إن لم تكن موجودة تضع قيمته

تمام كدة الله ينور عليك

مع العلم

أولاً : أن الأصل أن القيمة من المفترض دائما في شيت كشف 1 155  المرتبطة بالمعادلة في صفحة بيانات المرتبطة بإدخال عدد التذاكر في صفحة البدلات

ثانياً المطلوب أن يتواجد البدل النقدي في صفحة شيت كشف 1 155  و هو الأصل الا في حالة الفصل في حالة نفاذ البند يتم نقله في صفحة مستقلة و هي صفحة بدل نقدي  1 حتى يتم تدعيم الميزانية

ثالثاً : في حالة تدعيم البند و تدعيم الميزانية يعود البدل النقدي مرة ثانية إلى شيت كشف 1 155   و تصبح صفحة بدل نقدي 1   صفر

ولي سؤال بعد اذن حضرتك

فكرة سيادتكم هي المطلوبة فاذا كان البدل النقدي في شيت كشف 1 155   موجود فتصبح قيمته في صفحة بدل نقدي 1 تكون صفر ( كده تمام ) الله ينور عليك و إذا كانت قيمته في شيت كشف 1 155   صفر فإنه يكون موجود في صفحة بدل نقدي 1 ( تمام الله ينور عليك )

السؤال : الأصل أن يكون موجود في شيت كشف 1 155   فبالتالي ستكون القيمة في صفحة بدل نقدي 1 هي صفر فكيف أجعل القيمة صفر في صفحة البدل النقدي في شيت كشف 1 155  في حالة الفصل  لتكون قيمة البدل النقدي موجودة في صفحة البدل النقدي 1 و كيف أرجعها إلى الأصل مرة ثانية

أتمنى أن أكون قد أوضحت لحضرتك الفكرة المطلوب

اسف على الإطالة و أشكر حضرتك على سعة صدرك

 

 

 

 

 

 

 

رابط هذا التعليق
شارك

السلام عليكم

ان شاء الله بسيطة

بعد تعديل دالة الترحيل

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

كده لمن نضغط زر الترحيل يتم تلقائيا نقل المبالغ الى الورقة الأخرى

و يتم تلقائيا بموجب الداله وضع صقر لخانة البدل

 

بعد ذلك

كل اسم تحذفة من ورقة بدل 1 يستعيد هذا الإسم القيمة للبدل في ورقة كشف 1 155

يمكن حذف اسم واحد او عدة اسماء او الكل الأسماء

 

تمام كدة

 

 

رابط هذا التعليق
شارك

السلام عليكم

الدالة

=IF(COUNTIF('بدل نقدى1'!$B:$B;'155 كشف 1'!$A5)>0;"ب ن 1";ROUND(IF(B5="معلم مساعد";0;IF(بيانات!AU$4=1;0;بيانات!N4+بيانات!AR4+بيانات!AZ4));2))

و الكوود

Sub t155_n1()
'

Dim FS As Worksheet, TS As Worksheet
Dim FR, TR, ER
Set FS = Sheets("155 كشف 1")
Set TS = Sheets("بدل نقدى1")
ER = Application.CountA(FS.Range("A:A")) + 33
For FR = 5 To ER
If FS.Cells(FR, 1).Value = "" Then GoTo 9
8 TR = TR + 1
If TS.Cells(TR, 2) <> "" Then GoTo 8
TS.Cells(TR, 2) = FS.Cells(FR, 1)
TS.Cells(TR, 3) = FS.Cells(FR, 20)
9 Next


End Sub

جرب المرفق

مرتب.xls

 

مرتب.rar

رابط هذا التعليق
شارك

الأخ الفاضل / أحمد زمان

تحية شكر و تقدير

أولاً : أعتذر عن التاخير بسبب حالة وفاة و انشغالي بالعزاء

ثانياً : عمل رائع و ممتاز و جزاك الله خيراً و جعل أعمالك في ميزان حسناتك

ثالثاً : عند التطبيق واجهتني بعض المشكلات و هي

1 - عند الترحيل كانت تظهر الصور 1

و عندما تم تعديل المعادي

=IF(COUNTIF('بدل نقدى1'!$B:$B;'155 كشف 1'!$A5)>0;"ب ن 1";ROUND
=IF(COUNTIF('بدل نقدى1'!$B:$B;'155 كشف 1'!$A5)>0;"0";ROUND

تم الضبط

2 - بعد الترحيل ظهرت الصورة 2 و فيها البدل النقدي للموظف رقم 1 في غير مكانه

3 - و طلب أخير و أنا أعلم أنني أثقلت على حضرتك و لكن علمي أنا أسرة اوفيسنا تستمتع بمساعدة الآخرين و طلبي هو

في حالة تدعيم الموازنة كيف أعيد المبالغ من شيت بدل نقدي 1 إلى شيت كشف 155 1 و هو الأصل

جزاك الله عنا خير الجزاء

1.png

2.png

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

12 ساعات مضت, فتحى ابوالفضل said:

أولاً : أعتذر عن التاخير بسبب حالة وفاة و انشغالي بالعزاء

اعظم الله اجركم و احسن الله عزائكم

و غفر الله لميتكم

 

=====

 

كله محلول باذن الله

نتابع لاحقا ان شاء الله

 

رابط هذا التعليق
شارك

5 ساعات مضت, احمدزمان said:

اعظم الله اجركم و احسن الله عزائكم

و غفر الله لميتكم

 

اقتباس

اعظم الله اجركم و احسن الله عزائكم

و غفر الله لميتكم

 

 

غفر الله لكم و لنا و لجميع مواتتا و موتى المسلمين و رحمهم جميعاً رحمة واسعة

و جزاك الله خير الجزاء

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

22 ساعات مضت, فتحى ابوالفضل said:

و طلبي هو

في حالة تدعيم الموازنة كيف أعيد المبالغ من شيت بدل نقدي 1 إلى شيت كشف 155 1 و هو الأصل

 

في ٥‏/٤‏/٢٠١٨ at 14:44, احمدزمان said:

بعد ذلك

كل اسم تحذفة من ورقة بدل 1 يستعيد هذا الإسم القيمة للبدل في ورقة كشف 1 155

يمكن حذف اسم واحد او عدة اسماء او الكل الأسماء

 

 

رابط هذا التعليق
شارك

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

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

وتم اضافة

SUM(T6)

للدالة في العمود AN

و ان شاء الله تظبط هيك

 

مرتب.rar

رابط هذا التعليق
شارك

في 4/9/2018 at 11:40, احمدزمان said:

اعظم الله اجركم و احسن الله عزائكم

و غفر الله لميتكم

 

اقتباس

غفر الله لكم و لنا و لجميع مواتا و موتى المسلمين و رحمهم جميعاً رحمة واسعة

و جزاك الله خير الجزاء

 


 

في 4/9/2018 at 11:40, احمدزمان said:

اعظم الله اجركم و احسن الله عزائكم

و غفر الله لميتكم

 

اقتباس

غفر الله لكم و لنا و لجميع مواتا و موتى المسلمين و رحمهم جميعاً رحمة واسعة

و جزاك الله خير الجزاء

 

 

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

أخى الفاضل / أحمد

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

كله تمام و بارك الله فيك

سؤال و طلب و إن كنت أثقلت على حضرتك

فأما السؤال

إذا رغبت في تطبيق هذا الكود على أعمدة أخري مختلفة كترحيل بدل المعلم أو بدل الاعتماد كمثال فما التغييرات التي أقوم بها سواء في المعادلة أو الكود

و الطلب

أرجو شرح الكود سطر سطر

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

دمتم و دام فضلكم

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information