skyblue

الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد امل المساعدة في الترحيل كما في الملف المرفق : ترحيل من h10 :i10 في ورقة 1 الى ورقة (الامانات ) a: b ترحيل من K10 :L 10في ورقة 1 الى ورقة (الامانات ) a: c تحياتي book12.rar

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

السلام عليكم ورحمة الله وبركاته الاساتذة المشرفين والاعضاء الافاضل برجاء المساعدة في المطلوب : اذا كان textbox25 غير فارغ فاننا نضع في textbox27 العبارة التالية رصيد الامانات في النموذج المرفق نموذج.rar

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

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

الاساتذة المشرفين والاعضاء الافاضل السلام عليكم ورحمة الله وبركاته وبعد في الملف المرفق الكود التالي : Sub abu_ahmad() Dim cl As Range For Each cl In Range("D7:D" & [D1500].End(xlUp).Row) If Len(cl.Value) < 8 Then GoTo 0 If Len(cl.Value) > 9 Then cl.Value = [E2].Value & " _ " & cl.Value 0 Next End Sub هذا الكود يعمل بشكل ممتاز ولكن المشكلة فيه انه عند ما اعمل كليك يقوم بتكراراضافة التاريخ وهكذا .... فما هي المشكلة في الكود . تجميع الخلايا في خل0ية واحدة.rar

لاباس ياابو احمد طهور ان شاء الله . اسأل الله العظيم رب العرش العظيم ان يشفيك

up

الكود لايتعامل مع الجملة التي تكون اكبر من 8 . فمثلا الجملة ( زيادة في رصيد البنك شهر ) هذه الجملة لايتعامل معها الكود على الرغم ان عدد حروفها تجاوز 16 حرف الكود يتعامل فقط مع الجملة اذا كانت 7 فاقل او اذا كانت الجملة 8 فقط . حسب المرفق تجميع الخلايا في خل0ية واحدة.rar

اليوم طبقت الكود على برنامج لدينا في العمل فاعطة نتيجة مبهرة ونحتاج الى اضافة بسيطة على الكود ليحقق لنا المطلوب كاملا . مرفق ملف به الحالة تحياتي للجميع تجميع الخلايا في خل0ية واحدة.rar

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

هناك مشكلة في الكود وهي كلما عملنا كليك يزيد التاريخ

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

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

استاذ yahiaoui نعم هذا المطلوب وزيادة لك مني دعوة بظهر الغيب من ارض مكة وهذه ايضا لك

استاذي العيدروس انا لااقتصد التكست الثاني فانت سبق ان عملته لي مشكورا . لكن انا بصدد لو استخدمت زر الخروج فقط ثم رجعت للفورم لااجد البيانات هذا مااقصده .

لقد جربت القورم . فعندما اخرج ثم اعود لااجد البيانات التي سبق تسجيلها

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

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

الاساتذة المشرفين والاعضاء الافاضل الموقر السلام عليكم ورحمة الله وبركاته ارجوا المساعدة وحسب المرفق تقبلوا تحياتي نموذج.rar

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

الاساتذة المشرفين والاعضاء الافاضل المحترمين برجاء المساعدة في الملف المرفق تحياتي لكم نموذج3.rar

اشكرك استاذي على ردك لي وهذا من فضل الله .حقيقة انت استاذ متمكن من تفنيدك للامور وتوقعك لها , على الرغم انني اخطأت في المطلوب فقد كنت اريد ان لايتم الترحيل من النموذج الى ورقة2 اذا كانت الخلايا في ورقة 2 فاضية . وكان الكود الثاني هو المطلوب كما توقعته انت وحل المشكلة التي لدي 100% . وهذه لك مني وادعوا الله لك بالتوفيق

الاساتذة المشرفين والاعضاء الافاضل بعد النحية امل التكرم بالمساعدة في في الملف المرفق تحياتي نموذج.rar

شكرا للاساتذة addora2006 و yahiaoui حلول متنوعة رائعةحلت الاشكال الذي واجهني في عمل برتامج لدي . الشكر ايضا موصول للاستاذ عبدالله المجرب ابوأحمد الذي يتحفنا دائما بالروائع الجميلة .