رجاء حار من السادة المحترفين

[ahlan_32]

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

رجاء حار.rar

[ياسر خليل أبو البراء]

وعليكم السلام

العنوان مخالف والموضوع غير مكتمل الأركان وغير واضح ... حاول تعطي المزيد من التفاصيل لتجد الاستجابة الأفضل من إخوانك

وأهلاً بك أخ أهلاً

[ahlan_32]

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

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

تم تعديل يوليو 25, 2017 بواسطه ahlan_32

[ahlan_32]

منتظر كرمكم

[ياسر خليل أبو البراء]

أخي الكريم لو كانت الفكرة واضحة تماماً تأكد أننا لن نبخل عليك

حاول تتحدث بلغة الإكسيل ودعك من المقايسات والمهمات .. وحدد هدفك .. لكي تجد استجابة أفضل من إخوانك بالمنتدى

[ahlan_32]

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

مثال 1.rar

تم تعديل يوليو 26, 2017 بواسطه ahlan_32

[ياسر خليل أبو البراء]

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

ربما سيكون أيسر لو وضعت صورة لمثال متوقع .. يمكنني العمل على ملفك بالتخمين لكني لست من مؤيدي التخمين حيث جربته كثيراً وأعتبره مضيعة للوقت والجهد ..

كلما كانت المعطيات واضحة كلما وجدت استجابة أفضل ..

قد لا أمتلك الحل لك لكني أحاول وضع ردود ليظهر موضوعك وتتضح الصورة لبقية الأخوة الأعضاء ..

أرجو أن تتقبل نصيحتي بصدر رحب .. والرجاء مراجعة موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى 

عموماً رغم أنني لا أحب التخمين .. وحتى لا تحدثك نفسك بأني مضيعة للوقت لك إليك الكود التالي ..

ضع الكود في حدث ورقة العمل .. كليك يمين على اسم ورقة العمل المطلوب العمل عليها ثم View Code ثم ضع الكود التالي .. وأرجو أن يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 And Target.Row > 2 Then
        Application.EnableEvents = False
            Dim m As Long
            Dim x, y
            
            m = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Range("A" & m).Resize(1, 4).Value = Range("A" & Target.Row).Resize(1, 4).Value
            
            x = Target.Offset(, -3).Value - Target.Offset(, 5).Value
            y = Target.Offset(, -3).Value - Target.Value
            
            Range("J" & m).Value = x: Range("H" & m).Value = y
            Target.EntireRow.Delete
        Application.EnableEvents = True
    End If
End Sub

 

[ahlan_32]

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

Target.EntireRow.Delete

الصف المختار يتنسخ كله في ورقة اخري بدل ما يتحذف  وهل ممكن اضع هذا الكود في module بدل من حدث ورقة العمل ......... معلش اسف لتعب حضرتك
 

مرفق مثال

 

مثال 2.rar

تم تعديل يوليو 26, 2017 بواسطه ahlan_32

[ياسر خليل أبو البراء]

لا أعتقد أنه يمكن عمل الكود بالشكل العادي لأنك تريد أن يتم تنفيذ الكود بمجرد التغيير في العمود e .. إذ أنه كيف سيعرف الإكسيل أنه تم التعديل في العمود e ..

بالنسبة للنقطة التي تتحدث بخصوصها يمكن نسخ الصف ويمكن استخدام كلمة Copy بدلاً من كلمة Delete ثم تحدد المكان المطلوب النسخ إليه .. وبعد القيام بعملية النسخ ستضيف سطر الحذف مرة أخرى .. إذ أنني لا أحبذ عملية القص

فالأفضل إجراء نسخ للصف ثم حذف له .. 

[ahlan_32]

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

وطلب تاني استاذي

حضرتك مشكور الكود طارح عمود (5) من عمود (2)  والناتج في عمود (8) وده تمام مشكور .... بس طارح  عمود (10) من عمود (2) لا انا عايز اطرح عمود (5) من عمود (10) والناتج في عمود (10) مشكور جدا واسف جداا حظ حضرتك انك وقعت في ههههههههه

تم تعديل يوليو 26, 2017 بواسطه ahlan_32

[ياسر خليل أبو البراء]

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