احمدزمان

السلام عليكم و رحمة الله وبركاته وبعد جهد جهيد هذا آخر ما استطعت عمله Dim FS As Worksheet, TS As Worksheet, RN1 As Range, RN2 As Range, RN3 As Range Dim ER, R, C Sub ãÇßÑæ1() ' Application.Calculation = xlManual Set FS = Sheets(ActiveSheet.Name) Set TS = Sheets("Sheet2") ER = FS.UsedRange.Rows.Count Range("I1") = "ÇáäæÚ" Range("J1") = " ÇÓã ÇáÚãíá" Range("K2").EntireColumn.Insert Range("K2:K" & ER).FormulaR1C1 = "=IF(RC9="""",R[-1]C11,RC9)" ActiveWorkbook.Names.Add Name:="ABCD", RefersTo:=FS.UsedRange FS.Calculate For R = 2 To ER If Cells(R, 10) <> "" Then Cells(R, 9) = Cells(R, 11) Next R Range("K2").EntireColumn.Delete For C = 1 To FS.UsedRange.Columns.Count - 1 If FS.Cells(1, C) = "" Then FS.Cells(1, C) = C.Text Next C TS.Select TS.Columns("A:F").Delete TS.Range("A1").FormulaR1C1 = "=Sheet1!R1C10" TS.Range("A2").FormulaR1C1 = "<>" & "" '=CONCATENATE(""<>"",R1C1,""*"")" TS.Range("C1").FormulaR1C1 = "=Sheet1!R1C10" TS.Range("C2").FormulaR1C1 = "=CONCATENATE(""<>"",""*"",R1C3,""*"")" TS.Range("B2").FormulaR1C1 = "<>" & "" '=CONCATENATE(""<>"",R1C1,""*"")" TS.Range("A3").FormulaR1C1 = "=Sheet1!R1C10" TS.Range("B1").FormulaR1C1 = "=Sheet1!R1C9" TS.Range("B3").FormulaR1C1 = "=Sheet1!R1C9" TS.Range("C3") = "ÇáãÌãæÚ" Set RN1 = FS.Columns("I:J") 'UsedRange Set RN2 = TS.Range("A1:C2") Set RN3 = TS.Range("A3:B55555") RN1.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=True ER = TS.UsedRange.Rows.Count + 2 TS.Range("A1:G2").Clear Range("C4:C11").FormulaR1C1 = _ "=SUMPRODUCT((INDEX(ABCD,,10)=RC1)*(INDEX(ABCD,,9)=RC2),INDEX(ABCD,,1))" ' Range("C4:C" & ER).FormulaR1C1 = _ "=SUMPRODUCT((INDEX(ABCD,,10)=RC1)*(INDEX(ABCD,,9)=RC2))" ' Range("D4:D" & ER).FormulaR1C1 = _ "=SUMPRODUCT((INDEX(ABCD,,10)=RC1)*(INDEX(ABCD,,9)=RC2),INDEX(ABCD,,1))" TS.Range("A1:G2").Clear Range("C2").FormulaR1C1 = "=SUBTOTAL(9,R3C3:R55555C3)" Range("A3:D" & ER).Columns.AutoFit Range("A3:D" & ER).AutoFilter ThisWorkbook.Save TS.Calculate 'GoTo 9 'For Each RN In TS.UsedRange 'RN = RN 'Next 9 Application.CutCopyMode = False Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub سوف يتم عمل قائمة غير مكررة بها اسم كل عميل ومشترياته ومجمع امامها الكمية مع التصفية التلقائية حاولت اطبق دالة SUMPRODUCT على كامل الجدول بالكود الا ان امكانيات جهازي ضعيفة ويعلق الإكسل عندها لذلك عملتها في 9 صفوف فقط - - - يمكنك نسخها الى آخر صف == من التصفية اختار اسم العميل يظهر لك كل مشترياته ومجموعها اختار نوع اي منتج من التصفية - يظهر كل العملاء الذين اشترو هذا المنتج وكل الكميات وفي الأعلى اجمالي الكميات == آمل ان تستفيد منه في ما تريد Copy of Report2.rar

السلام عليكم و رحمة الله وبركاته الف الف الف مبروك الترقية وفقك الله دائما

