ياسر خليل أبو البراء

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

تسلم أخي الحبيب ابن مصر على هذه الرائعة الجميلة

روعة أخي الحبيب سليم لا حرمنا الله منك .. وجزاك الله خير الجزاء يوجد بمكتبة الصررح دالة تقوم بعمل الدالتين (يعني 2 * 1 زي برت بلس) Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function وهذا ملف مرفق به تطبيق الدالة جانباً إلى جنب مع دالتيك الرائعتين حروف و أرقام.rar

أخي الحبيب ابن مصر إليك المرفق التالي الذي يوضح الفرق في السرعة (هناك ثلاثة أكواد مختلفة لتحقيق الهدف .. شوف الكود الثالث لأنه لا يستخدم الحلقات التكرارية ستجد أنه الأسرع) Comaprison.rar

أخي الحبيب الغالي ابن مصر أعتقد أن الموضوع شبه مكرر (كان فيه موضوع مشابه لهذا الموضوع) وحضرتك قدمت حل رائع بنفس الأسلوب (مراقبك وبضيف كل مفيد من ناحيتك) بس لي تعقيب بسيط (الحلقات التكرارية المتداخلة مع البيانات الكثيرة يمكن أن تتسبب في ثقل تنفيذ الماكرو) وحضرتك سيد العارفين فهذا حل آخر لإثراء الموضوع وليس كبديل من باب التنوع في الحلول حل آخر مع الشرح (ويا ريت نبدأ بحملة الشرح لأي كود جديد أو مفيد أستاذي ابن مصر) إليك الحل الآخر Sub GetId() Dim Cell As Range, Rng As Range 'سطر لتجنب الخطأ في حالة عدم العثور على نتائج On Error Resume Next 'تعيين نطاق البيانات في ورقة البيانات الرئيسية Set Rng = Sheet1.Range("B3:C" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) 'عمل حلقة تكرارية لكل خلية من خلايا النطاق المراد إظهار النتائج به ، في العمود الثالث For Each Cell In Sheet2.Range("C4:C" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) 'قيمة الخلية تساوي نتيجة البحث عن الخلية المجاورة في نطاق البيانات ، ويكون الحبث في خانة العمود الثاني Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -1), Rng, 2, False) Next Cell End Sub بدون ملف مرفق متعمداً حتى تستطيع أخي شكيب بدء التعامل مع الأكواد وكيفية تطبيقها بنفسك

أخي الحبيب أهلا بك في المنتدى ونورت بين إخوانك أولا قم بتحديد النطاق وليكن A1:F10 مثلاً .. ثانيا من التبويب Home اختر Conditional Formatting ثم اختر الأمر New Rule ثم اختار ثاني اختيار المسمى Format only cells that contain ومن القائمة المنسدلة الأولى اختر Cell .Value ستجدها هي الاختيار الافتراضي ، ومن القائمة المنسدلة الثانية اختر Equal To ثم اكتب المعادلة التالية في الحقل الأخير بهذا الشكل =MIN($A$1:$F$10) اضغط على كلمة Format ثم التبويب Fill واختر اللون الذي ترغبه ثم أوك ثلاثة مرات ...

أخي الحبيب ياسر البنا يفضل طرح طلبك في موضوع مستقل (دا إذا مكانش فيه تعب ليك)

هل هذا ما تقصده إذا لم يكن ما تقصده فيرجى التوضيح أكثر .. Problem 10 Solution V2.rar

وعد الحر دين عليه .. لقد ألزمت نفسك ..فلا تنسى وعدك

أخي الحبيب أحمد مرجان تفضل المرفق التالي بدون أزرار ... في الخلية G1 يوجد قائمة منسدلة تستطيع من خلالها اختيار الشهر ليظهر لك الشهر الذي تريده فقط ويختفي بقية الشهور Unhide Specific Rows.rar

تفضل أخي الفاضل تغيير الكود للصفحة الحالية.rar

تفضل أخي الحبيب المرفق التالي Problem 10 Solution.rar

