أبو حنــــين

السلام عليكم هذه حيلة بسيطة لكنها لا تنطلي على اهل الخبرة و المهم فيها هو حماية البيانات Book2.rar

السلام عليكم ربما هذه المعادلة تفي بالغرض =RIGHT(A2;FIND("/";A2)-2)

السلام عليكم اذا كان العمود الرابع هو المقصود فيكون الكود كالتالي Public Sub lesplace() Dim c, t, tt plac.Clear With Feuil5.Range("a:a") Set c = .Find(prod, LookIn:=xlValues) If Not c Is Nothing Then t = c.Row Do If .Cells(c.Row, 1) = prod Then plac.AddItem Format(.Cells(c.Row, 4), "#,##0.00") plac.List(plac.ListCount - 1, 1) = .Cells(c.Row, 3) plac.List(plac.ListCount - 1, 2) = c.Row End If Set c = .FindNext Loop While Not c Is Nothing And c.Row <> t End If End With End Sub

السلام عليكم استعمل هذا الكود Sub AbouHanine() RR = Array("A", "B", "C", "D", "F", "E") For i = 0 To UBound(RR) With Sheets(RR(i)) .PageSetup.PrintArea = "A1:H37" .PrintOut End With Next End Sub

السلام عليكم Range("B5:B100" & ",F5:F100" ).ClearContents اذا كانت الخلايا التي تحتوي على معادلات ضمن هذا النطاق فما عليك الا اخراجها منه بمعنى لو ان الخلايا في العمود F مثلا هي التي تحتوي على معادلات يصبح السطر السابق كما يلي : Range("B5:B100" & ",E5:E100" ).ClearContents

السلام عليكم نعم يوجد

السلام عليكم هذا تعديل آخر في واجهتي التواصل و المساعدات متابعة مهاره الطلاب22.rar

السلام عليكم انظر المرفق مثال.rar

ان كان الأمر يخص طريقة عمل قائمة منسدلة راجع أخي هذه الروابط 2 http://www.officena.net/ib/index.php?showtopic=46112&hl=%2B%D9%82%D8%A7%D8%A6%D9%85%D8%A9+%2B%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9 2 http://www.officena.net/ib/index.php?showtopic=46027&hl=%2B%D9%82%D8%A7%D8%A6%D9%85%D8%A9+%2B%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9 3 http://www.officena.net/ib/index.php?showtopic=45934&hl=%2B%D9%82%D8%A7%D8%A6%D9%85%D8%A9+%2B%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9

السلام عليكم جزاك الله خيرا اخي حاتم هذا تعديل آخر مصاريف سيارات4.rar

السلام عليكم هل تقصد عمل قائمة منسدلة ؟

السلام عليكم جرب هذا الكود Sub sCopyTo() Dim Last As Long, x As Long Application.ScreenUpdating = False Last = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row x = 4 For i = 4 To Last If DateDiff("d", CDate(ورقة1.Cells(i, 6)), Now) <= 0 Then ورقة1.Range("a" & i).Resize(1, 6).Copy ورقة2.Range("a" & x).PasteSpecial xlPasteValues ورقة2.Range("a" & x) = x - 3 ورقة2.Range("g" & x) = DateAdd("m", 2, ورقة1.Cells(i, 6)) Application.CutCopyMode = False x = x + 1 End If Next i Application.ScreenUpdating = True End Sub

السلام عليكم تم عمل المطلوب بالنسبة scol.caption فهو عبارة عن Label سميته بهذا الاسم و يعمل لمعرفة العمود الخاص بالبحث و بالنسبة لـ cc هو ايضا متغير لمعرفة القيمة العددية لـ scol مصاريف سيارات3.rar

السلام عليكم جزاك الله خيرا اخي عادل ابو زيد على هذا الملف تقبل مروري

السلام عليكم في المرفق طريقتين اختر انسبهما Classeur3.rar

السلام عليكم اخي ابراهيم جزاك الله خيرا

السلام عليكم شاهد المرفق مصاريف سيارات2.rar

السلام عليكم اخي عبد الله المعذرة لم ارى ردك الا بعد ما ارسلت ردي

السلام عليكم استعمل الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cl As Range, LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Range("A1:A" & LR) If cl.HasFormula Then cl.Offset(0, 1) = "Y" Else cl.Offset(0, 1) = "N" Next End Sub

السلام عليكم عمل مميز كالعادة جزاك الله خيرا

السلام عليكم اجبت على النقطة التالية و بعض النقص الذي كان في الكود ( عندما انتهي من اضافه طالب واعطي حفظ تذهب كل ما فيه الخانات ) سؤال : المهارات التي عددها يمكن ان يصل الى 100 ما هي الكلمات التي تستعملها في هذه المهارات ما هي المعلومات التي تريدها ان تظهر عند معاينة كل طالب متابعة مهاره الطلاب11.rar

السلام عليكم قمت باضافة صفحة خاصة بالمهارات حيث بعد اختيار الاسم يمكنك اضافة 100 مهارة مع كل مهارة ملاحظة متابعة مهاره الطلاب11.rar

السلام عليكم انظر الصورة 111.rar

السلام عليكم شاهد المرفق 2003 مصاريف سيارات.rar

السلام عليكم هذا الملف يحتوي على الشرح 222.rar