فلترة وترحيل حسب شرط اسم المركز أو رمزه

[seddiki_adz]

السلام عليكم 

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

التصفية حسب اسم المركز.xlsx

[عبدالله بشير عبدالله]

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

من اكواد السيد الفاضل سليم حاصبيا

التصفية حسب اسم المركز.xlsm

[seddiki_adz]

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

اين اجد القائمة المنسدلة من اجل تغيرها؟

[عبدالله بشير عبدالله]

القائمة المنسدلة تقرأ بيانتها من العمود a

غير البيانات في العمود a  المظلل بالازرق تتغير في القائمة المنسدلة اتوماتيكيا

التصفية حسب اسم المركز.xlsm

 

تم تعديل أغسطس 21, 2019 بواسطه عبدالله الصاري

[seddiki_adz]

لكن القائمة  محدودة أريد أن يكون عدد المؤسسات أكثر من 19  حوالي 500 موسسة وشكرا 

[عبدالله بشير عبدالله]

تفضل اخي العزيز

جرب الملف 

المؤسسات الى 1000 مؤسسة

التصفية حسب اسم المركز.xlsm

تم تعديل أغسطس 21, 2019 بواسطه عبدالله الصاري

[عبدالله بشير عبدالله]

اخي العزيز

حفظك الله 

حمل الملف مرة اخري لان الترقيم في صفحة التصفية ال 22 فقط

التصفية حسب اسم المركز.xlsm

[عبدالله بشير عبدالله]

اخي العزيز 

عذرا لم اتمكن من عمل طلبك لعدم معرفتي بالامر

كل ما عملته هو ان تختار من الفائمة اسم المؤسسة تم اضغط زر تصفية مع طباعة

التصفية حسب اسم المركز.xlsm

 

[seddiki_adz]

شكرا جزيلا 

هل يمكن تطبيق هذا الكود :

Sub طبع_محدد()

Dim I As Integer

For I = Range("E1") To Range("F1")

	 Range("J1") = I

If I <= Range("K1") Then

	 ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

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

End If

Next I

Range("E1").Select

End Sub

Sub طباعة_ورقة_واحدة()

ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

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

End Sub

Sub طباعة_الكل()

Range("J1").Select

ActiveCell.FormulaR1C1 = "1"

ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

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

Do

ActiveCell = ActiveCell + 2

ActiveWindow.SelectedSheets.PrintOut

Loop Until ActiveCell.Value >= Range("C1").Value

Range("E1").Select

End Sub

[عبدالله بشير عبدالله]

الفكرة موجودة ولكن عمل كود للفكرة  شئ اخر

فكرة الكود 

امر باخد اول مؤسسة في العمود a ثم وضعها في القائمة المنسدلة ثم الفلترة ثم الطباعة 

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

على كل حال لم افقد الامل ساحاول في الامر من جديد

كم عدد المؤسسات تقريبا ؟

 

 

[seddiki_adz]

حوالي 3000 

[عبدالله بشير عبدالله]

هل المؤسسات 3000 تختلف في الاسم ام ان هناك تكرار في الاسم

 

[seddiki_adz]

مختلفة في الاسم  وكل مؤسسة لها اسم  ورمز

فوا حوالي 300 مؤسسة  فقط بشرط التصفية لا تتم بالعمود A

اذ اعتبرنا العمود A يتكرر اسم المؤسسة ليصل الى حوالي 3000 مؤسسة

[عبدالله بشير عبدالله]

جرب الملف  زر طباعة الكل اي تعديلات انا جاهز ان شاء الله

تحياتي

التصفية حسب اسم المركز.xlsm

[seddiki_adz]

بورك فيك ساجرب و ارد عليك

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

السلام عليكم هل يمكن وضع الازرار و اختيآر التصفية إلى صفحة التصفية؟

[seddiki_adz]

طلب مساعدة : هل توجد طريقة او كود لفلترة  مايلي المطوب موجود بملف اكسل 

الطاولات.xlsx

[seddiki_adz]

عندنا عمود فيه لجان كبرى وعمود فيه لجان صغرى وعود فيه 3 شعب دراسية وعود يحتوي على أرقام الطاولات وعود في القاعات نريد تقسيم اللجان الكبرى على الطاولات وكل قاعن فيها 8 طاولات هل يمكن حل الإشكالية بطريقة الية؟

الطاولات.xlsx

[seddiki_adz]

طلب مساعدة : ارجو  تغيير رمز المركز مكان عدد اللجان الصغرى وشكرا

التصفية حسب اسم المركز 2019.xlsm

تم تعديل أغسطس 27, 2019 بواسطه seddiki_adz

[أحمد يوسف]

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

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

[seddiki_adz]

السلام عليكم 

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

واذا كان هناك ازعاج سانسحب تماما من الموقع وشكرا 

تم تعديل أغسطس 28, 2019 بواسطه seddiki_adz