Ahd Mhd قام بنشر أبريل 16, 2019 مشاركة قام بنشر أبريل 16, 2019 المطلوب : التعديل على المعادلة (فى الخلية D3 او F3) لاستخراج القيم مرتبة وغير مكررة من الجدول رقم (1) - الملون بالاخضر - من تاريخ 12 ابريل الى تاريخ 17 ابريل فقط. مرفق ملف مع الشكر. Register150419.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 16, 2019 مشاركة قام بنشر أبريل 16, 2019 أظن أنه من الأفضل العمل من هلال الكود Option Explicit Sub sort_by_collections() Dim obj As Object Dim i% Dim ro%: ro = Cells(Rows.Count, 2).End(3).Row Range("D3:F100").ClearContents If ro < 3 Then ro = 3 Set obj = CreateObject("System.Collections.ArrayList") With obj For i = 3 To ro If Range("b" & i) <> "" _ And Not .contains(CDate(Range("b" & i))) _ And Range("b" & i) >= Range("g2") _ And Range("b" & i) <= Range("H2") Then .Add Range("b" & i).Value End If Next .Sort Range("d3").Resize(.Count - 1).Value = _ Application.Transpose(.toarray) .Reverse Range("f3").Resize(.Count - 1).Value = _ Application.Transpose(.toarray) End With Set obj = Nothing End Sub الملف مرفق Register_salim.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ahd Mhd قام بنشر أبريل 16, 2019 الكاتب مشاركة قام بنشر أبريل 16, 2019 اشكرك على الاهتمام يا استاذ سليم حاصبيا جهد مشكور لكنى اريدها بالمعادلات وليس باالاكواد لمن يستطيع المساعدة من الاخوة الاعضاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.