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

أخي الكريم أفضل دائماً عندما يكون الطلب مختلف أن يتم طرح موضوع جديد ..لكن لا عليك هذه المرة تفضل ما طلبت إن شاء الله يكون المطلوب Hide All Rows Except The Specific Ten Rows YasserKhalil Officena

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

بالنسبة للشرط المطلوب إضافته ..ممكن تكتب الشرط بالشكل ده If target.Row > 7 And target.Row <= Lr And target.Column = 18 And Not IsEmpty(Range("A" & target.Row)) Then

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

أخي الكريم وائل جرب الملف التالي وإن شاء الله يفي بالغرض Import All Text Files From Specific Folder To Worksheet YasserKhalil Officena

حدد الخلية التي بها القائمة المنسدلة ثم اذهب للتبويب Data ثم Data Validation ثم انظر لقائمة List من أين مصدر القائمة وستعرف مكانها ...

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

أخي الكريم وائل الأمر ملتبس علي بعض الشيء ..هل تريد المخرجات بالنسبة للملف النصي الواحد في خلية واحدة فقط ؟ أم تريد المخرجات في عدة صفوف للملف النصي الواحد؟ جرب تشيل السطر التالي من الكود (ستجده موجود مرتين) ..احذف السطرين NewText = Application.Clean(NewText) تقبل تحياتي

بارك الله فيك أخي الغالي أبو حنين الكود الخاص بك يظهر اللغة العربية بحروف غريبة .. أخي الكريم وائل جرب الملف التالي ، وإن شاء الله يفي بالغرض .. سيظهر لك نافذة تحدد من خلالها المجلد الذي يحتوي الملفات النصية قم بتحديد المجلد لتظهر لك كل النتائج في العمود الأول .. Copy All Text Files From Folder To Worksheet YasserKhalil Officena

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

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

السلام عليكم حسب ما فهمت ..جرب الكود التالي في حدث ورقة العمل حيث سيكون التأثير على الصف الذي يتم فيه التعديل فقط Private Sub Worksheet_Change(ByVal Target As Range) Dim Lr As Long Lr = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False If Target.Row > 7 And Target.Row <= Lr And Target.Column = 18 Then Target.Offset(, 1).Value = Application.WorksheetFunction.Sum(Target.Offset(, -2).Resize(1, 3)) End If 'يمكن بنفس الطريقة تطبيق الثلاثة أسطر السابقة على بقية النطاقات مع تغيير طفيف Application.ScreenUpdating = True End Sub

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

صراحة لم أفهم المطلوب بشكل واضح ..عموماًُ إذا كنت تريد تغيير النطاق فقم بتغيير السطر التالي Set myRange = Range("B21:B" & Lr) استبدل حرف الـ B بحرف الـ A ، للتعامل مع العمود الأول وليس الثاني

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير تقبل تحياتي

بارك الله فيك أخي الكريم محمد الفرس ومشكور على المجهود الرائع المبذول في المنتدى إثراءً للموضوع جرب المعادلة بهذا الشكل =IF(A4=$G$5,"متوافق","") إذا لم تعمل المعادلة قم باستبدال الفاصلة العادية لفاصلة منقوطة ** أعتقد الموضوع تم طرحه من قبل وأجبت فيه فيرجى وضع الرابط لدمج الموضوعين أو لحذف أحدهما .. راجع التوجيهات أخي عمر

السلام عليكم بارك الله فيك أخي الحبيب زيزو العجوز والذي يعمل في صمت دائماً ، وكم أعشق حلوله .. وهذه ليست مجاملة والله ، فإنك لديك موهبة فذة في بناء الكود الأخ الكريم أحمد أبو محمد .. قم بتحميل الملف التالي وإن شاء الله يفي بالغرض رابط الملف من هنا Hide Every Ten Rows After Each Click Using Static YasserKhalil Officena

السلام عليكم يمكن استخدام دالة IF الشرطية والتي يليها 3 بارامترات الأول إجباري والثاتي والثالث اختياري الأول هو الشرط المطلوب وهو كما ذكرت تساوي الخلية A4 مثلاً مع الخلية G5 .. ستقوم بتثبيت الخلية G5 حتى لا تتغير مع السحب البارامتر الثاني وهو الشرط إذا تحقق ، ستقوم بكتابة كلمة "متوافق" وتوضع بين أقواس تنصيص البارامتر الثالث وهو في حالة الشرط لم يتحقق ، وستقوم بكتابة "غير متوافق" أو تضع أقواس تنصيص بهذا الشكل"" ليترك فراغ

وعليكم السلام أخي الكريم ارفق ملف معبر عن طلبك مصحوب بشكل النتائج المتوقعة

بسم الله ما شاء الله مجهود رائع وممتاز أخي الغالي عماد جعل الله أعمالك في ميزان حسناتك يوم القيامة ... ونداء لمن يشتكي من قلة المصادر لتعلم الـ VBA ها هو لكم مصدر رائع وممتاز .. ألا من مشمر؟

ممكن استخدام الدالة Index بدلاً من Vlookup للبحث .. ارفق ملف كما هو متبع لتيسير تقديم المساعدة المطلوبة

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

بارك الله فيك أخي الكريم مهند وجزيت خيراً على كلماتك الرقيقة وردك الطيب والحمد لله أن تم المطلوب على خير .. تقبل وافر تقديري واحترامي

جرب الصورة التالية

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