طلب تعديل كود حذف واضفة صفوف

[أبو عبدالإله]

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

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

 

حاولت أن أغير فيهما بحيث يكون كود اضافة صف يصبح لإظهار الصف ، وكود حذف الصف يكون لإخفاء الصف . ولكن لم أستطع

فهل هذا ممكن أم لا ؟

 

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

 

 

كود إضافة صف :

Sub CommandButton1_Click()
Dim ws As Worksheet
Dim lr As Long

Set ws = ActiveSheet
lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row
ws.Range("AZ" & lr).EntireRow.Insert
End Sub

كود حذف صف 

Sub CommandButton2_Click()
Dim ws As Worksheet
Dim lr As Long

Set ws = ActiveSheet
lr = ws.Cells(Rows.Count, "AZ").End(xlUp).Row
ws.Range("AZ" & lr).Offset(-1, 0).EntireRow.Delete

End Sub

 

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

الأمر بسيط

استخدم السطر التالي للإخفاء

ws.Range("AZ" & lr).EntireRow.Hidden = True

وغير كلمة True إلى False للإظهار

انتهى

تم تعديل أغسطس 14, 2015 بواسطه ياسر خليل أبو البراء

[أبو عبدالإله]

سهل الله لك صعب ويسر لك عسير

 

ألف شكر لك ياغالي