عبد الله السعيد

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

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

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

السلام عليكم لدي اخواني مجموعة اكواد وسأفترض اخواني ان الأكواد مثلاً كالتالي كود A ويندرج تخته كل ماهو تابع لكود A كود B ويندرج تحته كل ماهو تابع لكود B وهكذا في نشاطي في المخزن كل يوم يأتيني مبيعات اصناف وكل صنف له كود ويطلب مني بصفة متكررة في اليوم طباعة كل اكواد في جدول بمفرده وفي شيت منفصل انا اريد اخواني اولا ان اعمل جدول به التقسيمة التي اريد ان اوزع من خلالها الأكواد على كل الصفحات يعني مثال ذلك اريد مثل كود A وكود B وما يتبعهم يندرج مع بعضهم البعض وكود C في صفحة اخرى وهكذا واريد عمل مربع حواري يطلب مني ادخال الأكواد التي تم بيعها في اي وقت وعند كتابة كل كود اضغط ترحيل فيرحل الى المكان الذي حددته من قبل في جدول التقسيمة اتمنى ان يكون ما اريده قد تم ايصاله اليكم ساعدوني فليس لدي خبرة كافيه وتم رفع ملف كمثال ما Abd.rar

بارك الله فيك اخي ياسر انا جربت الملف شغال تمام ولكن عند ادراج صفوف خلال اي جدول لا تعمل الدوال

تفضل استاذي نفس الجدول مكرر اكثر من مرة واتمنى المساعدة في موضوع البحث ايضاً Abdallah3.rar

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

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

بارك الله فيك يا استاذي عمل رائع هذا الكود ممكن شرح لي ،، لأني سأضعه على ملف اكبر وجدول اكبر اخي الغالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("H3:H8")) Is Nothing Then Range("H3:H8").ClearContents Target.Value = Application.WorksheetFunction.Sum(Range("G3:G" & Target.Offset(0, -1).Row).Value) End If End Sub يعني ماهو اللي بقوم بتغييره اذا حبيت اغير مع ملاحظة اني سأطبق على اكثر من جدول في شيت واحد يعني الصفحة الواحدة فيها جداول متعددة مفصولة عن بعضها البعض

تسلم اخي ياسر ممكن الكود الأول اللي احتاجه بمشيئة الرحمن لكن هل من طريقه لجعل الكود هذا بدلا من ظهوره في كل الخلايا تحت بعض ان يظهر فقط عندما اكون متوقف عند اجمالي معين بمعنى اخي عندما اكون في نهاية الصف الرابع مثلا وملئت البيانات وظهرت اجمالياتها في G6 اجد ان الكود ظهر لي في H6 وعندما انتقل لصف جديد 7 واضع مبالغ جديدة تختفى H6 ويظهر لي H7 وبمعنى اخر اريد ان لايظهر الكود الخاص بك الا اذا توقفت على اي اجمالي في الجدول خلاف ذلك يختفى بالنسبة للسؤال الثان للبحث منتظر اجابات من الأعضاء بارك الله فيكم

لدي جدول به بعض البيانات كما في الملف المرفق انا اريد طلبين ان تكرمتم علي مرفقين في الملف الشرح Abdallah.rar

اشكرك اخي الكريم على المتابعه والإهتمام

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

مشكور اخي بس الملف لدي في علامة لوجو من الأعلى للعمل وعند عمل Normal اجد ان اللوجو قد اختفى ولكنه موجود عند عمل معاينة قبل الطباعة

بارك الله فيكم

عمل مميز استاذ محمود