كيف أخفي صفوفا فارغة؟

[عبدالعزيز محمد]

 

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

بارك الله لنا في صيامنا وجعلنا من عتقائه من النار .

لدي جدول في المرفق به بيانات وأود جعل الصفوف الفارغة تختفي ليظهر صف المجموع الكلي كلما كانت هناك صفوف فارغة .

وهل من الممكن جعل كل الصفوف الفارغة غير ظاهرة الا صفا واحد فارغا ظاهرا لادخال البيانات وكلما تم ملء الصف يظهر صفا فارغة بمجرد الانتهاء من الصف الأول أي بمعنى آخر ظهور صف فارغ كلما امتلأ الصف السابق ألياً .

 

 

 

Aziz002.rar

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

لحين تفضل الساده الاعضاء بالرد

اليك هذا الحل البسيط

الحل قائم علي تصفيه الصفوف

ولاظهار صف فارغ جديد يتم الضغط علي

حرف ش+ctrl

Aziz002.rar

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

الأخ العزيز عزيز ..

كل عام وأنت بخير

جرب الكود التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 3 And Target.Column = 1 Then
        Dim Cell As Range
        Application.ScreenUpdating = False
            Rows("4:28").EntireRow.Hidden = False
            For Each Cell In Range("A4:A28")
                If IsEmpty(Cell) Then Cell.EntireRow.Hidden = True
            Next Cell
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow.Hidden = False
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
        Application.ScreenUpdating = True
    End If
End Sub

تقبل تحياتي

Hide All Blank Rows Except One.rar

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

الاستاذ / ياسر ابو خليل

كل عام انتم بالف خير

هل يمكن تعديل الكود السابق

بحيث يمكن استخامه لاكثر من نطاق

ملف اكسيل مخصص للمرتبات ( 4 اقسام مخصص لكل قسم 120 صف )

هذه الصفوف ليست بالضروره مستخدمه بالكامل

المطلوب ظهور صف فارغ بعد اخر صف مستخدم لكل قسم

وعند استخدام هذا الصف الاخير الظاهر ييم اظهار صف اخر

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

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

[عبدالعزيز محمد]

 

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

وكل عام وانتم بخير نسأل الله أن يجعلنا من عتقائه في هذا الشهر الكريم

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

أما بالنسبة للحل فهو ممتاز ولكن حبذا لو تم تعديله بحيث عند إظهار صف جديد يبقى التركيز_التحديد- علي نفس الصف الذي ظهر أما الكود السابق فعند اظهار صف جديد ينتقل التحديد لصف جديد .

وحبذا أيضأ لو كان إضافة أو اظهار الصف الجديد يكون بعد ادخال آخر خليه في الجدول مع بقاء التحديد على نفس الصف.

تم تعديل يونيو 26, 2015 بواسطه عزيز 60

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

الاستاذ المحترم / ياسر

شكرا للاهتمام

مرفق ملف توضيحي

 

اظهار صف بعد اخر صف مستخدم لعدد 4 مراجعين.rar

تم تعديل يونيو 26, 2015 بواسطه احمد ابوزيزو

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

 

 

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

وكل عام وانتم بخير نسأل الله أن يجعلنا من عتقائه في هذا الشهر الكريم

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

أما بالنسبة للحل فهو ممتاز ولكن حبذا لو تم تعديله بحيث عند إظهار صف جديد يبقى التركيز_التحديد- علي نفس الصف الذي ظهر أما الكود السابق فعند اظهار صف جديد ينتقل التحديد لصف جديد .

وحبذا أيضأ لو كان إضافة أو اظهار الصف الجديد يكون بعد ادخال آخر خليه في الجدول مع بقاء التحديد على نفس الصف.

 

جرب هذا التعديل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 3 And Target.Column = 6 Then
        Dim Cell As Range
        Application.ScreenUpdating = False
            Rows("4:28").EntireRow.Hidden = False
            For Each Cell In Range("A4:A28")
                If IsEmpty(Cell) Then Cell.EntireRow.Hidden = True
            Next Cell
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow.Hidden = False
            Range("F" & Cells(Rows.Count, 1).End(xlUp).Row).Select
        Application.ScreenUpdating = True
    End If
