المساعده فى عمل كود طباعه بشرط

[۩◊۩ أبو حنين ۩◊۩]

كود طباعه بشرط

 

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

ارجو المساعده فى عمل كود طباعه بشرط

1. اذا كان محتوى الخليه  A3 الموجوده فى الشيت الذى اسمه 1

Medi. Kha او Medi. Epe يتم طباعه شيت 1 وشيت DATA

1. اذا كان محتوى الخليه  A3 الموجوده فى الشيت الذى اسمه 1

Sub يتم طباعة شيت 1 وشيت DATA  و شيت check

جزاكم الله كل الخير

تم تعديل يونيو 11, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

الحمد لله

تم بحمد الله  عمل الكود وذلك بتتبع اعمال الاخ الكبير بن علية حاجى

والاخ الكريم ياسر ابو البراء

 

ولهم كل الشكر والتقدير فيما يفمو به من شرح وافى لما يقدمونه من اعمال

جزاكهم الله كل الخير

الكود لمن اراد الاستفاده

Sub printing()
    Application.ScreenUpdating = False
    On Error Resume Next
    sama = MsgBox("سيتم طباعة جميع الشيتات بالشرط... هل أنت متأكد من إجراء هذه العملية ؟", vbYesNo, "الشئون الادارية .. حقول طارق @ طباعة جميع الشيتات@")
    If sama = vbYes Then
        For Each Sh In Worksheets
          If Sh.[A1] = "print" Then Sh.PrintOut Copies:=1
        Next
    Else
        MsgBox " !! لم تتم الطباعة "
    End If
    Application.ScreenUpdating = True
    Sheets("1").Select
End Sub