طباعة ورقة عمل حسب قيمة الكومبوبوكس

[ع_ حسام]

السلام عليكم أهلال المنتدى والخبرة

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

بناء على الصفحة االموجود في الكمبو بوكس

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

وشكرا مقدم

Classeur1.rar

[رجب جاويش]

السلام عليكم

أخى الفاضل

استبدل الكود الموجود بالملف بالكود التالى

Private Sub CommandButton2_Click()
Dim ish As Worksheet
If ComboBox1.Value = "" Then MsgBox "اختر الاسم أولا": Exit Sub
Set ish = Sheets(ComboBox1.Value)
ish.Activate
ActiveSheet.PageSetup.PrintArea = "A5:f19"
ActiveSheet.PrintOut Copies:=1
End Sub

[ع_ حسام]

شكرا لك أستاد رجب

سطر بسيط لم أتوقعه

[ياسر خليل أبو البراء]

يرجى تحديد أفضل إجابة أخي الفاضل ليظهر الموضوع مجاب