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

استفسار


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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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:

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

 

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

 

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

 

رابط هذا التعليق
شارك

جرب هذا الملف صفحة رقم 3

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

TEST FILTERS salim 2.rar

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information