خالد المصـــــــــــرى قام بنشر يونيو 6, 2023 مشاركة قام بنشر يونيو 6, 2023 (معدل) عمل طباعة محددة فى ورقة ارقام الجلوس وكشوف المناداة تم تعديل يونيو 6, 2023 بواسطه خالد المصـــــــــــرى رابط هذا التعليق شارك More sharing options...
ابوحبيبه قام بنشر يونيو 6, 2023 مشاركة قام بنشر يونيو 6, 2023 السلام عليكم اليك الطريقة بعد التعديل على الملف فى صفحة ارقام الجلوس2 Private Sub CommandButton1_Click() Range("e2").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 10 ActiveWindow.SelectedSheets.PrintOut If Range("e2").Value >= 20 Then Exit Sub Loop Until ActiveCell.Value = Range("p10").Value Range("A1").Select End Sub يرجي وضع الاكواد بين اقواس طباعة_1.xlsm 1 رابط هذا التعليق شارك More sharing options...
خالد المصـــــــــــرى قام بنشر يونيو 6, 2023 الكاتب مشاركة قام بنشر يونيو 6, 2023 بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان