اختار ما تريد فرزه وتصفيته

[samycalls2020]

السلام عليكم الأخوة الكرام ..

الموضوع خاص بفرز وتصفية أعمده في جدول كما في المرفق

خزينة تجريبى.xlsb

[أبوأحـمـد]

وعليكم السلام

تفضل

 

خزينة تجريبى (1).xlsm

تم تعديل أغسطس 23, 2023 بواسطه أبوأحـمـد
تعديل المرفق

[samycalls2020]

أخي الكريم / أبو أحمد .. السلام عليكم

كل التحية والتقدير لمجهودك الكبير . وإن كنت أتمنى أن يكون الحل من خلال التطبيق الموجود بالملف بمعنى من خلال اصلاح كود الفرز

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

* بداية عمود التصفية من صف 11 وشرط التصفية من صف 12 ويفضل أن يكون عمود التصفية بأسماء صف العناوين رقم6 وشرط    التصفية من صف رقم7 أي بداية الجدول . * عدم وجود تسلسل رقمي وأبجدي بشرط التصفية .

* تصفية الأرقام لا تعمل لأنها تظهر في شرط التصفية بدون علامة ( 0.00 ) من مائة ، وبالتالي تصفية عمود F وعمود H لا تعمل . * عمود التصفية يظهر به التاريخ الشهر قبل اليوم .

* عند الضغط على عمود التصفية وشرط التصفية تتحول الأرقام والتواريخ الى العربية وعند ترك الضغط تعود للإنجليزية .

* الأرقام تظهر في القائمتين والخاصة برصيد الخزينة بعمود L بكسر كبير والمفترض أن يكون أي رقم بكسر( 0.00 ) من مائة .

تقبل تحياتي

تم تعديل أغسطس 23, 2023 بواسطه samycalls2020
السهو

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

تفضل اخي جرب اليك 2 حلول يمكنك استخدام ما يناسبك

الخزينة.xlsb

[samycalls2020]

السلام عليكم الأستاذ الفاضل محمد هشام

قمت بتجريب المرفق وهو رائع سلمت يداك ..

ويبقى هناك أمران .. الأول : وهو الترتيب في J3 القائمة المنسدلة سوء كان أبجدي أو رقمي

وأتمنى أن يتم هذا الترتيب من خلال كود الفرز الموجود إن أمكن ذلك .. بدون معادلة صفيف أو غيرها

لترتيب تصفية عمود AD نظراً لكبر حجم الملف الأصلي الموجود لدي .

والثاني : أن يكون مدى الفرز والتصفية محدد من صف 12 الى صف 10012 إن أمكن ذلك أيضاً .

وفقكم الله .. وكل الشكر 

تم تعديل أغسطس 28, 2023 بواسطه samycalls2020

[samycalls2020]

محاولة لتعديل الأمر الأول 

وهو الترتيب في J3 القائمة المنسدلة سوء كان أبجدي أو رقمي

ويتبقى الأمر الثاني وهو تحديد مدى الفرز والتصفية .. جارى المحاولة وأتمنى المشاركة من الأخوة الكرام

وشكراً لكل من شارك وسيشارك

الخزينة2 معدل.xlsb

تم تعديل أغسطس 29, 2023 بواسطه samycalls2020

[samycalls2020]

السلام عليكم

تم الترتيب في J3 القائمة المنسدلة سوء كان أبجدي أو رقمي كما ذكرت سابقاً

وتم تحديد مدى الفرز والتصفية ب 3352 صف ويمكن التغير حسب الطلب والحاجة

وشكراً لكل من شارك وساعد

 

الخزينة3 معدل.xlsb

[samycalls2020]

السلام عليكم

اسمحوا لي بإضافة بسيطة وهى أن نجعل كود الفرز يعمل بشكل تلقائي 

بحيث يعمل تلقائياً عند الاختيار من قائمة عمود الفرز في D3

كل التحية

الخزينة4 معدل.xlsb

[محمد هشام.]

تفضل اخي تم  تعديل الاكواد لتتناسب مع طلبك .

 

