deebsagheer

الاخ طارق بعد التحيه اشكرك علي تفاعلك معي و بالفعل اختصارك للحود اعطي نتيجه جيده لكن اذا استخدمت الخلية A3 & D3 في التصفيه بالورقه تسجيل الحركات كان الكود بطيئا جدا و اعتقد ان كود التصفيه هو السبب لأنني قبل اضافة هذا الكود كان العمل سريعا الي حد ما ارجو الافاده و لك جزيل الشكر كذلك اذا عملت استحقاق في هذه الورقه و اردت ان الغيه يحدث توقف للكود الا اذا الغيته بعد اختيار تقارير لذا فهو يحتاج مع جملة if في استحقاق او تحصيل جملة Else ارجو ان اكون قد اوضحت وشكرا

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

السلام عليكم اخواني ألا يوجد رد علي الموضوع؟ امل من الخبراء الرد و العمل علي زيادة سرعة البرنامج مع الشكر و التحيه مع العلم أن كلمة المرور للاكواد هي lwvhguvfdm

هذا هو الملف مع التحيه إيجارات مول تجاري.rar

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

الاخ يوسف اسمح لي بالمساعده يجب ان يكون هناك عنوان واحد للحدث و بعد كتابة الكود الاول و قبل كتابة عبارة end sub اضف الكود الثاني بدون عنوان ثم انهي الحدث بالعبارة End sub كما هو مبين اسفل ارجو ان تكون مساهمتي فعاله تحياتي Private Sub Workbook_SheetSelectionchange(ByVal Sh As Object, ByVal Target As Range) If Target.HasFormula Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If Selection.NumberFormat = "[=0]0;[>99]0;#.#" End Sub

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

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

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

السلام عليكم إخوتي الكرام في المنتدي العظيم مرفق ملف ايجارات مول تجاري ، الفكره تتلخص في الاتي هناك محلات تجارية تؤجر لمستاجرين بمبلغ معين لكل محل و فيه 5% من الايجار للصيانة و 2.5% منه للسعي و الدعاية غالبا ما تكون 1500 و لكنها ليست دائمة من هذا المنتدي حصلت علي بعض الاكواد و استخدمتها في الملف و أشكر كل الاخوه الذين قاموا بتصميمها و أنا انسب الفضل لهم في الورقه (البيانات) سجلت بيانات المحل مستندا علي رقم المحل و رقم المستاجر المسجل في ورقة كود المستأجرين في ورقة (الاستحقاقات) اكتب رقم المحل فيتم استدعاء بياناته من ورقة البيانات و يسجل الاستحقاق للمحل الواحد مرة واحده بالعام في ورقة التحصيل اسجل التحصيل مثل ما سبق الا ان استدعاء البيانات هنا سيكون فقط 3 اعمده من ورقة البيانات في ورقة المعيار استخدمة معادلة sumif لكي احصل علي اجماليات المحلات و المستاجرين و النتيجه كل شيئ علي مايرام و طبعا اعلم ان هناك افضل مما صنعت انا و اعني بذلك استخدام كود بدلا من المعادلة و حاولت لكن لم استطيع توسيع النطاق بالكود ليعطي اجمالي كل عمود ( مثل الايجار- الصيانة-السعي الخ) المطلوب من حضراتكم أولا:استبدال المعادلة بكود يحقق الغرض ثانيا تسريع الملف لانه بطيئ جدا ثالثا عمل كشف حساب مفصل بالحركات الخاصة بالمحل في صفحة كشف الحساب باستخدام استعلام حسب رقم المحل و حسب رقم المستأجر مع أي اضافة تفيد الغرض و في الختام لكم الشكر الجزيل و العرفان بجميلكم و زادكم الله من فضله لم استطيع ارفاق الملف

السلام عليكم ارجو من اخواني في المنتدي شرح كيفية استخدام كود الدالة sumif لعمل اكثر من نطاق لعمود My sumif range في نفس ورقة العمل و يمكن تطبيق هذا الطلب علي أحد الملفات السابقة و الموجوده تحت هذا الموضوع و لتوضيح طلبي اكثر أريد ان يعمل الكود علي أكثر من Range شاكرا لكم حسن تعاونكم

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

السلام عليكم و رحمة الله لقد حملت ملف اكسيل من هذا المنتدي الرائع و كنت فاتح ملف به ما يقرب من 20 ورقة عمل و فجأة عندما فتحت ملفي مرة ثانية و جدت به ورقة عمل واحدة يمكنني ان اكتب فيها و احفظها لكن لايمكنني نسخ الورقه و لا اضافة ورقه جديده و لا اظهار الاوراق الباقيه و عندما ضغط ALT +F11 وجدت الاوراق المخفيه لكني لا استطيع الوصول الي المعلومات التي بداخلها. أرجو ممن يستطيع اظهار الاوراق بالملف المرفق أن يسدي لي هذه الخدمة شاكرا لكم و معاتبا لمن فعل بي هذا المقلب.