كود لحذف بيانات الصف الحالى دون المعادلات

[أبو يوسف النجار]

أرجو من الأخوة الخبراء

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

ولكم جزيل الشكر

[سليم حاصبيا]

هذا الكود

Sub remove_const()
    With Selection
        If .Count > 1 Then Exit Sub
        .Offset(, 1 - .Column) _
        .Resize(, .CurrentRegion.Columns.Count). _
        SpecialCells(2, 23).ClearContents
    End With
End Sub

 

[أبو يوسف النجار]

أستاذنا    سليم حاصبيا

سلمت وسلمت يمناك جزاك الله خيرا