محمد يوسف

اساتذة وخبراء هذا المنتدي الجميل جزاكم الله خيراً علي المساعادات التي تقدمونها لجميع هل توجد طريقة لنقل ملف اكسيل من فولدر الي فولدر اخر بشرط---- الشرط اذا كان a1 مكتوب فيها خالص يتم نقل الملف الي الفولدر الاخر جزاكم الله خيراً وجعله في ميزان حسانتكم الملف فواتير.rar

استاذة وخبراء هذا المنتدي الجميل السلام عليكم ورحمة الله وبركاته هذا الفورم (للمبدع شوقي ربيع) اريد تعديل بسيط ليناسب عملي التعديل المطلوب عند طباعه الفاتورة يتم طباعة كل البيانات الموجود في الفورم حوالي 30 ستر FcteurRabie.xls

السلام عليكم ورحمة الله وبركاتة اساتزة وخبراء هذا المنتدي الجميل بارك الله في علمكم ونفعكم به اريد دمج كودين Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("A1,B1,C:C,D:D") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub Private Sub Worksheet_SelectionChange(ByVal X As Range) Application.ScreenUpdating = False 'åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ' ActiveWindow.Zoom = 50 ' áÅÚØÇÁ Òææã ÈÞíãÉ ãÚíäÉ áäÇÝÐÉ æÑÞÉ ÇáÚãá ÇáÍÇáíÉ ActiveSheet.Cells.Interior.ColorIndex = 0 ' åÐÇ ÇáÓÑ ÎÇÕ ÈãÓÍ Çááæä ' ActiveSheet.Cells.Font.Bold = False X.Cells.Font.ColorIndex = 1 'åÐÇ ÇáÓÊÑ ÎÇÕ Èáæä ÇáäÕ ÏÇÎá ÇáÎáíå X.Cells.Font.Bold = True X.Cells.Interior.ColorIndex = 19 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÊÛíÑ Çááæä [g8] = Application.WorksheetFunction.Sum(Range("g9:g11")) 'åÐÇ ÇáÓÊÑ ÎÇÕ ÈÌãÚ ÚãæÏ ãÚíä' Application.ScreenUpdating = True ' åÐÇ ÇáÓÊÑ áÚÏã ÇåÊÒÇÒ ÇáÔÇÔÉ ' End Sub مرفق دمج كودين.xls جزاكم الله خيراً

استاذ سليم حاصبيا جميل جداً جزاك الله خيراً تعديل بسيط عايز عندما ادخل البيانات في عمود dوe --- يتم تنفيز الماكرو - مش شرط ملئ البيانات من b الي E شكرا وجزاك الله خيراً هل يوجد طريقة للأستغناء عن الدالة في عمود a او يتم الاستغناء عن ملئ جميع البيانات ؟ شكرا لحضرتك وجزاك الله خيراً

استاذ سليم حاصبيا جزاك الله خيراً وشكراً علي ما تقدمه لنا من مساعدات عملية الجمع تعمل بنجاح ولكن الضرب والطرح لا يعمل ضرب عمود d*e =الناتج في عمود f كما هو في الملف المرفق في المشاركة الاولي ارجو المساعدة من حضرتك في اكمال المطلوب الطلب الاخير اريد ان يعمل بدون زر---- يعمل تلقائي شكراً لحضرتك وجزاك الله خيراً

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

الف مليون مبروك ومن تقدم الي تقدم انشاء الله

تفضل تم اصلاح الخلل الان يعمل بدون اي مشاكل البرنامج الجديد 2021 (1) (12).xlsm

تفضلالبرنامج الجديد 2021 (1) (12).xlsm هل تقصد هكذا

ريتاج المدينة لم افهم شئ -- مذا تقصد بالملف الاصلي --- وما هو الشيئ المراد ادراجة -- واين يتم ادراجه من فضلك وضح

تفضل البرنامج الجديد 2021.xlsm

السلام عليكم تم التعديل في هذا الستر ' TextBox115.Value = 5 ''هنا حدد النسبة ' تفضل البرنامج الجديد 2021 (1).xlsm

وعليكم السلام - تفضل البرنامج الجديد 2021 (1).xlsm

ماشاء الله جزاك الله خيراً

وعليكم السلام ورحمة الله وبركاتة اخي الحبيب: اين تريد كتابة التاريخ" - واين تريد تحويل التاريخ؟ وضح من فضلك جزاك الله خيرا