اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

هذا كشف مصغر اخواني وكمثال للإجابة علي

انا لدي العديد من الأسماء والعناوين اكثر من 1000 اسم وعنوانه ، وكل شهر اختار اسماء محددة منهم فقط للطباعة وفقاً لكشف ياتيني وليست كله

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

انا اقوم بتلوين الخلايا ولكن لا اعرف كيف افرز الخلايا الملونة ، لأنها هي التي سأضعها في الجدول

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

مرفق ملف فيه المطلوب

Q.rar

قام بنشر

السلام عليكم اخى فى الله

فقط قم بوضع رقم واحد (1) امام الاسم الذى تريده فى الخلية F فى ورقة الفرز

,وسيتم نقل الاسم الى الجدول

جرب المرفق

لا تنسانا من دعائك

ELFAR.rar

قام بنشر

بالاضافة الى حل اخي جمال الفار

وكل الشكر له على جهودة الممتازة

جرب اخي الكود التالي


Sub OFFICNA()

LR = Sheets("الفرز").Range("a" & Rows.Count).End(xlUp).Row

Sheets("الفرز").Range("a1:a" & LR).Select

Application.ScreenUpdating = False

a = Selection.Columns.Count

b = Selection.Rows.Count

ActiveCell.Select

For j = 1 To b

x = 0

   For i = 1 To a

	   If ActiveCell.Interior.Pattern = xlNone Then x = x + 1

	   ActiveCell.Offset(0, 1).Select

   Next i

   If x = a Then ActiveCell.EntireRow.Hidden = True

   ActiveCell.Offset(1, -1).Select

Next j

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("الفرز").Range("a1:a" & LR).EntireRow.Hidden = False

End Sub

ولن تحتاج الى ورقة اخرى

فالكود سيقو بالتالي

1. فرز الخلايا الملونة

2. طباعة المفروز

3. الغاء الفرز لتعود الورقة كما كانت

ان شاء الله يفي بالمطلوب

قام بنشر

اخي العزيز جدا جدا جمـــــــــــــــــــــــال الفار " بالمناسبة ها نناديك ابو خالد ؟؟؟ )

بداية لابد من كلمة حق .... ماشاء الله ... ماشاء الله

والله انني اقرأ السؤال ( المشاركة ) واعود اليها بعد قليل فأجد جواب لحضرتك ... ماشاء الله

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

تحياتي الحارة لك ... واشكرك لاطرائك بحقي مع يقيني بأننا اخوة ( حقيقيين وليس افتراضيين )

وفقك الله

ابو الحارث

قام بنشر

اخي اعيز / الاستاذ " ابو احمد " عبد الله المجرب

ربما انك لاحظت انني عندما كتب الرد للاخونا الاستاذ جمال الفار ... لم يكن ردك في الموضوع ( بسبب بطئ النت )

واكرر كلمتك ... كل الشكر للجهود الجبارة

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

وفقك الله

ابو الحارث

قام بنشر

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

أخي الكريم، في الحقيقة لقد قام أحبتي باللازم وزيادة وأردت أن أشارك بهذا الحل باستعمال المعادلات أرجو أن يعجبك... يكفي وضع رقم 1 في العمود C من ورقة "الفرز" والمعادلات الموضوعة في ورقة "الجدول" تقوم بتحويل الاختيارات من الورقة "الفرز" إلى ورقة "الجدول"...

أخوكم بن علية

Q.rar

قام بنشر

حلول اكثر من رائعة بارك الله فيكم

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

وسؤالي لكم الأخر هل ممكن اقوم بفرز الخلايا الملونة ام لاينفع حيث اقف على الصف واغير لون الخلفية كيف اقوم بذلك

قام بنشر

انا اقوم بتلوين الخلايا ولكن لا اعرف كيف افرز الخلايا الملونة ، لأنها هي التي سأضعها في الجدول

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

مرفق ملف فيه المطلوب

اخي الكريم

ان كان سؤالك عن فرز الملون فقط .......... شاهد المرفق عسى ان ينفعك

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

افضل للحالة التي تطلبها

وفقك الله

ابو الحارث

فلتر ملون 1.rar

قام بنشر

واخي الغالي عبد الله

جربت لكن وجدن الملف كله اتلخبط

اخي الفاضل

السوال هل جربت الكود على الملف المرفق ام على ملفك الاصلي؟؟

الكود في الملف المرفق يعمل زي الفل ويقوم بالخطوات التالية (شاهد الفيديو) قمت بالتعديل في الكود ليقوم بعرض صفحة الطباعة لترى النتيجة)

فرز الملون

الطباعة للمفروز

الغاء الفرز للعودة للملف كما كان

فاين اللخبطة في هذه الاجراءات ؟؟

قام بنشر

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

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

جمال - عبدالله - ياسر - hpen

واضح ان اخونا السائل في عنده نقطة مهمة في العمل لم يوضحها في سؤاله - لذلك عندما يعدل على الحلول المرفقة ما تظبط معاه

ارجو من اخي السائل اعادة صياغة السؤال مع شرح وافي و مرفق يكون موضح به المطلوب

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

مع اعتذاري للجميع اذا كان تدخلي في الموضوع غير لائق

دمتم بخير

قام بنشر

اخواني الغاليين ، بارك الله فيكم وجعله في ميزان حسناتكم

انا لم اعدل على احد على الإطلاق وانا ارفقت مالدي من مثال بالضبط في العمل

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

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

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

مرة اخرى اعذروني ان كنت قد اخطأت في حق احد منكم

واشكركم على الفلتر الأكثر من رائع وايضا هل ممكن من شرح ليه مفصل الله يبارك فيكم

قام بنشر

السلام عليكم

اولا اشكر جميع من ساهم كل حل وفيه لمسات ماشاء الله

اخي الفاضل

ارى افضل حل لما تريده

ملف اخونا الفاضل ياسر الحافظ

فرز الملون

لون الخلايا المراد فرزها واخفاء البقية

ثم اشر على خليه اللون المراد

واظغط FILTER راح يظهر لك صفوف اللون المختار فقط

والسلام عليكم

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