Private Sub Worksheet_Change(ByVal Target As Range)
''''''''''''''''''''''''''' الخزينة 1 ''''''''''''''''''''''''''''''''
On Error Resume Next '
'اظافة شرط الفلترة لزر التصفية
If Not Intersect(Target, Range("j3")) Is Nothing Then Add_text
If Not Intersect(Target, Range("D3")) Is Nothing Then
Dim LRow As Long, Réf As Range, data As Range
Dim WSData As Worksheet: Set WSData = ThisWorkbook.Sheets("الخزينة1")
'اسم عمود البحث
Col = WSData.Range("D3").Text
'خلية القائمة المنسدلة
Set cel = [j3]

Application.ScreenUpdating = False
Application.Calculation = xlManual
'الغاء الفلترة
WSData.ShowAllData
'نطاق البحث
Set Réf = WSData.Range("D6:O6").Find(Col)
If Not Réf Is Nothing Then
On Error Resume Next
' افراغ البيانات السابقة
WSData.Range("Ad7:Ad" & Range("Ad7").End(xlDown).Row).ClearContents
LRow = WSData.Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row

 'نسخ العمود الهدف
WSData.Range(WSData.Cells(7, Réf.Column), WSData.Cells(3325, Réf.Column)).Copy

With WSData
'لصق
.Range("AD7").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 'ترتيب ابجدي (رقمي)
  WSData.Range("AD7:AD" & LRow).Sort Key1:=Range("AD7"), Order1:=xlAscending, Header:=xlNo
  
  'ازالة الفراغات
    WSData.Range("ad7:ad" & LRow).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
   
   'ازالة التكرار
    WSData.Range("AD7", .Cells(.rows.Count, 30).End(xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo
     [j3].NumberFormat = [AD7].NumberFormat
 End With
'  اظافة قائمة منسدلة مطاطية
Set data = Range(Range("Ad7"), Range("Ad" & rows.Count).End(xlUp))
With cel.validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=" & data.Address & ""
      [j3] = [AD7]
     
End With
 End If
  End If
[d6].Select
Application.CutCopyMode = False
Application.Calculation = xlAutomatic
On Error GoTo 0

End Sub

 

الخزينة6.xlsb

تم تعديل سبتمبر 9, 2023 بواسطه محمد هشام.

[samycalls2020]

السلام عليكم أ. محمد هشام

في البداية كل التعازي والمواساة في مصابكم الجليل لك وللشعب المغربي الشقيق

نسأل الله العلى القدير أن يتغمد من وافته المنية في هذا الزلزال بعظيم الرحمة

والمغفرة وأن ينزلهم منازل الشهداء وأن ينعم ويتم الشفاء على المصابين .. آمين ..

أتوجه بالشكر الجزيل على ما قدمته بهذا الصدد وعلى هذا الكود الرائع

وعلى شرح محتواه .. دائماً نتعلم منك .. بارك الله فيكم ولكم

وكل التحية والاحترام

 

تم تعديل سبتمبر 9, 2023 بواسطه samycalls2020

[عبدللرحيم]

السلام عليكم أ. محمد هشام

في البداية كل التعازي والمواساة في مصابكم الجليل لك وللشعب المغربي الشقيق

نسأل الله العلى القدير أن يتغمد من وافته المنية في هذا الزلزال بعظيم الرحمة

والمغفرة وأن ينزلهم منازل الشهداء وأن ينعم ويتم الشفاء على المصابين .. آمين ..

.. بارك الله فيكم واهل واحبابك

وكل التحية والاحترام

[محمد هشام.]

@samycalls2020 @عبدللرحيم

أنا ممتن جداً لكم على تواصلكم  باسمي ونيابة عن كافة الشعب المغربي ⁦‪أشكركم‬⁩ فرداً فرداً ⁦‪على‬⁩ ⁦‪تعازيكم‬⁩ ودعمكم لنا في هذا المصاب الجلل،

و أقول للجميع شكر الله سعيكم وعظم أجركم وجزاكم الله عنا خير الجزاء  ولا اراكم الله مكروها بأنفسكم ولا عزيز عليكم وغفر الله لأمواتنا وامواتكم ومن قال امين 

سائلا المولى عز وجل أن يتغمدهم بواسع الرحمة والمغفرة، وأن يلهم ذويهم الصبر والسلوان، وأن يشفي الجرحى والمصابين .

تم تعديل سبتمبر 14, 2023 بواسطه محمد هشام.

[عبدللرحيم]

حفظكم الله وجميع اهلك واحبابك ويصبركم واهل المفرب حميعا على ما اصابهم

ويرحم جميع الشهداء