احمد بدره

تم تحديد الصفوف الخمسة الأولى تكون مكررة في الطباعة فيمكنك تغيير أخر صف من ناحية الطباعة كما تريد وتم أيضًا تحديد العمود الأول يكون مكرر في الطباعة حتى يتسني لك تجميع أوراق كل كشف تفضل المرفق fathy2019.xlsx

جرب هذا fathy2019.xlsx

عليك السلام ورحمة الله وبركاته تفضل المطلوب ورقة الإستهلاك اليومي عامة 2013.xls

بعد إذن أستاذنا الفاضل / تومي محمد شاهد الصورة لتصل إلى الإجابة

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

رائع أستاذنا الفاضل / سليم حاصبيا

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

بارك الله فيك أستاذنا الغالي وجعله الله في ميزان حسناتك

عليك السلام ورحمة الله وبركاته تم الحل بعمل دالة معرفة فتكون المعادلة هكذا =الشقق(C4:S4) Bulding.xlsm

جرب هذا لعله يفي الغرض ترتيب القيم.xlsm

يمكنك تغيير عدد الأعمدة بالذهاب إلى Module1 أو Module2 تبعًا لورقة العمل المناسبة لك في الملف تم إضافة أعمدة في ورقة العمل مثال 1 وورقة العمل مثال 2 فورم ادخال و تعديل مرن مع الصور.rar

بعد إذن أستاذنا الفاضل سليم حاصبيا جرب هذا حساب المكملون بدرس او درسين او اكثر.xlsx

وعليك السلام ورحمة الله وبركاته جرب هذا حساب عدد المشتركون مع الغياب.xlsx

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض 1.xlsx

جزاك الله خيرًا و بارك الله فيك

اللهم اغفر له وارحمه وأدخله فسيح جناتك اللهم ألهم أهله الصبر والسلوان وأدخلته الجنة بسلام وإنا لله وإنا إليه راجعون

عليك السلام ورحمة الله وبركاته أستاذ / saad remon مرحبًا بك في المنتدى هناك الإصدار الرابع فيك طلبك الرابط https://www.officena.net/ib/topic/52482-الاصدار-الرابع-فورم-اضافة-وبحث-وتعديل-مرن-مع-استعراض-الصور-تحكم-كامل-بالصورة/

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

اعتقد أنه لا داعي لهذه المعادلات من F12 حيث الترحيل يستدعي السعر وللتأكيد اذهب للخلية 21 F ستجد المعادلة قم بسحبها لأعلى ستجد نفس النتيجة

جرب هذا لعله يفي الغرض فاتورة جديدة7.xls

الكتابة ظهرك معك بهذه الطريقة لأنك لم تحول اللغة إلى العربية قبل النسخ و قمت بالتعديل على الكود حتى يتسنى لك تشغيل الكود وإليك الملف بعد التعديل Sub Sort() Range("A1:E1001").Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A1001") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A1:E1001") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("F1").Select End Sub Split_cells.xlsm

قبل نسخ الكود تأكد بأن اللغة العربية تم اختيارها من شريط المهام ( أسفل الشاشة ) حتى يتم نسخ الكود بدون مشاكل تأمل الصورة

لا شكر على واجب فكلنا أخوةوالمنتدى تعليمي بالدرجة الأولى

جرب هذا Split_cells.xlsm

عليك السلام ورحمة الله وبركاته أولاً كان يجب عليك رفعت ملف للعمل وكتابة الإجابة المتوقعة ثانيًا جسب فهمي ممكن هذا الملف يفي الغرض المصنف1.xlsx