الاخوة احتاج كود لتصفية للاعمدة بجدول

[abouelhassan]

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

اخوانى الاساتذة

بحاجة لكود بقائمة منسدلة

اختار منه الشهر

فيتم اظهار عمود الشهر واخفاء باقى الاشهر فقط

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

احترامى وخالص الدعاء

تقرير.rar

[عبدالله المجرب]

السلام عليكم

Sub Abu_Ahmed_Show()

Application.ScreenUpdating = False

Dim cl As Range

	Range("B1:M1").EntireColumn.Hidden = True

Set mytrng = Range("Abu_Alhassn")

For Each cl In mytrng

If cl.Value = [R2].Value Then x = cl.Column: Exit For

Next

	Cells(1, x).EntireColumn.Hidden = False

End Sub

جرب المرفق

تقرير (1).rar

[abouelhassan]

الله الله الله

والله بحبك فى الله استاذنا

بس ممكن بعد اذنك تعديل بسيط لو احتجت ان اظهر الكل ولو امكن يعمل الكود على طول بدون الزر فقط القائمة اختارمنها فيتم التنفيذ

الله يبارك فيك

احترام وتقدير من كل قلبى

[عبدالله المجرب]

السلام عليكم

لتنفيذ الكود بعد الاختيار

ضع هذا الكود في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

If Not Intersect(Target, Range("R2")) Is Nothing Then

Dim cl As Range

    Range("B1:M1").EntireColumn.Hidden = True

Set mytrng = Range("Abu_Alhassn")

For Each cl In mytrng

If cl.Value = Target.Value Then x = cl.Column: Exit For

Next

    Cells(1, x).EntireColumn.Hidden = False

End If

Application.ScreenUpdating = True

End Sub

اما بخصوص الاظهار فبامكانك عمل هذا يدوياً عن طريق اختيار (تضليل من الاعلى ) للاعمدة ثم تختار اظهار

ام تريدها في زر امر

[محمد يحياوي]

اخي الحبيب ابو احمد حل جميل الاخ ابو الحسن اذا كنت تريد اظهار جميع الاعمدة عليك اولا

اضافة الكود التالي في اول الكود لاخي ابو احمد

On Error Resume Next

ثم اضافة الكود التالي في اخر الكود ثم افراغ الخلية R2

If [R2].Value = "" Then

Range("B1:M1").EntireColumn.Hidden = False

End If

[abouelhassan]

استاذ عبدالله المجرب ابا احمد فضلك الله على العباد وزادك كرما

استاذ يحياوى احترام وتقدير

بارك الله فيك

احترام وتقدير من كل قلبى لكما اساتذتى

تم تعديل ديسمبر 12, 2011 بواسطه abouelhssan

[نضال321]

مشكووووووووووووووووووور لصاحب هذا الموضوع وردود الاخوة مدير الموقع والمشرف