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

محمد ابراهيم 78 · أكتوبر 4, 2020

السلام عليكم

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

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

ملف عمل.xlsx

**سليم حاصبيا** · أكتوبر 4, 2020

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

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 · أكتوبر 4, 2020

شكرا جزيلا

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

ملف عمل.xlsx