ابو عبدالبارى

Sub abo_abary_from_to() Dim k As Long For i = 1 To 2 For k = Range("r" & i) To Range("t" & i) Worksheets("sheet" & k).PrintOut Next Next End Sub الأخ الكريمابو حمادة جرب المرفق التالى لعله يفى بالغرض ونسألكم الدعاء abo_abary_طباعة.rar

الأخ الكريمalsaeed جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_تحميع الفواتير1.rar

الأخ الكريمmahmoudslah اثراءاً للموضوع جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة.rar الأخ الكريمmahmoudslah اثراءاً للموضوع وللمرة الثانية جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة1.rar اثراءاً للموضوع وللمرة الثالثة جرب المرفق التالى بالأكواد لعل غايتك تكون به نسألكم الدعاء abo_abary_معادلة2.rar

الأخ الكريمmahmoudslah السلام عليكم جرب المرفق التالى لعل غايتك تكون به نسألكم الدعاء abo_abary_فاتورة.rar

الأخ الكريممحمد جابر محمد عبدالرحيم السلام عليكم مرحبا بك فى هذا الصرح تم التعديل على أحد ملفاتك جرب التعديل لعله يفى بالغرض ثم طبقة على باقى الملفات ونسألك الدعاء Private Sub abo_abary() k = Application.WorksheetFunction.Min(Sheets("ÇáÞæå").Range("f5:f1003")) last = Application.WorksheetFunction.Max(Sheets("ÇáÞæå").Range("f5:f1003")) For i = k To last Step 3 Range("a7") = i ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub http://www.mediafire.com/file/ws65ys3kt0omn1l/abo_abary_1الصـــف_الاول(3).rar

الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض نسألكم الدعاء abo_abary_معادلة بحث عن رقم السيارة الجديد والقديم.rar

الأخ الكريم أبو حنف يمن التعديل على الكود المقدم من الأخ أبو حنــــين باضافة السطرين الأخيرين Sub iCaption() Dim C As control x = 1 For Each C In Me.Controls If TypeOf C Is MSForms.CommandButton Then C.Caption = Range("A" & x) x = x + 1 End If Next Sheets("filter").Range("$A$1:$C$38").AutoFilter Field:=1 Sheets("filter").Range("$A$1:$C$38").AutoFilter Field:=1, Criteria1:="<>" End Sub ثم يالضغط على اى commandbutton يتم استدعاء الأجراء الفرعى iCaption مثال عل ذلك Private Sub CommandButton1_Click() Call iCaption End Sub

وائراءاً للموضوع هذه طريقة اخرى abo_abary_Book1.rar

الأخ الكريمmohamedmomtaz السلام عليكم يرجى الطلاع على تعليمات المنتدى بتغيير الأسم الى اللعة العربية جرب المرفق التالى لعلة يفى بالغرض ونسألكم الدعاء abo_abary_شيت الرواتب تجريبي.rar

الأخ الكريمقيس111 جرب المعادلة التالية وضعها فى الخلية E5 واسحبها لليمين والى الأسفل =IF($B5>COLUMN()-5;"x";"")

الأخ الكريم محمد لؤي السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك نسألكم الدعاء abo_abary_الرقم الجديد - الرقم القديم.rar

الأخ الكريمالشيباني1 السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك ان شاء الله نسألكم الدعاء abo_abary_سند 1صرف وقيض.rar

الحمد لله الذى هدانا للحل نسألكم الدعاء

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

الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الملف التالى بالمعادلات abo_abary_STATEMENT2.rar

