محي الدين ابو البشر

السلام عليكم أخي العزيز هناك حلين الأول يمكن وضع السطر التالي بعد الانتهاء من عملية اللصق <Application.CutCopyMode = False> او استخدم النسخ واللصق بدون استخدام الذاكرة بمعنى استخدام الـ (clipboard) كما التالي Range("A1:I1105").Copy Sheets("Sheet2").Range("B2")

السلام عليكم فعلاً الصقر صقر بارك الله بك

السلام عليكم جعله في ميزان أعمالك وجزاك الله كل خير اكثر من رائع دمتم زخراً

انا اسف عم احاول ارفع الملف لكن في عندنا مشكلة بالنت مع ذلك المحاولات جارية السلام عليكم استاذ ياسر هي هيه فعلاً Application.EnableEvents=false حلت المشكلة لا ادري بماذا ادعو لك جزالك اله كل خير وانالك مبتغاك وادخلك جناته من اوسع ابوابها

نظرياً كلامك صحيح لكن دعني اقول ذلك بلغة المحكية: ما عم "يلحق "يحذف الكود لانه عند تفعيل الشيت يبدأ تنفيذ الكود في حدث الصفحة ويتوقف لان التعريفات غير موجودة في WORKBOOK الجديد

عفوأ استاذ ياسر الكود في الحدث هو Private Sub Worksheet_Activate() لذلك تحدث المشكلة لا أريد حذف الكود من الصفحة المصدرة بل من حدث النسخة واسف على تعبك معي جزاك الله كل خير وبركة

استاذ ياسر المشكلة أنه يقوم بتنفيذ الكود في حدث الشيت المنسوخة بمعنى أن الكود لا يمسح قبل النسخ مع أني غيرت اسم التاب عندي إلى DATD ؟؟؟؟

السلام عليكم بارك الله بك استاذ ياسر اكثر من ساعة وانا احاول أن انزل الملف من الرابط المذكور "عبث" مع العلم أني نسخت الكود غلى الملف الذي أعمل عليه لم يعمل إلا إذا ألغيت الكود من حدث الصفحة احاول تنزيل الملف لااحدد أين أخطأت أنا ادو لي ان انجح في الاتنزيل دمت ذخراً وأثابك الله

<Sub SplitSpecificSheet() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Set SH = Sheets("Data") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\Export\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value Application.ActiveWorkbook.Close True End With Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub > السلام عليكم ورحمة من لدنه وبركات هذا كود رائع وجميل للاستاذ ياسر خليل مشكلتي معه أن الشيت الذي اسمه DATA عندي (اسمه غير هذا بالطبع) يوجد فيه (Private Sub Worksheet_Activate()) فعندما يقوم هذا الماكرو بالتصدير يصدره مع الماكرو الموجود في حدث الصفحة بمعنى مشكلة ممكن اقتراح حل

حسناً فيها وجهة نظر بارك الله بك

السلام عليكم بعد إذن الاستاذ ياسر يمكن إضافة إلى شريط المعلومات ايقونة close all file-option- customize ribon-ADD (close all) اعتقد انها تفي بالغرض والله أعلم

السلام عليكم استاذ سليم ابداع ما بعده ابداع بارك الله

السلام عليكم أخي العزيز بالمرفق حل لاحى المشكلتين تقبل تحياتي تنسيق شرطي تلقائي.rar

السلام عليكم استاذ دروبي ألف مبروك وإلى أعلى المراتب بإذن الله

السلام عليكم بارك الله بك استاذ محمد الريفي وجزاك الله كل خير تستحقه ادامك الله ذخراً

السلام عليكم أخي االعزيز في المرفق دالة معرفة لحساب اانسب أرجو أن تنال الإعجاب دالة النسبة الميؤية.rar

السلام عليكم استاذ ياسر جربت الكود على 2013 يعمل جيداً لدي سؤال في السطر For R = 2 To UBound(VA) .Item(VA(R, 11)) = .Item(VA(R, 11)) & " " & VA(R, 7) Next R الرقمين 11 و7 من أين جاءا فقط أحاول أن افهم الكود اذا لم يكن لديك مانع وجازاك الله كل خير

كلامك صحيح استاذ حسين لكن مشكلتي ان هذه الدالة التي اتمناها سوف استخدمها في معادلة طويلة نوعا ما لاختصار طول المعادلة بالمناسبة هذا function جربت فيه ما اريد لكن المشكلة أنه يسبب بطء شديد عند تطبيقه (حوالي 500 -600 قيمة) كنت اتمنى أن اجد ما هو اسرع منه Function percent(TargetCell As Range) As Double Application.Volatile Dim C Dim n As Double n = TargetCell.Value Select Case n Case Is > Sheet5.Cells(10, 15).Value: C = Sheet5.Cells(10, 13).Value Case Is > Sheet5.Cells(9, 15).Value: C = Sheet5.Cells(9, 13).Value Case Is > Sheet5.Cells(8, 15).Value: C = Sheet5.Cells(8, 13).Value Case Is > Sheet5.Cells(7, 15).Value: C = Sheet5.Cells(7, 13).Value Case Is > Sheet5.Cells(6, 15).Value: C = Sheet5.Cells(6, 13).Value Case Is > Sheet5.Cells(5, 15).Value: C = Sheet5.Cells(5, 13).Value Case Is > Sheet5.Cells(4, 15).Value: C = Sheet5.Cells(4, 13).Value Case Is > Sheet5.Cells(3, 15).Value: C = Sheet5.Cells(3, 13).Value Case Is > Sheet5.Cells(2, 15).Value: C = Sheet5.Cells(2, 13).Value Case Is > Sheet5.Cells(1, 15).Value: C = Sheet5.Cells(1, 13).Value End Select percent = C End Function هل يمكن مساعدتي جزاك الله كل خير أخي الكريم انا جد آسف على التأخير كن اكتشفت المشكلة وهي Application.Volatile بالاستغناء عنها اصبح الوضع طبيعي اسف مرة أخرى واعذرني بارك الله بك وبجهودك وسر خاطرك وجزاك كل خير

محفظة اكواد.rar

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

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

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

استاذي الحبيب ياسر يبدو أني لم اوضح بشكل جيد الرجاء في الشيت 2 التي هي النتيجة لاحظ أن لورين أحمد مكرر مرتين A16 & A33 وهما متطابقين تماما حتى انني اضفت فراغا لاحدهما فاعتبرهما الاكسل في التنسيق الشرطي غير مكررين وايضا نسخت الاسم في الشيت 1 نسخ وجربت الماكرو فاعطى نفس النتيجة بالمناسبة ليست كل الاسماء ام انني اعمل شيئ خاطيء تعبت يوجد مشكلة ما في مكان ما

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

السلام عليكم استاذ ياسر من النظرو الأولى يعمل الكود الذي تكرمت به جميل ويعمل كما يجب لكن عندما طبقته عملياً ظهرت لدي مشكلتين الأولى أنه يعتبر الخلية الفارغة وهي موجودة عندي في ورقات العمل لا يمكنني إلغائها. المشكلة الثانية هي ان بعض الاسماء تبقى مكررة في المرفق تطبيق للكود وفي الشيت 3 النتيجة أرجو إلقاء نظرة وابداء الرأي جزاك الله كل خير القيم الفريدة.rar