ابونادر 2012 قام بنشر أبريل 12, 2013 مشاركة قام بنشر أبريل 12, 2013 لدى جدول موظفين ( اكسل ) Private Sub Worksheet_Change(ByVal Target As Range) If Val(Cells(Target.Row, "I")) > 1 Then MsgBox ("رقم هذا الموظف : " & Target.Value & " موجود مسبقاً") Cells(Target.Row, Target.Column).Select Selection = "" Exit Sub End If End Sub المطلوب تعديل الكود ليمسح بقي بيانات في عدد من الخلايا في الطسر نفسة وشكرا رابط هذا التعليق شارك More sharing options...
ضاحي الغريب قام بنشر أبريل 13, 2013 مشاركة قام بنشر أبريل 13, 2013 أخي الكريم /// أبو نادر تمت الأجابة علي نفس الموضوع باسم (( طلب تعديل كود رسالة ) علي الرابط http://www.officena.net/ib/index.php?showtopic=46427 وعلي اية حال تعديل الكود ليقوم بمسح الصف باكمله Private Sub Worksheet_Change(ByVal Target As Range) If Val(Cells(Target.Row, "I")) > 1 Then MsgBox ("رقم هذا الموظف : " & Target.Value & " موجود مسبقا") Cells(Target.Row, Target.Column).Select Selection = "" Selection.EntireRow.Delete Exit Sub End If End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.