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

نجوم المشاركات

Popular Content

Showing content with the highest reputation on 11/13/11 in all areas

  1. عبدالله المجرب
    السلام عليكم الاخوين الكريمين يوسف عطا و mhrrd نرجو ان لا يفسد الاختلاف في الراي للود قضية ابواحمد
    1 point
  2. عبدالله المجرب
    السلام عليكم ما رايك ان تجربه وقد اصبح هكذا Subطباعة_اسماء_محددة() If Range("C49") = 0 Then MsgBox "حدد الاسم او الاسماء التي تريد طباعتها ثم اضغط على الزر مرة أخرى " Exit Sub End If For i = 51 To 149 If Cells(i, 2) = True Then Range("A1").Value = i - 50 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub
    1 point
×
×
  • اضف...

Important Information

  I accept