وعليكم السلام و رحمة الله وبركاته اخي عطاء الله جزاك الله خيرا وفي انتظار ابداعاتك ومحاولاتك دمت في نعمة الله وفضله =================

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

اشكرك جدا استاذ احمد على مجهودك طيب الفكرة دى ممكن تتطبق على اوفيس اعلى مثلا 2007 او حتى 2013 مع بعض التعديلات العفو اخي الكريم في حل آخر نعمل القائمة طولية لكلا من اسم العميل و النوع سوف احاول ان اوافيك بمثال قريبا ان شاء الله تعالى

السلام عليكم و رحمة الله وبركاته لايمكنني تنفيذ ما تطلب السبب عدد الأعمدة في اكسل 256 وعدد النتائج التي خرجت لدينا النوع = 566 و اسم العميل 2689 اي اكثر من عدد الأعمدة

السلام عليكم و رحمة الله وبركاته بعد اذن استاذي الكبير عبدالله باقشير الحل لطلبك تجدة في مشاركات الأستاذ الكبير عبدالله باقشير 1- استخدم Sumproduct بالكود 2- تحويل المعادلات الى اكواد مع التحية

في مشكلة في تغيير الموضع من راسي الى افقي بسبب كثرة البيانات وهنا نحتاج فكرة جديدة للتنفيذ

السلام عليكم كل المشكلة تكمن في الخلية I1 & H1 يجب ان تكتب بهما اي معلومة و لا تتركهما فارغتين مثلا = النوع و اسم العميل

السلام عليكم و رحمة الله وبركاته اخي عطاء الله اشكرك على متابعتك الدقيقة للموضوع اخي محمد خليل لم استطع فتح اي ملف من التي ارفقتها الرجاء ارساله بصيغة 2003 او قبل تطبيق الكود على الملف الأصلي احفظ الملف باسم وضعه بصيغة اكسل عاديه xls ثم طبق عليه الكود تحياتي وتقديري

