نبيل عبد الهادي

مثال New Microsoft Excel Worksheet_2.xlsm

ضع الكود التالي في حدث كل ورقة من الاوراق الاربعة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = Range("A46").Address Then Button1_Click End If End Sub

Sub Button1_Click() Dim ws As Worksheet WkSheets = Array("ورقة1", "ورقة2", "ورقة3", "ورقة4") For Each ws In Sheets(Array("ورقة1", "ورقة2", "ورقة3", "ورقة4")) ws.Select Range("b46:n46").Formula = "=SUM(B3:B43)" Range("b47:n47").Formula = "=SUM(B7:B13,B27,B32)" Range("n2:n44").Formula = "=SUM(B2:m2)" Next ws End Sub غير المصفوفه باسماء الاوراق الاربعة لديك

تفضل ملف_تطبيق_الجمع_بشروط.xlsm

بعد اذن استاذ سليم تم تعديل رؤوس الاعمدة التي تمثل عناوين الجدول ليتم اضافتها في كل ورقة جديدة عمل الكود: 1- هل تريد تحويل الصفوف الى اوراق جديدة ؟ اختر نعم 2- ادخل عدد الصفوف 3- هل تريد تضمين صف العناوين ؟ احتر نعم ملاحظه - في الملف المرفق 1080 صف ويمثل عدد الاسماء .. سيتم انشاء 108 شيت !! - دمج الخلايا سيؤدي الى اخطاء في الكود تقسيم 2.xlsm

طريقة اخرى بالكود ... ستجد جميع ماطلبته في شيت التمويل بالاعتماد على البيانات في شيت يومية الخزينة المعادلة :- النقد الفعلي في الخزينة = ( صافي النقد في الخزينة ( اجمالي التمويل + اجمالي الايرادات - اجمالي المصروفات )) + ( اجمالي العهد ) يومية خزينة2020.xlsm

تفضل ملاحظه اي تغير في موضع الخلايا المستهدفه في اوراق المقاولات ستكون النتائج خاطئة 11 - Copy.xlsm

الكود يعمل وحسب ماطلبت مطابقة / وفلترة/ ترحيل المكرر بين القائمتين مع الصف ( بشرط ان تكون القائمة في العمود A هي الاساس) الى ورقة اخرى اما اذا كنت تقصد ان لايكون اللصق في اخر صف فارغ جرب المرفق في ورقة3 111112.xlsm

حل رائع استاذ محمد وهنا حل اخر المطايقة وترحيل المكرر الى ورقة اخرى 111112.xlsm

تفضل العمال.xlsm

مجرد الاختيار من القائمة يتم تعبئة العمود b تلقائي المطلوب.xlsm

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

1- فيما يخص رسالة التاكيد قبل تفريغ البيانات تم اجراء اللازم 2- فيما يخص الفلترة نفس السبب المشار اليه في المشاركة الاولى يجب عليك اعداد ورقة السجل على هذا الاساس 3- في الملف مرجع دائري او اكثر ابحث عنها وصحح المعادلات نسخة للتعديل.xlsm

الكود يعمل على اساس اللصق بعد اخر صف يحوي بيانات ... وعلى اساس كانت لديلك بيانات اسفل الجدول "عناوين"يتم اعتباراها اخر صف والترحيل بعدها مطلوب تعديل كود الترحيل.xlsm