رجب جاويش

الأخ الفاضل / deffoe جزاك الله كل خير

أخى الفاضل / hussien2222 بارك الله فيك أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / حمادة عمر جزاك الله كل خير ولا شكر على واجب أخى الفاضل

أخواى الحبيبين محمود والشهابى يشرفنى أن أردد معكما هذا الدعاء الجميل الله يديم الألفة والمحبة بين جميع أعضاء هذا المنتدى الكرام :fff: :fff:

السلام عليكم جرب هذا التعديل البسط على كود الاخ الفاضل / أحمد عبد الناصر Private Sub CommandButton1_Click() If TextBox1.Value = Sheet1.[a1].Text And TextBox2.Value = Sheet1.[b1].Text Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub وهذا مرفق للتجربة زر دخول.rar

السلام عليكم استخدم هذا الكود فى زر print Private Sub CommandButton3_Click() Sheets("Teste").Range("A1:F37").PrintOut Copies:=1, Collate:=True End Sub

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

السلام عليكم أقدم لكم كنترول أولى ثانوى رجب جاويش ترم أول 2013 يشمل كل الأعمال الخاصة بالترم الأول فقط تحية لمنتدانا الغالى ولأعضائه الكرام طبقا للقرار الوزارى 273 لسنة 2012 فى جمهورية مصر العربية وعذرا لأى خطأ أوسهو أخوكم رجب جاويش كنترول رجب 2013 أولى ثانوى.rar الهدية الثانية كنترول ثانية ثانوى علمى كنترول ثانية ثانوى علمى رجب جاويش ترم أول 2013 يشمل كل الأعمال الخاصة بالترم الأول فقط تحية لمنتدانا الغالى ولأعضائه الكرام طبقا للقرار الوزارى 274 لسنة 2012 فى جمهورية مصر العربية وعذرا لأى خطأ أوسهو أخوكم رجب جاويش كنترول رجب 2013 ثانية ثانوى علمى.rar الهدية الثالثة كنترول ثانية ثانوى أدبى كنترول ثانية ثانوى أدبى رجب جاويش ترم أول 2013 يشمل كل الأعمال الخاصة بالترم الأول فقط تحية لمنتدانا الغالى ولأعضائه الكرام طبقا للقرار الوزارى 274 لسنة 2012 فى جمهورية مصر العربية وعذرا لأى خطأ أوسهو أخوكم رجب جاويش كنترول رجب 2013 ثانية ثانوى أدبى.rar إخوتى الكرام تم وضع الشيت الجديد الخاص بالترمين والدور الثانى على الرابط التالى http://www.officena.net/ib/index.php?showtopic=46424

أخى الفاضل هذا كود ترحيل مبدئيا ولكن صفحة الشيت ينقصها الكثير من المعادلات 11.rar

السلام عليكم تفضل أخى تم استخدام كود رائع للأستاذ المبدع عباد ( أبو نصار) له كل التحية 11.rar

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

أخى الحبيب / محمود أخى الحبيب / ياسر خليل تسلم الأيادى وتسلم الابداعات المتجددة جزاكم الله كل خير

تفضل أخى التقرير.rar

السلام عليكم معك حق أخى الفاضل وعذرا لذلك هذا هو التعديل المطلوب وقد قمت بتجربته وهو يطبع فعلا 100 صفحة Sub طباعة_الشهادات() Dim i As Integer Sheets("بطاقة").Select For i = Range("u1") To Range("V1") Step 10 Range("I1") = i If i <= Range("V1") Then Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i Sheets("بطاقة").Select End Sub الجديد كشوف المنادة.rar

السلام عليكم جرب هذا التعديل Sub طباعة_الشهادات() Dim i As Integer Sheets("بطاقة").Select For i = Range("u1") To Range("w1") Step 10 Range("I1") = i If i <= Range("w1") Then Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next i Sheets("بطاقة").Select End Sub الجديد كشوف المنادة.rar

أخى الفاضل / محمود رواس جزاك الله كل خير أخى الفاضل على كلماتك الطيبة

أخى الفاضل سوف تجد فى الرابط التالى ما تريده http://www.officena.net/ib/index.php?showtopic=44404

السلام عليكم جرب أخى المرفق waaly.rar

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

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

السلام عليكم جرب أخى هذا الكود فى حدث الصفحة الكود يعمل فى المدى ( A1:A20 ) Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Range("A1:A20").NumberFormat = "0.00" For i = 1 To 20 cl = Cells(i, 1).Value If cl = Int(cl) Then Cells(i, 1).NumberFormat = "0" End If Next End If End Sub decimal.rar

وهذه معادلة أخرى mm3.rar

تفضل أخى تم تقليل طول المعادلة وتعويض ذلك ببعض التنسيقات الشرطية فى حالة وجود خطأ mm2.rar

تفضل أخى mm.rar

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