الأخ الكريمalraqi السلام عليكم يرجى اتباع قواعد المنتدى بتغيير الأسم الى العربية جرب الكود التالى لعلة يفى بالغرض Sub mh_abdelbary() Dim R As Integer, M As Integer Sheets("statement").Range("a5:f1000").ClearContents M = 4 Application.ScreenUpdating = False last1 = Cells(Rows.Count, "b").End(xlUp).Row For R = 2 To last1 If Cells(R, 4) > 0 Then last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:d1").Copy With Sheets("statement") .Range("B" & last).PasteSpecial xlPasteValues .Range("a" & last) = last - 4 End With Application.CutCopyMode = False Else last = Sheets("statement").Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("A" & R).Range("b1:c1").Copy Sheets("statement").Range("B" & last).PasteSpecial xlPasteValues Range("A" & R).Range("d1").Copy With Sheets("statement") .Range("e" & last).PasteSpecial xlPasteValues .Range("a" & last) = (last - 4) Application.CutCopyMode = False End With End If Next End Sub abo_abary_STATEMENT.rar

الأخ الكريم محمد الالفى السلام عليكم جرب المعادلة التالية لعلها تكون المطلوبة =IF(COUNTIF(E$3:E3;E3)=1;"";"مكرر "&MAX(SUMIF($E$3:E3;E3;$F$3:F3);SUMIF($E$3:E3;E3;$G$3:G3)))

الأخ العزيز عبدالسلام علي السلام عليكم جرب هذا الكود بعد دمجة لعلة يكون المطلويب باذن الله نسألكم الدعاء Sub abo_abary() Sheets("ÇáäÇÌÍæä").Range("a6:aq100") = "" Sheets("ÇáäÇÌÍæä").Range("a6:aq100").Interior.ColorIndex = 0 Sheets("ÑÇÓÈ").Range("a6:aq100") = "" Sheets("ÑÇÓÈ").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("ÇáäÇÌÍæä").[A1000].End(xlUp).Row + 1 If Sheets("ÊÌãíÚí").Range("au" & T).Value = "äÇÌÍ" Then Sheets("ÇáäÇÌÍæä").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÇáäÇÌÍæä").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÇáäÇÌÍæä").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÇáäÇÌÍæä").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value ElseIf Sheets("ÊÌãíÚí").Range("au" & T).Value = "áå ÏæÑ ËÇä Ýì" Then Sheets("ÑÇÓÈ").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÑÇÓÈ").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÑÇÓÈ").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÑÇÓÈ").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub

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

الأخ سليم حاصبيا الف مبروك للترقية جائت فى وقتها انت اضافة كبيرة لهذا الصرح الكبير وفقك الله وسدد خطاك

الأخ الكريم حامل المسك السلام عليكم جرب المعادلة التالية =IF(SUM(A1:A10)=0,"",SUM(A1:A10))

الأستاذ الفاضل العبقرى سليم حاصبيا عذرا لعدم اتمام الحل الساعة كانت متأخرة وكنت بنام على نفسى جرب المرفق التالى ستجد فيه غايتك انشاء الله وان اعجبك ارزع لايك abo_abary_conditional_formatting.rar

الأخ الكريم سليم حاصبيا السلام عليكم كلام ولا اروع منه بارك الله فيكم لكن حاول التسهيل على الاخوة بوضع هذه المعادلة بالتنسيق الشرطى =IF(B2=B1;C2;NOT(C2))

الأخ الكريمياسر خليل أبو البراء مشكور على كلماتك الطيبة بخصوص الكود المقدم من ولكن لى ملاحظة على التعديل الذى تفضلت به (الأشارة الى صفحات العمل خلال الماكرو لا تفيد فى اعمال الكنترول لأنه بعد اتمام عملية الرصد للدرجات يتم الترحيل لذلك وضعت زر فى الورقة المراد الترحيل منها ولم اشر الى الصفحات كما تفضلت) اما بخصوص النقطة الثانية لأرفاق الملفات كثير من الأعضاء بعد الرد عليهم يطلبون تنفيذ الكود على المرفق الم تلاحظ ؟؟؟؟؟؟

الأخ الكريم فايز فراج السلام عليكم تم انشاء صفحة جديدة باسم رصد الدور الثانى يتم الترحيل لها . عسى ان يكون هذا هو المطلوب abo_abary_الصف الأول الإبتدائي 2016.rar