كود إخفاء وإظهار أعمدة وصفوف محددة

[أبو العاصم]

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

الكود التالى يقوم بإخفاء أعمدة محددة 

المطلوب تحديد صفوف محددة أيضا يقوم بإخفاءها مثلا الصف 3 و 4

Sub HID()

Sheets("SHEET1").Select

    Columns("A:d").Select

    Selection.EntireColumn.Hidden = True

End Sub

ثم تركيب الكود المعدل أو دمجه مع الكود التالى 

Sub FLTR_ACC_CS_CR()

     Range("A1:e1").AutoFilter

   Range("A9:M708").AutoFilter field:=6, Criteria1:=Range("K2").Value

   Range("A9:M708").AutoFilter field:=12, Criteria1:=Range("K6").Value

 End Sub

 

ولكم منا جزيل الشكر على حسن المعاونة

[ياسر خليل أبو البراء]

أخي الحبيب أبو عاصم

يرجى وضع الكود بين أقواس التنصيص .. والكود بدون ملف مرفق يكون صعب الإطلاع عليه

ارفق ملف ووضح المطلوب بشكل جيد ..!!!!!!!!!!!

[أبو العاصم]

الأخ ياسر خليل 

بارك الله فيك

كنت أود تعديل الكود بدون إطالة ولكنه طلبك الجميل

فى الملف المرفق 

الكود الأول ذو اللون الأزرق يقوم بفلترة عمودين لونهما الأزرق

المطلوب إضافة إخفاء الصفين رقم 3 و 4 الملونين بالبرتقالى

والكود الثانى ذو اللون البرتقالى يقوم بفلترة عمود لونه برتقالى

المطلوب إضافة إظهار الصفين رقم 3 و 4 الملونين بالبرتقالى

filter.rar

[ياسر خليل أبو البراء]

أخي الكريم أبو عاصم

جرب الكود الأول بهذا الشكل

Sub FLTR_ACC_CS_CR()
    ActiveSheet.AutoFilterMode = False
    Rows("2:6").EntireRow.Hidden = False
        Range("A9:M9").AutoFilter
        With Range("A9:M708")
            .AutoFilter field:=9, Criteria1:=Range("C2").Value
            .AutoFilter field:=4, Criteria1:=Range("C6").Value
        End With
    Rows("3:4").EntireRow.Hidden = True
 End Sub

والكود الثاني بهذا الشكل

Public Sub FLTR_ACC_DATE()
    Dim lngStart As Long, lngEnd As Long
    lngStart = Range("C3").Value    'Assume this is the start date
    lngEnd = Range("C4").Value      'Assume this is the end date
    ActiveSheet.AutoFilterMode = False
    Rows("2:6").EntireRow.Hidden = False
        'Assume you have field name / label in D29
        Range("A9:M708").AutoFilter field:=2, _
            Criteria1:=">=" & lngStart, _
            Operator:=xlAnd, _
            Criteria2:="<=" & lngEnd
    Rows("2:2").EntireRow.Hidden = True: Rows("6:6").EntireRow.Hidden = True
End Sub

تقبل تحياتي

[أبو العاصم]

أخى الكريم ياسر خليل

أجابتك عين المطلوب

هل بالإمكان طلب تعديل على الكود الأول ليشمل إخفاء العمودين الأزرقين

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

وجزاك الله عنى خيرا

وأعانك الله على أمور دنياك

وبارك الله فى أهلك ومالك وصحتك

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

http://www.officena.net/ib/index.php?showtopic=61189

نكون شاكرين لك كثيرا

[ياسر خليل أبو البراء]

تفضل

Sub FLTR_ACC_CS_CR()
    ActiveSheet.AutoFilterMode = False
    Rows("2:6").EntireRow.Hidden = False
    Cells.Columns.EntireColumn.Hidden = False
        Range("A9:M9").AutoFilter
        With Range("A9:M708")
            .AutoFilter field:=9, Criteria1:=Range("C2").Value
            .AutoFilter field:=4, Criteria1:=Range("C6").Value
        End With
    Rows("3:4").EntireRow.Hidden = True
    Columns("D:D").EntireColumn.Hidden = True
    Columns("I:I").EntireColumn.Hidden = True
 End Sub

الثاني لابد من إضافة عليه

Public Sub FLTR_ACC_DATE()
    Dim lngStart As Long, lngEnd As Long
    lngStart = Range("C3").Value    'Assume this is the start date
    lngEnd = Range("C4").Value      'Assume this is the end date
    ActiveSheet.AutoFilterMode = False
    Rows("2:6").EntireRow.Hidden = False
    Cells.Columns.EntireColumn.Hidden = False
        'Assume you have field name / label in D29
        Range("A9:M708").AutoFilter field:=2, _
            Criteria1:=">=" & lngStart, _
            Operator:=xlAnd, _
            Criteria2:="<=" & lngEnd
    Rows("2:2").EntireRow.Hidden = True: Rows("6:6").EntireRow.Hidden = True
End Sub

تقبل تحياتي

[أبو العاصم]

جزاك الله خيرا أخى الغالى 

ولكن بقى لى طلب واحد 

الكودين فى المشاركة الأفضل حلا التى إختارتها

يعملان واحد تلو الاخر

بمعنى اننى أقوم بالتصفية أولا بدون تواريخ الحساب عام غير محدد المد فلذلك أخفى صفوف التاريخ

ثم أحيانا يطلب منى الفلترة على تاريخ بداية ونهايةفأقوم بإضافة الفلترة على الكود الأول وفى حالتنا هذه يقوم الكود الثانى بإلغاء فلترة الكود الأول

فهنا حلين للموضوع

الأول من الحلين - أن نجعل الكود الثانى لا يلغى أى فلترة سابقه من الكود الاول

الثانى من الحلين - دمج الكودين بمعنى التطفية على ثلاث معايير1- الخلية C2  مع النطاق العمود 9

                                                                        2-  الخلية C6  مع النطاق العمود 4

                                                                        3- ثم كود التاريخين كما هو بين تاريخين مع إظهار الصفين 3 و 4 

تعديلك المطلوب على الكود الثانى كود التاريخ ليشمل معه الكود الاول ويزيد عليه إظهار الصفين 

[ياسر خليل أبو البراء]

لكي تجعل الكود الثاني لا يلغي الفلترة قم بوضع تعليق على السطر التالي

ActiveSheet.AutoFilterMode = False

جرب وشوف

[أبو العاصم]

والله جزاك الله خيرا

لكن الكود تارة لا يظهر الصفين المطلوب إظهارهما

فهل من محاولة جديدة لتفادى ذلك

وهلا تكرمت علينا بإطلالة غالية منك يا غالى على موضوعنا الشغوف 

تحويل معالات ملف المخزون الى اكواد على الرابط 

http://www.officena....showtopic=61189

[أبو العاصم]

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

أخ ياسر ممكن تضع لى كود يحتوى على

الفلترة باكثر من معيار + الفلترة بين تاريخين + إخفاء صفين + إخفاء عمودين 

فى كود واحد 

وأنا أشيل منه اللى أنا مش عاوز أنفذه واعدل عليه عن طريق وضع الـ ( ، )