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

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


إذهب إلى أفضل إجابة Solved by عبدالله الصاري,

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

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

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

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

 

تم تعديل بواسطه عبدالله الصاري
  • Thanks 1
رابط هذا التعليق
شارك

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

جرب الملف 

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

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

تم تعديل بواسطه عبدالله الصاري
  • Thanks 1
رابط هذا التعليق
شارك

اخي العزيز 

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

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

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

 

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

شكرا جزيلا 

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

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 ثم وضعها في القائمة المنسدلة ثم الفلترة ثم الطباعة 

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

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

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

 

 

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

  • أفضل إجابة

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

تحياتي

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

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

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

الطاولات.xlsx

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

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

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

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

السلام عليكم 

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

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

تم تعديل بواسطه seddiki_adz
رابط هذا التعليق
شارك

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