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

[أبو محمد عباس]

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

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

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

درجات الطلاب مع الشهادة xlsm.rar

[أبو محمد عباس]

للرفع( فتح الملف "موافق " مباشرة بدون اي كتابة)

[الشهابي]

الأخ العزيز/ عباس السماوي

هذه محاولة لتنفيذ ما طلبت وبالذات طباعة الشهادات

من كود للأستاذين الكبيرين دغيدي وبن عليه حفظهما الله

إن شاء الله يكون هو مطلوبك والشرح موجود في الملف

أخوك الشهابي

درجات الطلاب مع الشهادة xlsm.rar

[أبو محمد عباس]

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

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

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

[الشهابي]

الأخ العزيز / عباس السماوي

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

زر الطباعة لا يتم استخدامه إلا عند الإختيار البحث بالرقم

وإذا أردت زر للطباعة عند الإختيار بالاسم ممكن ذلك

ولكن أفضل أن يكون هناك تعديل من قبل أحد الأستاذة الكرام ليقوم بالأمرين معاً

والتعديل المطلوب هو عندما تكزن قيمة الخلية [GG1] تساوي 1 يتم الخروج من الحلقة التكرارية ويتم طباعة الصفحة المحددة مرة واحدة فقط

Sub Print1()

ActiveSheet.PageSetup.PrintArea = "$FN$1:$FZ$38"

Dim i As Integer

   For i = Range("GC4") To Range("GC5")

	    Range("GC4") = i


	    If i <= Range("GC2") Then

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

    End If

Next i

Range("GC4").Select

Range("GC4") = 1

Range("GC5") = ""

End Sub

[أبو محمد عباس]

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

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

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

تم تعديل أبريل 1, 2012 بواسطه عباس السماوي