سليم حاصبيا

1- حدد الخلايا المطلوبة 2- اضغط Ctrl+1 3-من التبويب Number اختر Date ثم custom ثم في خانة type اكتب d/m/yyyy , أو yyyy/m/d كما تريد

أخي وحبيبي ياسر مبروك وألف مبروك (يعني 1001مبروك(s) - حسب ما يفهمها الدكتور اكسل) على الترقية المستحقة عن جدارة .هنا حرف (s) للدلالة على الجمع. و (عاقبالي ان شاء الله). أرجو ان تزيد هذه الترقية من نشاطك و من خفة ظلّك.

السلام عليكم بعد اذن الاخ ياسر و الاخ جمال اليك هذا الحل ربما ينال اعجابك m-m salim 1.rar

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

الملف يحتوي على فيروس و قد رفض الجهاز فتحه

تم التعديل على الملف كي يناسب الترقيم المطلوب انظر الى الورقة (sheet 1 (2 حذف الصفوف الفارغة 1.rar

يجب تصحيح غلطة في هذا السطر (Set movrange = Cells(i + 1, 2 لتصبح (Set movrange = Cells(i , 2

استاذ مختار اكتب هذا الكود في الصفحة المعنية يجب تصحيح غلطة في هذا السطر (Set movrange = Cells(i + 1, 2 لتصبح (Set movrange = Cells(i , 2 Sub remove_and_sorte() Dim ws As Worksheet Dim myrange As Range Dim movrange As Range Dim lr As Integer Dim lr1 As Integer ''''''''''''''''''''''''''''' Set ws = ActiveSheet lr = Cells(Rows.Count, 1).End(xlUp).Row If lr < 2 Then lr = 2 Set myrange = Range("a1:e" & lr) For i = 2 To lr If Cells(i, 2) <> "" Then GoTo 1 If movrange Is Nothing Then Set movrange = Cells(i + 1, 2) Else Set movrange = Union(movrange, Cells(i, 2)) End If 1: Next movrange.EntireRow.Delete '''''''''''''''''''''''''' lr1 = ws.Cells(Rows.Count, 1).End(xlUp).Row ActiveWorkbook.Worksheets("Sheet1 (3)").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1 (3)").Sort.SortFields.Add Key:=Range("B2") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1 (3)").Sort .SetRange Range("A2:E" & lr1) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub

لك ما تريد بحث معدل.rar

أخي صابر الرجاء ان تذهب الى هذا العنوان http://www.officena.net/ib/index.php?showtopic=56348 مشاركة رقم 20 و ستجد ما تريد

ارسل الملف لمعرفة المشكلة

الحل بسيط جداً تثيب الخلية B2 , وذلك بعد كتابتها بالمعادلة الضغط على F4 عدم تكرا ر 1.rar

السلام علكم اذهب الى هذا العنوان /مشاركة رقم 5 http://www.officena.net/ib/index.php?showtopic=56875

اخي ياسر الكرة لسه في ملعبك

بعد السلام اليك الحل New Microsoft Excel Worksheet.rar

اخي ياسر ما دام العمل بالوقت والكودات خد هذا الملف ......لتعرف بالثانية كم مضى عليك من وقت امام الجهاز time with hours.rar

السلام عليكم اليك هذا الملف /لعله لمطلوب يمكنك اضافة اسماء و التعديل كما تريد بحث.rar

السلام عليكم لعل هذا ما تريد انظر لى الصفحة Conge somme des conges (salim).rar

السلام عليكم اكتب هذا الكود Sub der() lr = Cells(Rows.Count, "H").End(xlUp).Row + 1 Range("h" & lr).Select End Sub اما اذا كنت تريد تحديد الصف بكامله: Sub der() lr = Cells(Rows.Count, "H").End(xlUp).Row + 1 Range("h" & lr).Offset(, -7).Resize(1, 8).Select End Sub

جزاك الله خيراً اخي و حبيبي ياسر

استاذ احمد /السلام عليكم اليك هذا الحل الذي لا يسمح بالتكرار مع حق الاختيار الحد الادنى و الحد الاقصى للارقام اختيار عشوائي.rar

السلام عليكم حسب ما فهمت من المشاركة /اليك هذا الملف فراغات تحت الاسم.rar

السلام عليكم ربما كان هذا الحل لقد وضعت المعادلة المناسبة في الورقة الأولى ربما يعجبك اكثر ما في الورقة الثانية دفتر الايصالات والاقساط 1.rar

السلام عليكم لنسخ الكود الى ملف اخر 1- في الصفحة اضغط ALT+F11 (يظهر لك الكود ) 2 - اضغط CTR + C لنسخ الكود 3- اذهب الى الملف الهدف 4-اضغط ALT+F11 (تظهر لك نافذة) 5-اضغط CTR + V للصق الكود 6-قم بالتعديلات اللازمة من حيث الخلايا و النطاقات

السلام عايكم بعد اذن الاخ ياسر اليك حل اخر للموضوع تصفية حسب الرغبة.rar