رجب جاويش

أخى الفاضل برجاء توضيح ما تريد أكثر ولو فيه ملف مرفق يكون أفضل

بعد اذن أخى الحبيب / محمود هذه محاولة أخرى ربما تؤدى المطلوب واذا كان هناك أكثر من تاريخين للصلاحية يتم سحب المعادلة الى اليسار فى الخلايا المجاورة لأى عدد تريده من التواريخ Main_Sales_Today.rar

تفضل أخى جرب المرفق شيكات 28.rar

تفضل أخى استبدل السطر التالى If Target.Column = 1 And Target.Row > 9 Then بالسطر If Target.Address = [D9].Address Then

تفضل أخى هذا هو الكود الذى يؤدى الغرض For i = 0 To 10 Me.Controls("TextBox" & i + 1).Value = ListFind.List(ListFind.ListIndex, i) Next form search.rar

تفضل أخى ما تريد شيكات 2.rar

أخى أنت طلبت قبل ذلك أن يكون الترتيب تنازلى فى الصفحات الأخرى

السلام عليكم جرب هذا الكود Private Const timeFormt As String = "hh:mm" Private Sub CommandButton1_Click() Me.TextBox1.Value = Range("A1").Value Me.TextBox1 = Format(Me.TextBox1, timeFormt) End Sub textbox_format.rar

أرجو أن يكون هذا ما تريد شيكات 1.rar

السلام عليكم هل تقصد هكذا نسخ صفوف بالعدد1.rar

أخى الفاضل ليس لدى معلومات عن هذه النقطة

لا شكر على واجب أخى الفاضل نعم يمكن ترحيل البيانات لو كانت فى صفحة أخرى

أخى الفاضل / يوسف عطا استبدل الكود المراد التعديل علية بالكود التالى Sub PrintFrom_To_() Dim I As Integer For I = Range("p2") To Range("Q2") Step 3 If I <= Range("Q2") Then Range("K3") = I Activewindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End If Next I Range("K3").Select End Sub وان شاء الله يفى بالمطلوب

اخى / احمد حجازى اضغط الملف اولا ثم ارفقه

تفضل أخى ترحيل.rar

أخى الحبيب / محمود جزاك الله كل خير على هذه الروح الطيبة وكل عام وأنتم بخير تقبل الله منا ومنكم صالح الأعمال

الأستاذ الفاضل / عبد الله المجرب جزاك الله كل خير على هذا التشجيع وكل عام وأنتم بخير وفقكم الله لما يحب ويرضى أخوك / رجب جاويش

تفضل أخى تم تنفيذ معظم الطلبات لكن الطلب الأخير لم افهمه أرجو التجربة وابلاغى بالنتيجة Tarheel_ ragab.rar

السلام عليكم تم عمل المطلوب باستخدام كود للأستاذ الكبير / عبد الله باقشير أرجو أن يكون الحل كما تريد Book15.rar

كل عام وأنتم وجميع الأمة الاسلامية بخير

أخى الفاضل / بن عليه حاجى سبحان من جعل الأفكار تتواصل فى وقت واحد كل عام وأنتم بخير

أخى الفاضل / عباس السماوى بعد التحية عذرا لهذا السهو برجاء استبدال السطر التالى For I = Range("E1") To Range("F1") بالسطر التالى For I = Range("E1") To Range("F1") Step 2 وكل عام وأنتم بخير

أخى الفاضل / عباس السماوى كل عام وأنتم بخير هذه هى الأكواد الخاصة بالفصل A أرجو التجربة وان كانت تمام يتم تطبيقها على باقى الفصول Sub طبع_محدد() Dim I As Integer For I = Range("E1") To Range("F1") Range("J1") = I If I <= Range("K1") Then ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I Range("E1").Select End Sub Sub طباعة_ورقة_واحدة() ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Sub طباعة_الكل() Range("J1").Select ActiveCell.FormulaR1C1 = "1" ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 2 ActiveWindow.SelectedSheets.PrintOut Loop Until ActiveCell.Value >= Range("C1").Value Range("E1").Select End Sub وبالنسبة لنطاق الطباعة يتم تحديده فى السطر التالى ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30" وهو طبعا سوف يتغير من فصل لآخر مع بعض التغيرات فى الأكود حسب نطاق وخلايا بيانات كل فصل الشهادات.rar

أخى الفاضل / عصام كل عام وأنتم بخير وبانتظار الرد بعد التجربة

أخى الحبيب / عباس السملوى شكرا جزيلا أخى الحبيب على كلماتك الطيبة وكل عام وأنتم بخير