اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

Popular Content

Showing content with the highest reputation on 13 نوف, 2011 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