مساعدة::كود حذف وابقاء رقم واحد فقط

[فراس البزاز]

بعد التحية

 

 عند ادخال مجموعة ارقام في صف واحد..اطلب مساعدة في (كود يقوم بأبقاء اخر رقم قد ادخل على هذا الصف ويحذف الباقي فورا).

الشرح في المرفق

وشكرا

go.rar

تم تعديل ديسمبر 21, 2013 بواسطه firasbazaz

[عبدالله باقشير]

السلام عليكم

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
If Target.Cells.Count <> 1 Then Exit Sub
If Trim(Target) = "" Then Exit Sub

If Not Intersect(Target, Range("B10:F17")) Is Nothing Then
    For Each cel In Cells(Target.Row, "B").Resize(1, 5)
        If cel.Address <> Target.Address Then cel.ClearContents
    Next
End If
End Sub

شاهد المرفق 2010

 

go.rar

[فراس البزاز]

شكرا ,جزاك الله خيراااا

 

 

 

تحياتي واتمنى لك وللجميع الموفقية

تم تعديل ديسمبر 22, 2013 بواسطه firasbazaz