مساعدة في عمل كود اتماتيكي

[محمد ابراهيم 78]

السلام عليكم 

ارجو المساعد في عمل كود ينفذ اوتوماتك نقل القيمة من ورقة (المواد الكلية) و ورقة (المواد المفرغة) الى ورقة (القائمة) لمعرفة المتبقي) وفي المرفق ملف يوضح المراد 

 

مع الشكر الجزيل

ملف عمل.xlsx

[سليم حاصبيا]

تغيير اسماء الشيتات الى اللغة الأجنبية كما في كل مرة لحسن نسخ الكود واصقه

Option Explicit
Sub My_Report()
 
 With Sheets("Repport").Range("C4").Resize(12)
  .Value = _
    Sheets("Sh_Plus").Range("C4").Resize(12).Value
  .Offset(, 1) = _
    Sheets("Sh_Minus").Range("C4").Resize(12).Value
  .Offset(, 2).Formula = "=SUM(C4,-D4)"
  .Offset(, 2).Value = .Offset(, 2).Value
End With
End Sub

الملف مرفق

Mhmd78.xlsm

[محمد ابراهيم 78]

شكرا جزيلا

ولكن المطلب ليس عمل زر في ورقة (القائمة) المطلب اوتماتك بدون زر .... وكذلك اسماء المواد في الاوراق (الكمية الكلية) و (الكمية المفرغة) ليست بنفس التسلسل مثلا (ثلاجة) في ورقة (المواد المفرغة) تكون في الخلية (C11) وفي ورقة (المواد الكلية) في الخلية (C5) اي ايجاد من ورقة (القائمة) في خلايا (اسماء المواد) مع ورقة (المواد الكلية) و (المواد المفرغة) (موقع اسماء المواد مختلفة في العمود في كل ورقة)) .....

ملف عمل.xlsx

[سليم حاصبيا]

هذا بدون زر

 

Mhm_78_1.xlsm

[أحمد يوسف]

محمد ابراهيم 78

أين انت من  هذه الإجابة الممتازة؟!!!

أين الضغط على الإعــــجـــــاب  , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!