ibn_egypt

اخى الفاضل تفضل الملف المرفق به شرح الكود كاملا .. وأدعوا الله انى اكون وفقت في الشرح فأخوك ضعيف جدا في مسائل الشرح دى ملحوظة:- الكود المكتوب ده محترم جدا وكتبه شخص محترف جدا جدا جدا ---- تسلم ايده وجزاه الله كل خير علمنا حاجات جديدة تحياتى total.rar

أخى الفاضل ضع هذا الكود في اى موديول لديك وخصص زر لتفيذ الكود في اى شيت لديك Sub getfile() 'فتح الملف المسمي '1.xlsx 'الموجود بالمسار 'D:\احمد 'وتحديد الشيت المسمي 'يناير 2015 'تعريف المتغيرات Dim FileName As String 'هنا يتم تحديد مسار الملف الذي سيتم فتحه Const FilePath = "D:\احمد\" ' اسم الملف الذي سيم فتحه وامتداده مع الاشارة لمساره الذي تم تحديده سابقا FileName = Dir(FilePath & "1.xlsx") 'فتح الملف الموجود بالمسار المحدد والاسم المحدد Workbooks.Open FileName:=FilePath & FileName 'اختيار الشيت ActiveWorkbook.Sheets("يناير2015").Select ThisWorkbook.Close End Sub تحياتي

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

أخى الفاضل أ.أحمد حضرتك بتقول الموظف اشتغل يوم 7-1 والمفروض يتحسب بيومين .. واليوم ده يوم الاربعاء وعلى افتراض ان يوم الاجازة هو الاربعاء دائما حسب ما فهمت... فمرفق ملف به المطلوب اى P في يوم الاربعاء سيتم حسابها بيومين مرفق ملف تحياتى Book2.rar

سبقتنى يا EMembers-3 تحياتي

اخى الفاضل اسمي Ibn_Egypt ولا شكر على واجب قم بترقية الاوفيس لديك الى اوفيس 2010 او 2013 فعدد السجلات يزيد عن مليون سجل تحياتي

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

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

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

أخى الفاضل من خلال البحث في الموضوع ده تحديدا ...اقولك الخلاصة .. لو الملف مفيش فيه اى ماكرو نهائي ومجرد شيتات فقط تستطيع مشاركة الملف في نفس الوقت مع اكثر من مستخدم باستخدام ال One Drive ودي اصبحت اداة مدمجة باصدار اوفيس 2013 ... او ممكن تنزل البرنامج من موقع شركة مايكروسوفت وترفع الملف عليه وهيشتغل كويس وممكن ايضا Google Drive لكن لو فيه ماكرو وأكواد وفورم وكده يبقي بكل أسف لن تستطيع مشاركته .. وانسي الموضوع تماما وكنت فتحت نفس الموضوع من فترة هنا ولكن لا إجابة والأستاذ الفاضل حسام عيسي قعد يرفع فيه كام يوم ولم يتلقي أيضا أى إجابة اهو الموضوع هل أحد واجه هذه المشكلة من قبل ؟؟؟ ما الحل تحياتي

اخى الفاضل أ.مهند هو نفس الكود بالضبط بس خليها -1، علشان صف المجموع لا يدخل في نطاق الترتيب .. كما انك اضفت عمود ثالث وهو C يبقي غير ال B في الكود لتصبح C Private Sub Worksheet_Change(ByVal Target As Range) lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row-1 Range("A2:C" & lr).Sort Key1:=Range("A1"), Order1:=xlAscending End Sub تحياتي ترتيب ابجدي.rar

أخى الفاضل ضع هذا الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row Range("A2:B" & lr).Sort Key1:=Range("A1"), Order1:=xlAscending End Sub تحياتي ترتيب ابجدي.rar

اجعل سطر الكود هكذا ActiveSheet.PageSetup.CenterHeader = "&""Arial Unicode MS""&14" & Me.TextBox1 تحياتي

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

اخى الفاضل ضع السطر التالى في حدث CommandButton1_Click ActiveSheet.PageSetup.CenterHeader = Me.TextBox1 تحياتي

اخى الفاضل وأستاذي الكريم أ.ياسر هذا هو المطلوب فعلا بس نريحه ونخليه يكتب المبلغ الأصلي ( رأس المال ) والمبلغ المسترجع والمعادلة تحسبله اللى هو عاوزه بدل ما يحسب الفرق يدوي .. وعلى افتراض ان راس المال1577 في A1 والمبلغ المسترجع 1677 في B1 =((B1-A1)/A1)*100 او ممكن نستغنى عن الضرب في 100 بس ننسق الخلايا كنسبة مئوية ... مرفق ملف للسائل لعله يكون طلبه .. خالص تقديري واحترامي لك أستاذي الكريم تحياتي المكسب.rar

اخي الفاضل انت جربت البحث اللى على أقصي اليسار فوق ... لو جربته هتلاقي الموضوع ده به طلبك مطلوب دالة تفقيط بالجنية المصرى (تفقيط ارقام) تحياتي

من خلال البحث في أ.Google عن هذه المشكلة ده كان الحل In Excel 2003: go to "Tools" > "Macro" > "Security" and select the "Trusted Sources" tab. Check the box next to "Trust access to Visual Basic Project". (Note: The box for "Trust all installed add-ins and templates" should also be checked.) يعني في اكسل 2003 .. قائمة أدوات -- ثم ماكرو -- ثم امان -- ومن تبويب مصادر التوثيق أو مركز التوثيق نحدد علامة صح على الثقة في الوصول الى طراز كائن مشروع Vba In Excel 2007, use the following navigation: Click on the Office button in the upper left corner Click on the Excel Options button On the left, click on the Trust Center Click on the Trust Center Settings button On the left, click on Macro Settings Click on "Trust access to the VBA project object model" في 2007 ... من زر الأوفيس .. ثم خيارات ... ثم مركز التوثيق ... ثم إعدادات مركز التوثيق ... ثم إعدادات الماكرو ... ثم حدد علامة صح على الثقة في الوصول الى طراز كائن مشروع Vba جرب أ.وليد تحياتي

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

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

جزانا الله واياك اخى الكريم تحياتى

اخى الفاضل جرب الملف المرفق لربما به طلبك تحياتي BetweenNumbers.rar

أخى الفاضل تفضل الملف المرفق تمت اضافة الكود للملف الخاص بك تحياتي امر صرف المالية 2015 (1).rar

أخى الفاضل تفضل الملف المرفق بعد التعديلات الأخيرة ... كلمة مرور محرر الأكواد Office_2003 لا تنسانا من دعواتك تحياتي Generate.rar

اخى الفاضل حدد العمود كامل كما في الصورة التالية واجعل تنسيقه نص ... وادخل اى عدد من الأرقام تحبه لو أردت ان تحذف الورقة 3030 .. لو انت شغال على آخر ملف انا ارسلته .. عدل السطر ده في الكود Set ws = ThisWorkbook.Sheets(2) خليه كده باسم الشيت وليس برقمه Set ws = ThisWorkbook.Sheets("Sheet1") واحذف بقي أو لا تحذف مش مشكلة .. وانا اعتقد والله اعلم انك حذفت هذه الورقة فتسببت في المشكلة التى نوهت عنها في المشاركة رقم 5 ... عدل السطر واحذف ولن تظهر اى مشاكل تحياتي