aburajai

في 24‏/9‏/2023 at 12:53, محي الدين ابو البشر said:

Sub test2()
    Dim a, y
    Dim i&, c&, x&
    Application.ScreenUpdating = False
    Sheets("جميلة").Columns(1).ClearContents
    a = Sheets("sheet1").Cells(5, 1).Resize(Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row - 4)
    For i = 1 To UBound(a)
        If a(i, 1) <> "" Then
            y = Split(a(i, 1))
            If IsNumeric(Application.Match("جميلة", Split(a(i, 1)), 0)) Then
                x = Application.Match("جميلة", Split(a(i, 1)), 0)
                If UBound(y) > 21 Then
                    y = Application.Transpose(Application.Index(y, Evaluate("row(" & x - 10 & ":" & x + 10 & ")")))
                    Sheets("جميلة").Cells(c + 1, 1) = Join(y)
                Else
                    Sheets("جميلة").Cells(c + 1, 1) = a(i, 1)
                End If
                c = c + 1
            End If: End If
    Next
    Sheets("جميلة").Activate
    Application.ScreenUpdating = True
End Sub

 

السلام عليكم

وضعته ماكرو جديد 

لكن عمل ديبج على هذا السطر كما في الصورة

لا تنسى استاذ ان الملف امتداد XLS

استاذ

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

• شكرا لك
  الان نمام

لو تكرمت فيما لو كانت الفقرة طويلة فاريد ان تعمل جلب كلمة "جميلة" وقبلها 10 كلمات وبعدها 10 كلمات

شكرا لكم

بارك الله فيكم

استاذ ابو اليسر

لو سمحت تعملع امتداد   xls
مش عارف افتحه على امتداد xlsm

شكرا لك 

لا اعرف السبب في ذلك

فقد فتحته فلم اجد انه تم الترحيل الى شيت جميل

انظر الصورة ؟

اخي وضعته كماكرو في الملف لكن لم يعمل ؟
هل تذكرني بالطريقة الصحيحة لوضعه

اشكرك

الاستاذ محمد صالح

لو سمحت ممكن تضيف اللون لكلمة البحث في شيت البحث

لو تكرمت تلون كلمة البحث في شيت البحث ثم ليبدأ قبل 10 كلمات من كلمة البحث واضافة 10 كلمات بعدها فقط

لان احيانا الفقرة تكون كبيرة 

فاريد يبدا من 10 كلمات قبلها و 10 كلمات بعدها

بارك الله فيك

السلام عليكم

كيف الحال ايها الاعواء

صديق قديم يطلب المساعدة

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

انظر الملف المرفق

مع الشكر الجزيل لكم وبارك الله فيكم

اوفسينا.xls

هذا الملف تفضل اخي سليم

جزاك الله خيرا

osol4.xls

بارك الله فيكم

اخي سليم  المشكلة مشيت مع الخلايا الفاغة لكن جربت اضع الكود على خلايا كلها كتابة وفراغ بلا ارقام 

لم يعمل جيدا

هل من حل تفيدني

الاخ سليم

التعليق السابق انتهينا تاكدن انه يعمل على جميع الخلايا

الكود تمام

لكن ظهر انه لا يعمل عندما تكون الخلية فارغة !! لذلك السبب لم يعمل فظظنت كما التعليق السابق

لذلك فضلا اخي سليم تعمل تحديث للكود بان يعمل مع الخلايا الفارغة

او تضيف له كون لحذف الاسطر الفارغة قبلا ثم عندها الكود سيعمل

او اي طريقة تراها مناسبة

مع الشكر الجزيل

تمام استاذ سليم

بارك الله فيك ...

تمام التمام ما يحرمنا منكم

في موازين حسانتكم

تمام استاذ سليم

بارك الله في عمرك

لكن اريدها تلقائيا وليست سحب يدوي لو تكرمت تعملها

ثم 

اريد اضافة عليه ان يقوم بترحيل النتائج هذه الى شيت جديد

شاكرا تعاونكم

اخواني فريق الادارة والمخضرمين في الاكسل

ارجو منكم مساعدتي في هذا الملف

مع الشكر الجزيل

حسب الملف المرفق

OSOL3.xls

للحق اني عضو قديم في هذا المنتدى الراقي باعضائه الكرام

منذ حوالي 10 سنوات

كنا عندما نطلب مساعدة يقوم كثير من النبلاء بالرد السريع والتطوع لعمل الملف المطلوب