أخي الحبيب أحمد أهلا بك في المنتدى ..نورت وشرفت بين إخوانك يرجى إرفاق ملف أخي الفاضل

أخي الحبيب البيلي جرب الملف التالي.. كشف 12 د امتحانات شعبة ادارة بنين 2015.rar

ممكن نموذج لشكل النتائج المتوقعة

نعم أخي الحبيب يمكن الاستغناء عن اسم الشيت بهذا الشكل ActiveSheet. حيث كلمة ActiveSheet تعني ورقة العمل الحالية .. فيمكنك مثلاً تحديد الخلية A1 بهذا الشكل مع ورقة العمل النشطة ActiveSheet.Range("A1").Select ولكن إذا كان هناك تعامل في الكود مع أكثر من ورقة عمل أو أنك سوف تتعامل مع أكثر من مصنف فأحبذ أن تكون تقليدي كما في الأكواد المرفقة في مشاركتك ThisWorkbook.Sheets("Sheet1").Range("A1").Select

أخي الكريم جرب الملف التالي .. ومتنساش تدعي لي Transpose Data.rar

طيب ما تستغني عن أزار الأمر هذه واستخد زر الأمر Form Button أعتقد مفيهوش مشاكل ممكن المشكلة تكون الـ ActiveX Controls بتختلف من نسخة أوفيس لأخرى أو من 64بت إلى 32 بت والله أعلم للتغلب على مشكلتك أقترح استخدام الأزرار الأخرى المسماة Form Button وضع الأكواد في موديول وليس في حدث الورقة ..

أو يمكنك حل مشكلتك بأن تدخل وضع التصميم وتنقر على زر الأمر وتعرف اسمه من خلال صندوق الاسم اللي بيكون على يسار شريط المعادلات فمثلاً زر الأمر المسمى تصدير الخلاصة إلى PDF لو نظرت في صندوق الاسم ستجد أن يحمل اسم CommandButton2 .. روح لصفحة الأكواد ، كليك يمين على زر الأمر ثم View Code وفي أول سطر غير رقم زر الأمر Private Sub CommandButton21_Click() ThisWorkbook.Sheets(Array("1")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "C:\Temp.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub في السطر الأول غير الرقم 21 إلى 2 بس متنساش تحذف هذا الجزء لو كان موجود Private Sub CommandButton2_Click() End Sub لأن مينفعش يكون فيه إجراءين بنفس الاسم

أخي الحبيب المصنف المسمى (عدم فتح المصنف 2) ظهرت رسالة خطأ عند الفتح ، حيث أنه في كود فتح المصنف الإشارة إلى ورقة عمل اسمها (الصفحة الرئيسية) وهي ليست من ضمن أوراق العمل الحالية. ثانيا الأزرار على ورقة العمل لا تعمل لأنها غير مرتبطة بكود ..اذهب للتبويب Develope وانقر على Design Mode خليك في وضع التصميم ثم كليك يمين على زر الأمر ستجد أمر اسمه View Code اختاره ستجد أن زر الحفظ مثلا ليس له كود .. إذا كانت الأكواد الموجودة في حدث ورقة العمل تعرف ما عملها تماما انقلها داخل الإجراء الخاص بهذا الزر Private Sub CommandButton1_Click() End Sub هذا هو شكل الإجراء .. هذا السطر هو الخاص بالحفظ ActiveWorkbook.Save قم بنقله إلى داخل الإجراء السابق ليكون بهذا الشكل Private Sub CommandButton1_Click() ActiveWorkbook.Save End Sub

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

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

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

نظام الويندوز لديك 64 بت وهو ما يسبب لك هذه النوعية من المشكلات ..

طيب اتعب نفسك واشرح شكل الدنيا عندك حرف العمود وما هي البيانات التي يحتويها .. وجرب اعمل Insert إدراج لعمود قبله مرة وابعده مرة .. وهل فيه تعليقات؟ وهل فيه خلايا محمية ؟ ولو فيه خلايا محمية ايه هي الخلايا ..خليك عنينا اللي بنشوف بيها