محمد يوسف

اساتذة وخبراء هذا المنتدي الجميل جزاكم الله خيراً علي المساعادات التي تقدمونها لجميع هل توجد طريقة لنقل ملف اكسيل من فولدر الي فولدر اخر بشرط---- الشرط اذا كان 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

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

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

وعليكم السلام تفضل هذا الكود للاستاذ احمد زمان ستجد به ماتريده https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=186162

اخي تفضل : بالمعادلات : وليس بماكرو تفضل المعادلات المستخدمة الاولي ملادي =TEXT(B12;"[$-,197000]B2dd/mm/yyyy;@") الثاني هجري =TEXT(B6;"[$-,197]B2dd/mm/yyyy;@") تحياتي لك تحويل التاريخ الهجري الى ميلادي والعكس-0.xlsx

وعليكم السلام ورحمة الله وبركاتة تفضل التاريخ هجري والعكس.xls جزاك الله خيرا

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

استازى الكبير احمدزمان طلب اخير لو امكن هل من الممكن عندما يوجد نفس اسم العميل يتم تحديث بيناته يعني استبدال البينات - بدل تكرار اسم وبيانات العميل شكراً لحضرتك وجزاك الله خيراً

استاذنا الكبير احمدزمان بجد شكرا علي طول بالك معي وانا اسف علي كثرة طلبي المطلوب عكس ما في الرسالة : اريد ان يعمل علي تحديدات متعددة استاذي احمدزمان عجز لساني عن شكرك اسأل الله ان يجزيك به خيراً شرح اوضح مختار.rar

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

استاذ محي الدين ابو البشر جزاك الله خيراً يوجد خطأ ممكن بعد اذن حضرتك توفقة مع الملف لو امكن ................ الباسورد 123 mokhtar4.xls الملف الرئيسي.xlsm

استاذى الكبير عبدالفتاح في بي اكسيل شكراً علي سرعة الرد بالفعل نفذت ما ذكرته ولكن يظهر لي خطأ

اساتزه وخبراء هذا المنتدي جزاكم الله خيراً بحثت كثير في المنتدي ولم اجد ما اريدة هل يوجد مساعدة من الاخوه الافاضل لأهميه الموضوع الخاص بي انا محتاج هذا الكود ضروري جزاكم الله خيرا انا وجدت هذا الكود لأحد اساتزة هذا المنتدي وقمت بتعديله ليناسبني ولكن في خطأ مش فاهم Sub export_data() Dim MOKHTAR As Workbook Dim mokhtar4 As Workbook Dim lr2 Dim arr Application.ScreenUpdating = False Set MOKHTAR = ActiveWorkbook Set mokhtar4 = Workbooks.Open("d:/INPOTEXCELL/mokhtar4.xls") MOKHTAR.Range("c2,c3,c4,c5:,d5,g1,g2").Copy With mokhtar4.Sheets(1).Range("A1").Range("a" & Sheets("Sheet1").[a65536].End(xlUp).Row + 1) .PasteSpecial xlValues .PasteSpecial xlFormats End With Application.Quit End Sub يوجد خطأ في هذا الستر ولم اعرفه MOKHTAR.Range("c2,c3,c4,c5:,d5,g1,g2").Copy INPOTEXCELL.rar