اظهار صفوف محدده

[يوسف_2023]

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

المطلوب كود يقوم بتجهيز عمود تاريخ الحساب

بحيث فقط يتم اظهار الصفوف الواقعة بين التاريخين المسجلين فى العمود   G  

وباقى الصفوف تختفى

اظهار نطاق محدد.xlsx

[محمد هشام.]

تفضل جرب اخي

Public Sub Filter()
    Dim rng1 As Long, rng2 As Long
    rng1 = Range("G2").Value
    rng2 = Range("G4").Value
    Range("A9:A1000").AutoFilter Field:=1, _
        Criteria1:=">=" & rng1, _
        Operator:=xlAnd, _
        Criteria2:="<=" & rng2
End Sub

 

اظهار نطاق محدد.xlsm

[يوسف_2023]

37 دقائق مضت, Mohamed Hicham said:

تفضل جرب اخي

اخى الجبيب 

Mohamed Hicham

الكود رائع ..لكن فيه مشكله ان الكود يخفى الصفوف فعلا

لكن فى النهايه بيكون اخر صف مختلف عن التاريخ المسجل فى اخر تاريخ

واعتقد ان تنسيق التواريخ فى الصف مسجل كما فى الصوره المرفقه

فهل توجد طريقة لتحويل التاريخ الى الصيغه العاديه

[محمد هشام.]

أخي لقد لاحظت ذالك فعلا قبل رفع الملف لاكن المشكلة عندك في تنسيق الخلايا  

[يوسف_2023]

14 دقائق مضت, Mohamed Hicham said:

أخي لقد لاحظت ذالك فعلا قبل رفع الملف لاكن المشكلة عندك في تنسيق الخلايا 

ده حقيقى فعلا ....

لكن الملف اللى عندى هذا العمود فيه معادلات لاستدعاء البيانات من صفحات اخرى 

يعنى العمود ده هو اللى ظاهر عندى وحاولت كتير اغير تنسيقه 

لكن مفيش نتيجه 

والصفحه اللى تم استدعاء البيانات منها مخفيه ومحميه

فهل لدى حضرتك طريقة لتغيير تنسيق هذا العمود 

شكرا جدا  لوقت حضرتك

[محمد هشام.]

ممكن ترفع الملف

تم تعديل نوفمبر 18, 2022 بواسطه Mohamed Hicham

[محمد هشام.]

حاول وضع هدا الكود في حدث الشيت ..... سيتم تغيير تنسيق الخلايا في عمود التاريخ  تلقائيا بعد جلب البيانات

يمكنك تعديل الكود على حسب النطاق الموجود عندك في الملف الرئيسي

 

Private Sub Worksheet_selectionChange(ByVal Target As Range)

  If Not Intersect(Target, Range("A10:A1000")) Is Nothing Then
    Dim lastRow As Long
    lastRow = Cells.Find("*", [A9], , , xlByRows, xlPrevious).Row
    Range("A10:A1000" & lastRow).NumberFormat = "dd-mm-yyyy"
    Range("G2:G4").NumberFormat = "dd-mm-yyyy"
    End If
    
End Sub

وهدا مثال  على ملفك لتغيير تنسيق الخلايا بعد جلبها  بالمعادلات من شيت اخر بتنسيقات مختلفة. وفلترة التواريخ  بدون مشاكل

بالتوفيق

 

اظهار نطاق محدد.xlsm

تم تعديل نوفمبر 18, 2022 بواسطه Mohamed Hicham

[يوسف_2023]

4 ساعات مضت, Mohamed Hicham said:

حاول وضع هدا الكود في حدث الشيت ..... سيتم تغيير تنسيق الخلايا في عمود التاريخ  تلقائيا بعد جلب البيانات

يمكنك تعديل الكود على حسب النطاق الموجود عندك في الملف الرئيسي

اخى الحبيب

جزاك الله خيرا .. وزادك من علمه

تمام ...كده الملف ظبط ...اشكرك جدا جد