طلب مساعدة - كود حذف

[Xima Alfadni]

السلام عليكم

 

في المثال المرفق المرجو تصحيح كود الحذف حيث انى اريد حذف نطاق متغير في ورقة 2 من زر في ورقة 1

وشكرا

Del.zip

[وائل احمد المصري]

برجاء الاطلاع على المرفق

Del3.rar

[وائل احمد المصري]

لعل المانع خيرا" هل وفى المرفق الغرض ان كان رجاء الرد حتى نغلق هذا الامر

شكرا"

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

برجاء الاطلاع على المرفق

تسلم أخي الحبيب وائل .. حل رائع

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

Dim ER As Integer
    Dim ws As Worksheet
    Set ws = Sheets("User")
    Application.ScreenUpdating = False
    tsheet = ActiveSheet.Name
    ws.Select
    ER = [L15000].End(xlUp).Row
         If ER = 1 Then Exit Sub
         Range("K2:L" & ER).Select
         Selection.ClearContents
    Sheets(tsheet).Select
    Application.ScreenUpdating = True