بخلاف هذه الايام وضعت طلبي وبالكاد رد علي الاخ الفاضل احمد من فريق الادارة

هذا حال المنتدى قديما وانظروا الى هذا الحال ايامنا !!!

لماذا هذه بدات تظهرت بيننا ... 

يعني هناك مشاهدات للموضوع ولكن للاسف لا يوجد من يشف غليلك ويتبرع للمساعدة...

شكرا للجميع واخص الاخ احمد والاخوة فريق الادارة الذين تفرغوا للمساعدة اخوانهم

للتذكير

النرحيل يكون بدون مسح الخلايا الاصلية في الشيت المصدر 

بارك الله فيك استاذي

اخي احمد بارك الله فيك على الرد السريع

هو الملف يتم يدوي لتسهيل العملية ...  واعني بها عن طريق البحث الاشتراطي 

اذا تحقق الشرط يتم تلوين الخلية باللون الذي احدده 

ثم بعد التلوين اريد ان يرحل هذه الخلايا ومحتوياتها (سواء ارقام اة كتابة تكست) الى صفحة جديدة في نفس الملف (شيت2) مع الترتيب من حيث الاسطر 

..

ارجو ان تكون واضحة ؟؟

اشكرك مقدما

اخواني فريق الادارة والمخضرمين في الاكسل

ارجو منكم مساعدتي في هذا الملف

اريد كود يقوم بنقل الخلايا التي يتم عليها احراء تغير في لونها  من الشيت الرئيسي الى شيت جديد ( تجميع للنتائج)

حسب الملف المرفق

osol2.xls

ارجو التكرم بالمساعدة ايها الاحباء

للمساعدة على الفكرة :

ممكن كود مثلا : نسخ الخلية اذا اجرى عليها لون معين  اي تغيير في لون الخلية يقوم بتجميع الخلايا في صفحة جديدة

بارك الله فيكم

السلام عليكم

اريد لو تكرمت عمل نسخ لنتائج بحث في الشيت الى شيت جديد

ولو باي طريقة اخرى مثل فلترة حسب كلمة ثم نسخ النتائج الى صفحة جديدة

الملف في تكست في الخلايا وليست ارقام

قمت بعمل بحث لما اريد وقمت بتغيير الفورمات للخلايا المطلوبة ولكن الان اريد كود لاخذ النتائج الى صفجة جديدة 

شاكرا تعاونكم ايها الاحباء

Osol.xls

بارك الله فيك اخي ابو عيد

لا اريد تحديد العمود او الخلية ايضا كما ذكرت سابقا للاخوان

ارجو عمل سكرول يذهب الى اخر خلية فعالة  باي صف او عمود كان او اي خلية 

بوركت وجمعة مباركة عليك ابو عيد

اولا بارك الله فيك اخي 

صحيح مثل ما فهمت ولكن

انت حددت له الخلية H6  

لذلك قمت بتغيير الخلية واغلقت الملف ثم فتحته مرة اخرى فانه ذهب الى نفس الخلية اتش6

بينما اريد ان يقوم بالذهاب الى اخر خلية فعالة

ماذا لو تغيرت هذه الخلية الفعالة بشكل دائم

جزاك الله خيرا اخي  مقدما

===================================

شكرا كثيرا على المساعدة اخي ابو البراء المحترم

==================================

بارك الله فيك اخي جعفر على المساعدة 

لكن نفس المشكلة اريد عدم تحديد الخلية اتش6 فربما تتغير الخلية الفعالة وتصبح اتش115 مثلا

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

السلام عليكم ورحمة الله

اخواني الاعزاء

ما هو الكود الذي يعمل الصفحة تذهب الى الخلية الفعالة عندما يتم فتح الاكسل

شكرا لكم وبارك الله فيكم

السلام عليكم

الا يوجد حل ؟؟

ام ان الشباب لم يشاهدوا هذا الموضوع

يرفع للاهتمام

السلام عليكم ورحمة الله

اخواني الافاضل

حاولت استيراد ملف سي اس في الى اكسل

ولكن لم استطع ابقاء التنسيق كما هو في الملف

فيظهر بدل من الخلايا 

البيانات في خلية واحدة في اكسل ويت وضع فواصل بدلا

من الخلايا كما كانت في سي اس في

هل من طريقة لاستيراد البياتات واظهارها كما في الملف

كل بيانات حسب الخلايا

وشكرا مسبقا