End Sub

تقبل تحياتي

[bakoraus]

الاخوة الافاضل بارك الله فيكم

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

[عبدالعزيز محمد]

 

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

جزاك الله كل الخير استاذي ياسر فقد ابدعت .

تبقى نقطة واحد وهي كيف احدد الخلية التي سأنتقل إليها بالكود في الجدول المحدد بعد إضافة صف في العادة تكون الخلية التي سيتم الادخال فيها حسب الجدول هي العمودB  في الصف الجديد لأن العمود A يتم ترقيم بمعادلة الترقيم التلقائي المعروفة

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

الشكر لأصحاب الفضل فضيلة.

كما قال عليه الصلاة والسم : من لم يشكر الناس لم يشكر الله.

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

أخي الكريم

جرب هذا التعديل البسيط وشوف السطر وحاول تفهم أجزائه ولو استعصى عليك الأمر اسأل عن الجزء الغير مفهوم

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 3 And Target.Column = 6 Then
        Dim Cell As Range
        Application.ScreenUpdating = False
            Rows("4:28").EntireRow.Hidden = False
            For Each Cell In Range("A4:A28")
                If IsEmpty(Cell) Then Cell.EntireRow.Hidden = True
            Next Cell
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow.Hidden = False
        'هذا السطر مسئول عن تحديد الخلية المطلوبة بعد إظهار صف واحد
            Range("B" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
        Application.ScreenUpdating = True
    End If
End Sub

[عبدالعزيز محمد]

 

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

قمت بتطبيق الكود الجديد وعمل بطريقة احسن من الكود السابق ولكن ظهرت مشكلة أن التحديد للخلية ينقل إلى آخر عمود به معادلة الترقيم التلقائي فكيف يتم التوافق بين الكود ومعادلة الترقيم التلقائي بـ IF

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

لم أفهم المطلوب بشكل كافي يرجى وضع الملف وبه معادلة الترقيم وتوضيح المطلوب بشكل أدق

[عبدالعزيز محمد]

 

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

جزاك الله كل الخير عنا يا استاذي ياسر

ففي الملف المرفق معادلة الترقيم التلقائي مع شرح المطلوب بجانب الجدول نأمل أن يكون المطلوب واضحا فأنا على الخط كما يقال انتظر الجواب

 

 

 

Hide All Blank Rows Except One.rar

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

الآن فهمت

لم أدقق في الكود واعتمدت على العمود الأول في مسألة الخلايا الفارغة .. قم باستبدال هذا الجزء

Range("A4:A28")

بأي عمود آخر وليكن العمود B أي أن التغيير المطلوب بسيط للغاية

جرب الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Rem كود يقوم باظهار صف فارغ بعد ادخال بيانات في العمود السادس من الجدول المحدد
    If Target.Row > 3 And Target.Column = 6 Then
        Dim Cell As Range
        Application.ScreenUpdating = False
            Rows("4:28").EntireRow.Hidden = False
            For Each Cell In Range("b4:b28")
                If IsEmpty(Cell) Then Cell.EntireRow.Hidden = True
            Next Cell
            Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).EntireRow.Hidden = False
        'هذا السطر مسئول عن تحديد الخلية المطلوبة بعد إظهار صف واحد
            Range("B" & Cells(Rows.Count, 1).End(xlUp).Row).Select
        Application.ScreenUpdating = True
    End If

End Sub

[عبدالعزيز محمد]

 

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

يبارك لك الله في عمرك وصحتك وعلمك معلمي ياسر

كما يقال منتحرمش منك ...............................................

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

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

الحمد لله أن تم المطلوب على خير

 

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

 

تقبلوا تحياتي

[تعليموه]

جزاكم الله خيراً لقد استفدت منكم