oyousef قام بنشر ديسمبر 28, 2011 مشاركة قام بنشر ديسمبر 28, 2011 (معدل) الاساتذة الافاضل السلام عليكم ورحمة الله وبركاته. ارجو المساعده فى الاتى الملف المرفق به بعض البيانات عن الانتاج ويتمترحيل البيانات لهذا الملف عن طريق كود بملف اخر و هناك عمودين مهمين بهذا الملف وهما عمود كود الصنف وعمود للكمية بالكجم والمطلوب كود ينفذ الاتى : جمع بيانات كل صنف منفرد مهما كانت عدد الاصناف ووضعهم فى صفين تحت بعض كما هو مبين بالمرفق بمعنى هناك الصنف 1701 مثلا يتم تجميع الكميات ووضع الاجمالى تحت خانة SUM 1701 وهكذا واذا اضيفت اصناف جديده يضيفها تلقائيا ويضع لها خانة ويضع مجموعها فهل هذا ممكن و السلام عليكم ورحمة الله وبركاته ملحوظة : لا اريد تنفيذ هذا باستخدام خاصية SUBTOTAL لاسباب متضاربه مع بقية الموضوع F1101.rar تم تعديل ديسمبر 28, 2011 بواسطه oyousef رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر ديسمبر 28, 2011 مشاركة قام بنشر ديسمبر 28, 2011 السلام عليكم تفضل أخي المرفق بالجداول المحورية داخل الكود F1101_TAREQ.rar رابط هذا التعليق شارك More sharing options...
oyousef قام بنشر ديسمبر 28, 2011 الكاتب مشاركة قام بنشر ديسمبر 28, 2011 استاذى الفاضل/الاستاذ طارق الف شكر على مجهودك وتعبك ولكن احب ان اوضح بأن الكود لايعمل بشكل صحيح مع الاسف ويشير الى ان هناك خطأ فى هذا الجزء من الكود: ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R" & LR & "C10", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="R4C11", TableName:="PivotTable1" رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر ديسمبر 28, 2011 مشاركة قام بنشر ديسمبر 28, 2011 السلام عليكم و رحمة الله إضافة لحل الاخ طارق جرب الخطوات التالية في الخلية 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)) ثم اسحبها لليمين دمت في حفظ الله 1 رابط هذا التعليق شارك More sharing options...
oyousef قام بنشر ديسمبر 28, 2011 الكاتب مشاركة قام بنشر ديسمبر 28, 2011 السلام عليكم ورحمة الله وبركاته اجابة الاستاذ الفاضل يحى حسين عن سؤالى فى منتهى الابداع ولكن ربما اكون انا من اخطأت فى توصيل ما اريد فانا كنت اطلب ان يتم جمع قيم الاكواد الموجوده بدون احددها بمعنى اذا كان هناك اكواد مثل 1701 ,1702 فقط فيتم جمع قيم كل منهم فى خانه منفصله دون ان احدد شرط 1701, 1702 واذا تم ترحيل مثلا كود جديد مثل 1904 يتم ايضا جمع القيم الخاصه بيه فى خانه منفصله دون ان احدده وذلك يكون بمجرد تنفيذ الكود ملحوظة : لقد ارسلت بأن الكود الذى ارسله الاستاذ طارق لى لا يعمل بشكل صحيح ارجو المعذرة رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر ديسمبر 29, 2011 مشاركة قام بنشر ديسمبر 29, 2011 السلام عليكم استاذى الفاضل/الاستاذ طارق الف شكر على مجهودك وتعبك ولكن احب ان اوضح بأن الكود لايعمل بشكل صحيح مع الاسف ويشير الى ان هناك خطأ فى هذا الجزء من الكود: 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 1 رابط هذا التعليق شارك More sharing options...
oyousef قام بنشر ديسمبر 29, 2011 الكاتب مشاركة قام بنشر ديسمبر 29, 2011 الاستاذ الفاضل / استاذ طارق السلام عليكم ورحمة الله وبركاته سلمت يداك فقد ابدعت فعلا وما من كلمات توفيك حقك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان