ebdaakitchen

السلام عليكم لو سمحتم انا عملت شيت مخازن وعملت اذن الاضافة والترحيل والحمد لله ظبت معي لما ادخل البيانات يتم الترحيل علي حسب الصنف ولدينا 6 اصناف ومرفق ملف وصورالنموذج فأنا اريد الان تجميع ارصدة الاصناف في شيت واحد وهو التقرير الاجمالي فهل هناك معادلة لذلك او كود واسف علي الاطاله ولكم جزيل الشكر Book1.rar

انا حاولت اصغر الملف علي قد الطلب الي محتاجه ارجوا ان اكون وضحت الصورة Book1.rar

مساحة الملف كبيرة

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

تمام الحمد لله شكرا جزيلا اصل اول مره اشتغل علي الاكسيل vba

Sub hamza() Sheets(25).Activate For Each f In Range("h2:h50") If f <> "" Then x = f.Value Range(f.Offset(0, -7), f.Offset(0, 6)).Copy lR = Sheets(x).Range("a" & Rows.Count).End(x1up).Row هنا بيظهر نفس اللون اصفر هل في خطاء Sheets(x).Activate Range("a" & lR + 1).Select Selection.PasteSpecial x1pastevalues End If Next f Sheets(25).Activate Application.CutCopyMode = False Range("a2:e50").ClearContents Range("g2:k50").ClearContents Range("m2:n50").ClearContents End Sub