فرز حسب الاشهر

[الشيباني1]

اخواني الاعزاء  تحية طيبه  ارجو المساعده فيما جاء بالمرفق  مع الامتنان

فرز حسب الشهر.zip

[البروفسير]

تفضل اخي الكريم
استخدمت نسخ الخلايا مع الفلترة .
البيانات تظهر مع كل تغيير فى صف التاريخ
اتمنى ان يكون المرفق هو المطلوب ..
تقبل تحياتى

*تم تعديل المرفق للتغيير من حالة التنشيط للملف الى حالة التغيير فى الخلايا
 

_prof1فرز حسب الشهر.rar

تم تعديل سبتمبر 30, 2013 بواسطه البروفسير

[الشيباني1]

اخي العزيز مع شكري وتقديري  ما وددت الحصول عليه كود للتنفيذ مع الامتنان

[البروفسير]

اخي العزيز مع شكري وتقديري  ما وددت الحصول عليه كود للتنفيذ مع الامتنان

لا شكر على واجب اخي الكريم .. ولكن هل المرفق لا يفي بالغرض ؟؟

ان كان هناك تعديل اشرحه . لعل الله يقدر لي مساعدتك فى تنفيذه .

تقبل تحياتى 

[عبدالله باقشير]

السلام عليكم

 

تفضل الكود التالي:

Sub Macro1()
With Range(Range("B5:J5"), Range("B10000").End(xlUp))
    .Sort .Columns(1), xlAscending
End With
End Sub

تحياتي

[الشيباني1]

استاذنا القدير مع شكري وتقديري اين يتم تحديد الشهر المطلوب فرز بياناته ليتم تفعيل الكود  مع الامتنان

[احمد عبد الناصر]

السلام عليكم

 

اسعد الله صباحكم 

 

لست متأكد اني فهمت المطلوب ولكن على اي حال جرب هذا 

Sub Dahmour()
d2 = Format(DateSerial([c2], [c1] + 1, 0), "mm/dd/yyyy")
r = Range("b3:j" & Cells(Rows.Count, 2).End(xlUp).Row).Address
Range(r).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, d2)
End Sub
Sub SHOWall()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

تحياتي

+فرز حسب الشهر.rar

[الشيباني1]

• استاذنا القدير  مع شكري وتقديري  الكود لا يعمل ارجو اعادة النظر به مع الامتنان

[البروفسير]

اخى الكريم  الشيباني1 نتلهف لنساعدك .. ولكن من الواضح اننا جميعا لم نفهم ما تريده بالظبط .!!

هل تريد فورم يظهر فيه الاشهر وتختار الشهر الذي يظهر ؟؟
ام تريد ترتيب البيانات تنازلى ؟؟
ام تريد فلترة البيانات لكل شهر على حدة ؟؟

هل لنا بتفصيل اكثر حول طلبك .. وندعو الله ان يقدرنا على مساعدتك .. وتنفيذه لك ..
تقبل وافر تحياتي واحترامي اخى العزيز

تم تعديل أكتوبر 2, 2013 بواسطه البروفسير

[الشيباني1]

اخي العزيز  مع شكري  ما وددت الحصول عليه كود لاظهار تفاصيل شهر من الاشهر التي تتضمنها الورقة بعد تثبيت اسم او رقم الشهر مع الشكر

[عبدالله باقشير]

السلام عليكم

 

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

ليتوافق مع اكسل 2003

Sub Dahmour()
d1 = Format(DateSerial([c2], [c1], 1), "mm/dd/yyyy")
d2 = Format(DateSerial([c2], [c1] + 1, 0), "mm/dd/yyyy")
r = Range("b3:j" & Cells(Rows.Count, 2).End(xlUp).Row).Address
Range(r).AutoFilter Field:=1, Criteria1:=">=" & d1, Operator:=xlAnd _
        , Criteria2:="<=" & d2

End Sub

شاهد المرفق 2003

+فرز حسب الشهر.rar

[الشيباني1]

_{استاذنا الكبير  رائع جدا ادامكم الرحمن لنا مرشدا وشكرا جزيلا لجميع الاخوان الاعزاء}