حمادة عمر

السلام عليكم الاخ الكريم / khalidsoliman بارك الله فيك جزاك الله خيرا

السلام عليكم الاخ الكريم / hoorabie بارك الله فيك وجميل جدا ان تكون من اولي مشاركاتك هذه المشاركة الجميلة فعلا ملف جميل جزاك الله خيرا

السلام عليكم الاخ الكريم / khalidsoliman بارك الله فيك مرور شرف لي وارجو ان يكون الموضوع قد افادك جزاك الله خيرا

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

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

السلام عليكم الاستاذ القدير / عبدالله باقشير بارك الله فيك دائما سنظل نتعلم منك المزيد والزيد زادك الله من علمه جزاك الله خيرا

السلام عليكم الاستاذ الغالي لقلوب الجميع / احمد حمور-ابوعبدالله اعلم انه موضوع الاستاذ الحبيب / ابو حنين .... وطبعا الرد له ... جزاه الله خيرا ولكن عندما رأيت مشاركتك لم اتمكن من امنع نفسي في ان اسال عن احوالك فلقد تعلمنا منك الكثير ونحبك في الله استاذ / احمد ويصعب علينا عدم تواجدك بيننا ... ونريد معنا دائما اعانك الله علي كل ما يقابلك في الحياه ووفقك الله لما تحبه وترضاه لا تغب عنا كثيرا ... فانت قامة من قامات الاكسيل في الوطن العربي واخ لم آراه ولكني احبه في الله وفقك الله وجزاك الله خيرا

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

السلام عليكم الاستاذ الغالي / احمد فضيله اقدم هذه المشاركة لتقديم الشكر لك بارك الله فيك وجزاك الله خيرا

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

السلام عليكم الاخ الكريم / وليد زقزوق من الافضل دائما في كل مشاركة ارسال ملف لتوضيح الطلب اكثر وعلي حسب فهمي للطلب قم بوضع الشيت الذي تريد الانتقال اليه مكانsheet2 في الكود لتحديد الشيت الذي تريده انت فهو هنا في هذا الكود شيت 2 ارجو ان يفي بطلبك ..... او مزيد من التوضيح جزاك الله خيرا Sub FindFirstCellNextRow() Dim x As Integer '============================== Sheet2.Select '============================== x = ActiveSheet.UsedRange.Rows.Count ActiveCell.SpecialCells(xlLastCell).Select ActiveCell.EntireRow.Cells(1, 1).Offset(1, 0).Activate End Sub

السلام عليكم الاخ الكريم / احمد مجدى جرب المرفق التالي والبحث الموجود به ( كما تريد " ان شاء الله ) الايصالات 8++.rar

السلام عليكم الاخ الكريم / mosaline رااائع ان تكون اولي مشاركاتك بهذه الروعة بارك الله فيك وجزاك الله خيرا واليكم بعض الروابط في المنتدي لاثراء الموضوع ( بنفس الموضوع تقريبا ) http://www.officena.net/ib/index.php?showtopic=41833&hl=%D8%A7%D9%86%D8%AC%D9%84%D9%8A%D8%B2%D9%8A http://www.officena.net/ib/index.php?showtopic=34584&hl=%D8%A7%D9%86%D8%AC%D9%84%D9%8A%D8%B2%D9%8A

السلام عليكم الاخ الكريم / محمد فاروق محمود اليك شرح الطريقة فيديو جزاك الله خيرا شرح الطريقة فيديو.rar

السلام عليكم الاخ الكريم / abdoullah اليك اخي الكريم نفس الملف للاخ / مزلزل في المشاركة الاولي مفتوح بدون ارقام سرية جزاك الله خيرا welcome33.rar

السلام عليكم الاخ العزيز / احمد عبد الناصر احسنت صنعاً جزاك الله خيرا

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

السلام عليكم الاخ الكريم / إبراهيم ابوليله اليك اخي الكريم المطلوب بالمرفق ارجو ان يفي بطلبك باستخدام كود بسيط لعمل ذلك مع موديل التفقيط بالملف Sub sama() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Sheet1") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow - 1, 2).Value = NoToTxt(ws.Cells(iRow - 1, 1).Value, "قرشاً", "جنيهاً") End Sub تفقيط_H+.rar

السلام عليكم الاخ العزيز / الشهابي بارك الله فيك احسنت فعلا وصنعاً جزاك الله خيرا

السلام عليكم الاخ الكريم /aspiran تفضل المرفق فاتورات 2012+.rar

السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك والحمد لله انه قد امكني مساعدتك كما ينبغي لك ونحن جميعا هنا لخدمة بعضنا البعض وننتظر اولي ابداعاتك وبرامجك باذن الله بعد ذلك ودائما اي استفساار او طلب كلنا في الخدمة جزاك الله خيرا

السلام عليكم بعد اذن الاستاذ العزيز / مجدي اليكم رابط الموضوع الذي يقصده الاستاذ العزيز / مجدي والخاص ببرنامج التسجيل لتعم الفائدة ايضا لمن يقم بالدخول علي هذا الموضوع ويري طلبي من الاستاذ / مجدي http://www.officena.net/ib/index.php?showtopic=45811 جزاك الله خيرا

السلام عليكم الاستاذ العزيز / mahmoud-lee بارك الله فيك استخدام امثل لدالات الاكسيل في القوائم المنسدلة وبالفعل هي قوائم جديدة بحق انت (( عميد المعادلات )) جزاك الله خيرا

السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك بالنسبة لازرار الخروج فانت تستخدم End وهي تعمل علي انهاء ظهور الفورم بالكامل وما عليك سوي تغيير هذا الامر في زر الخروج الي احد الخيارين التالين ووظيفتهم هي اخفاء الفورم الموجود امامك فقط Hide او استخدم Unload me ليكون بذلك الكود الخاص بزر الخروج كالتالي Private Sub CommandButton11_Click() Hide End Sub او استخدم Private Sub CommandButton11_Click() Unload me End Sub ولكني لم افهم المقصود بالنسبة لترتيب الادخال !!! وبخصوص شاشة الاستعلام تم عمل المطلوب في الشاشة الخاصة بذلك ويتم الاستعلام عن طريق رقم الموظف كما طلبت جزاك الله خيرا استعلام1112.rar

السلام عليكم الاستاذ القدير / عبدالله المجرب وعدت فأوفيت .... فقد وعدت الاخ / حسين بعمل ذلك وكان الجميع في انتظاره وبالفعل انت راااائع حقا وشروحاتك روووعه جزاك الله خيرا