اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

أخي الكريم جمال

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

يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى

كما يرجى وضع عناوين مناسبة للموضوعات

قم بإرفاق ملف لتتضح صورة الطلب بشكل أفضل

قام بنشر

أخي الكريم جمال

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

جرب الكود التالي عله يفي بالغرض

Sub Export_Filtered_Data()
    Dim WB As Workbook
    Dim Rng As Range

    Set WB = Workbooks.Add
    Set Rng = ThisWorkbook.Worksheets("Sheet18").Cells.SpecialCells(xlCellTypeVisible)

    Rng.Copy WB.Worksheets("Sheet1").Range("A1")
    WB.Worksheets("Sheet1").Columns.AutoFit
End Sub

تقبل تحياتي

 

  • Like 1
قام بنشر

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

تقبل وافر تقديري واحترامي

 

  • Like 1
قام بنشر
4 ساعات مضت, ياسر خليل أبو البراء said:

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

تقبل وافر تقديري واحترامي

 

احي ياسر بمكن دمج الكود المقدم مني مع الكود بتاعك لنحصل على المطلوب  

قام بنشر

صباح الخير شباب

 

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

 

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

قام بنشر (معدل)
38 دقائق مضت, jamal_mahmood said:

صباح الخير شباب

 

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

 

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

بعد اجراء عملية الفلترة

1-حد ما يجب ان تنسخه بواسطة الماوس 

2- اضغط Ctrl+C

3-اذهب الى ورقة جديدة

4- حدد الخلية حيث تريد اللصق

5- اضغط Ctrl+V (اذا كانت الاعمدة ضيقة لا تتسع  للبيانات في الخلايا يمكنك توسيع العامود)

6- ارجع الى الصفحة الرئيسية واضغط Esc 

7-اضغط على زر Reset

تم تعديل بواسطه سليم حاصبيا
قام بنشر
منذ ساعه, سليم حاصبيا said:

بعد اجراء عملية الفلترة

1-حد ما يجب ان تنسخه بواسطة الماوس 

2- اضغط Ctrl+C

3-اذهب الى ورقة جديدة

4- حدد الخلية حيث تريد اللصق

5- اضغط Ctrl+V (اذا كانت الاعمدة ضيقة لا تتسع  للبيانات في الخلايا يمكنك توسيع العامود)

6- ارجع الى الصفحة الرئيسية واضغط Esc 

7-اضغط على زر Reset

هذه الطريقة التفليدية والتى كنت اتبعها فى السابق واعتقد هنالك طريقة اسرع عن طريق كود

قام بنشر (معدل)
4 ساعات مضت, jamal_mahmood said:

صباح الخير شباب

 

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

 

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

بعد اجراء عملية الفلترة

1-حد ما يجب ان تنسخه بواسطة الماوس 

2- اضغط Ctrl+C

3-اذهب الى ورقة جديدة

4- حدد الخلية حيث تريد اللصق

5- اضغط Ctrl+V

6- ارجع الى الصفحة الرئيسية واضغط Esc 

7-اضغط على زر Reset

 

يمكن ان يكون  الحل بهذا الشكل 

شغل الامر reset اولاً ثم اختر الخلية المناسبة ثم اضغط على (زر جديد Copy data)

TEST FILTERS salim 1.rar

تم تعديل بواسطه سليم حاصبيا
  • Like 1
قام بنشر
في 7/11/2016 at 12:06, jamal_mahmood said:

يا سلام عليك يا سليم يا حبيب

 

مية مية وما قصرت الف الف شكر 

 

معليش أثقلت عليك فى الملف المرفق يمكن نسخ خيار خلية واحدة طيب كيف الحال عند اختيار عدة خيارات فى نفس الفلتر

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information