اخفاء اعمده

[احمد حبيبه]

الاخوه الأعزاء هذا مرفق خاص بمواد الدور الثانى فارجو مساعدتى والمطلوب فى المرفق

الدور الثانى.rar

[احمد حبيبه]

up

[يحيى حسين]

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

جرب هذا الكود 

Sub DoIt()
Dim c As Range
Dim LR As Long
LR = Range("C" & Rows.Count).End(xlUp).Row

For Each c In Range("e3:j3")
    If c.Value <> "عربى" Then
        c.EntireColumn.Hidden = True
    Else
        c.EntireColumn.Hidden = False
        With Range(Cells(5, c.Column), Cells(LR, c.Column))
            .AutoFilter
            .AutoFilter 1, ">" & c.Offset(3), xlAnd, "<>*غ*"
        End With
        
    End If
Next c

End Sub

تم تعديل يوليو 3, 2013 بواسطه يحيى حسين

[الشهابي]

أخي العزيز / Ahmed Habiba

وبعد اذن استاذنا الكبير / يحيى حسين 

هذه محاولة مني للحل بوضع كود خاص بكل مادة 

والعفو 

الدور الثانى.rar

[احمد حبيبه]

الأخوه الأعزاء

يحيى حسين الشهابي

اشكركم جدا.. بارك الله فيكم هو المطلوب واكثروالكودين ممتازين جزاكم الله خيرا اساتذتى الأجلاء....

[بن علية حاجي]

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

 

أخي الكريم، أعرف أن الإخوة الكرام لم يبخلوا بما فضل الله عليهم من علم... وأضم هذا الحل بتعديلات على كود أخي الحبيب يحيى مع ربطه بكل زر للمادة (مع إعادة تسمية هذه الأزرار بنفس اسم المادة المكتوب في السطر الثالث على الترتيب)  وإضافة زر جديد لعرض كل البيانات بكود مستقل... أرجو أن تنال إعجابك كل هذه التعديلات... 

 

أخوك بن علية

 

الملف المرفق :  الدور الثانى.rar

[يحيى حسين]

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

 

يا عيني عليك يا بن علية 

و الله هذا ما كنت افكر فيه و عجزت عن عنه 

ActiveSheet.Shapes(Application.Caller).Name 

ربنا يفتحها عليك

تم تعديل يوليو 3, 2013 بواسطه يحيى حسين

[الشهابي]

أستاذتي الكرام

بن علية حاجي ويحيى حسين 

أنتما نجمان في السماء مضيئان 

جزاكما الله خير دائماً نتعلم منكم

تلمبذكم / الشهابي