السلام عليكم و رحمة الله وبركاته بعد اذن اخونا الفاضل الكريم عطاء الله على حسب مافهمت من طلب اخونا محمدخليل تم عمل الكود التالي Dim FS As Worksheet, TS As Worksheet, RN1 As Range Dim ER Sub ãÇßÑæ1() ' 'Application.ScreenUpdating = False Set FS = Sheets(ActiveSheet.Name) ER = FS.UsedRange.Rows.Count Range("K2").EntireColumn.Insert Range("K2:K" & ER).FormulaR1C1 = "=IF(RC9="""",R[-1]C11,RC9)" FS.Calculate For R = 2 To ER If Cells(R, 10) <> "" Then Cells(R, 9) = Cells(R, 11) Next R Range("K2").EntireColumn.Delete 'I,J Range("K1:L1").EntireColumn.Insert ER = Cells(Cells.Rows.Count, "I").End(xlUp).Row Range("K1").Clear Range("I1:I" & ER).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("K1"), Unique:=True ' ER = Cells(Cells.Rows.Count, "J").End(xlUp).Row Range("L1").Clear Range("J1:J" & ER).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("L1"), Unique:=True ' Set RN1 = Sheets("ÇáãØáæÈ").Range("A1") ER = Cells(Cells.Rows.Count, "K").End(xlUp).Row + 2 FS.Range("K1:K" & ER).Copy RN1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True ER = Cells(Cells.Rows.Count, "L").End(xlUp).Row + 2 FS.Range("L1:L" & ER).Copy RN1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False FS.Range("K2:L2").EntireColumn.Delete RN1 = Date Sheets("ÇáãØáæÈ").Select Application.CutCopyMode = False 'Application.ScreenUpdating = TRUE End Sub ويبقى عملية الحساب ويمكنك ذلك باستخدام الدوال مثل SUMIFS - SUMPRODUCT واتمنى ان اكون انجزت بعضا مما تريد Customer Report2.rar

السلام عليكم و رحمة الله وبركاته اخي الفاضل تم عمل تقرير ورقة Report2 كما طلبت في المرفق بكود التصفية المتقدمة + دالة sumproduct حسابات تحت التعديل3.rar

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

السلام عليكم اخي عطاء الله مش قولتلك

السلام عليكم و رحمة الله وبركاته اخي قنديل جزاك الله خيرا اصطدت لنا مجموعة رائعة

اخونا الكريم و المبدع ائما ضاحي الغريب جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته شكرا لك استاذ هشام وجزاك الله خيرا وسعدنا في المنتدى بعودتك بارك الله فيك

السلام عليكم و رحمة الله وبركاته اخي عطاء الله شكرا لك على كريم خلقك جزاك الله خيرا ولكن قد لايستفيد السائل من الملف لذلك يمكنك وضع الكود اذا احببت

‏22‏/1‏/1435هـ الموافق ‏25‏/11‏/2013م السلام عليكم و رحمة الله وبركاته في المرفق ملف نظم اصدار وطبع الشيكات لعدة بنوك وعدة حسابات في اولو رقة بالملف نموذج تحرير الشيكات في نموذج تحرير الشيكات عملية الإدخال كالتالي: 1 التاريخ: ادخل التاريخ للشيك وهومثبت على تاريخ اليوم حاليا ويمكنك تغييره 2- حرر في: ادخل مكان تحريري الشيك او اختاره من القائمة – اذا ادخلت اسم مكان جديد سوف يتم اضافته للقائمة عند طباعة الشيك 3- رقم الحساب: يمكنك استخدام هذه الخانة او تجاهلها - - تستخدم هذه الخانة في حالة يكون لديك اكثر من حساب في نفس البنك – يقوم البرنامج باضافة رقم الحساب الى اسم البنك للتأكد من حصولك على معلومات دقيقة 4- رقم الشيك: تقوم بادخال رقم الشيك وبعد كل عملية طباعة يقوم البرنامج بزيادة الرقم 1 ليصبح متسلسل - - اذا اخلت رقم شيك متطابق مع اسم بنك سبق اصدارة يعطيك رسالة تحذيرية بذلك 5- اسم المستفيد: أي اسم الشخص الذي يظهر على الشيك – يمكنك اختياره من القائمة اذا سبق اصدار شيك له - - و يمكنك البحث عن أي جزء من اسم الشخص وتظهر نتائج البحث في القائمة المنسدلة - - مثال: اذا كتبت في خانة اسم المستفيد: عبد سوف يظهر لك في القائمة كل من يوجد في اسمهم عبد مثل عبدالله وعبدالرحمن وغيرها وتختار منها الإسم الذي تريد 6- المبلغ و التفقيط: بمجرد ادخال المبلغ في خانته يتم التفقيط بجوار المبلغ 7- الإيضاح: يوجد نوعين من الإيضاح ايضاحات تظهر على الشيك وايضاحات تحفظ لديك مع بيانات الشيك ولا تطبع على الشيك - - وايضا الإيضاحات يوجد لدينا ايضاحات تتكرر دائما لذلك يقوم الملف بحفظ الإيضاحات الغير مكررة و يمكنك البحث عنها بواسطة بأي جزء بنفس طريقة البحث عن الإسم. يتم عمل ورقة جديدة لكل اسم بنك جديد وتنسق الورقة بما يتناسب وطباعة الشيك ورقة الحفظ و البحث: بعد كل عملية طباعة يتم حفظ بيانات الشيكات هنا ويمكنك البحث عن أي معلومة من هنا من تاريخ و الى تاريخ – او – تختار اسم البنك المطلوب – او – أي معلومة اخرى من رقم الشيك او مبلغ او ايضاحات او اسم مستفيد آمل ان يكون به ما طلبت Shiqشيكات01.rar

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

السلام عليكم و رحمة الله وبركاته جزاك الله خيرا رائع جدا تمكنك الجميل و التركيبة الجميلة بارك الله فيك وفي علمك

السلام عليكم و رحمة الله وبركاته اخواني الكرام اخي الحبيب الكريم محمود ارفق لكم تقويم العام 2014 بالهجري و الميلادي == ارجو ان تكون به الفائدة

السلام عليكم اخي اكونت في انتظار تجربتك و ملاحظاتك جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته اخي الكريم حمادة عمر اشكرك على كريم مرورك جزاك الله خيرا مواضيعك انت اكثر روعة

السلام عليكم و رحمة الله وبركاته فكرة جميله جزاك الله خيرا