طلب مساعدة من admin

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

في البداية بمناسبة عيد الفطر المبارك اتمنى لكم عيد مبارك وكل عام وانتم بخير ،اعاده الله علينا وعليكم وعلى الامة الاسلامية باليمن والبركات ان شاء الله.

عندي سؤال اتمنى منك مساعدتي فيه ان شاء الله فيما يخص الاكسل ويتمثل فيما يلي:

اريد انجاز ورقة اكسل لطباعة كشف التلاميذ للتعليم الثانوي للفصول الثلاثة وقد استعملت الدالة recherchev والعمل كان جيد لكن كل فصل يتم عرضه في ورقة وحده، انا اريد ان اعمل بطريقة الماكرو فعند اختيار رقم التلميذ و اختيار الفصل ( 1 او 2 او 3) عندها يظهر الكشف المراد طباعته وعندها يمكن طباعته.


بارك الله فيك واثابك الجنة ان شاء الله

لم أفهم بالضبط ماذا تريد لكن سأضع لك "الكود" الخاص بماكرو الطباعة,,,أعرف أنه يبدو صعبا لكن في الحقيقة بقليل من الإجتهاد ومعاينة الأكواد المختلفة ستتمكن من إتقانه.....قد وضعت الكود ردا على أحدهم ولكن يبدو أنه غامض بعض الشيئ سأحاول وضع فيديو في أقرب الآجال إن شاء الله لشرحه.....آسف على التأخر في الرّد لم أعد أزور هذه القناة ولا حتى المنتدى صارت لدي اهتمامات أخرى تشغلني كثيرا....تحيتي

الكود:



       
          Private Sub CommandButton1_Click()

Dim i As Integer

For i = Range("AC24") To Range("AD24")
          Range("Z10") = i
 If i <= Range("AD24") Then ActiveWindow.SelectedSheets.Pr­intOut Copies:=1, Collate:=True
End If

Next i

Range("AD24").Select

End Sub


       

   


!