(تمت الاجابة) جمع الكميات بشرط كود الصنف

[oyousef]

الاساتذة الافاضل

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

ارجو المساعده فى الاتى

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

والمطلوب

كود ينفذ الاتى :

جمع بيانات كل صنف منفرد مهما كانت عدد الاصناف ووضعهم فى صفين تحت بعض كما هو مبين بالمرفق

بمعنى هناك الصنف 1701 مثلا يتم تجميع الكميات ووضع الاجمالى تحت خانة SUM 1701

وهكذا واذا اضيفت اصناف جديده يضيفها تلقائيا ويضع لها خانة ويضع مجموعها

فهل هذا ممكن

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

ملحوظة :

لا اريد تنفيذ هذا باستخدام خاصية SUBTOTAL لاسباب متضاربه مع بقية الموضوع

F1101.rar

تم تعديل ديسمبر 28, 2011 بواسطه oyousef

[طارق محمود]

السلام عليكم

تفضل أخي المرفق

بالجداول المحورية داخل الكود

F1101_TAREQ.rar

[oyousef]

استاذى الفاضل/الاستاذ طارق

الف شكر على مجهودك وتعبك

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

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

	    "Sheet1!R1C1:R" & LR & "C10", Version:=xlPivotTableVersion10).CreatePivotTable _

	    TableDestination:="R4C11", TableName:="PivotTable1"

[يحيى حسين]

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

إضافة لحل الاخ طارق

جرب الخطوات التالية في الخلية K1 ضع المعادلة التالية

=IFERROR(INDEX($D$2:$D$3000,MATCH(0,COUNTIF($J$1:J1,$D$2:$D$3000),0)),"")

و هي معادلة صفيف يجب الضغط على Ctrl+Shift+Enter ثم اسحب لليمين و في الخلية K2 ضع المعادلة التالية :

=IF(K1="","",SUMIF($D$2:$D$3000,K$1,$G$2:$G$2))

ثم اسحبها لليمين

دمت في حفظ الله

[oyousef]

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

اجابة الاستاذ الفاضل يحى حسين عن سؤالى فى منتهى الابداع ولكن ربما اكون انا من اخطأت فى توصيل ما اريد فانا كنت اطلب ان يتم جمع قيم الاكواد الموجوده بدون احددها بمعنى اذا كان هناك اكواد مثل 1701 ,1702 فقط فيتم جمع قيم كل منهم فى خانه منفصله دون ان احدد شرط 1701, 1702 واذا تم ترحيل مثلا كود جديد مثل 1904 يتم ايضا جمع القيم الخاصه بيه فى خانه منفصله دون ان احدده وذلك يكون بمجرد تنفيذ الكود

ملحوظة : لقد ارسلت بأن الكود الذى ارسله الاستاذ طارق لى لا يعمل بشكل صحيح ارجو المعذرة

[طارق محمود]

السلام عليكم

استاذى الفاضل/الاستاذ طارق

الف شكر على مجهودك وتعبك

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

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

		"Sheet1!R1C1:R" & LR & "C10", Version:=xlPivotTableVersion10).CreatePivotTable _

		TableDestination:="R4C11", TableName:="PivotTable1"

أخي العزيز يبدو انني استخدمت خاصية في 2010 ليست موجودة في 2003 عدل تلك الكود كله إلي

Sub PV_Table()


LR = [A60000].End(xlUp).Row

Range("K3:IV" & LR).Select

Selection.FillDown


    [A1:J1].Select

    Range(Selection, Selection.End(xlDown)).Select

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _

    "Sheet1!R1C1:R" & LR & "C10").CreatePivotTable TableDestination:="R4C11", TableName:="PivotTable1"


    With ActiveSheet.PivotTables("PivotTable1")

	    .PivotFields("كود الصنف").Orientation = xlColumnField

	    .PivotFields("كود الصنف").Position = 1

	    .PivotFields("كود الصنف").PivotItems("(blank)").Visible = False

	    .AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("الكمية بالكجم"), "Count of الكمية بالكجم", xlCount


    End With


    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of الكمية بالكجم")

	    .Caption = "Sum of الكمية بالكجم"

	    .Function = xlSum

		 .NumberFormat = "#,##0"


    End With

    ActiveWorkbook.ShowPivotTableFieldList = False

    Range([J3], [J3].End(xlToRight)).EntireColumn.AutoFit

    [J3].Select

End Sub

[oyousef]

الاستاذ الفاضل / استاذ طارق

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

سلمت يداك

فقد ابدعت فعلا

وما من كلمات توفيك حقك