كود لحذف الصف

[midoboha]

السلام عليكم

شكرا لكم على مساعدتكم القيمة

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

واريد اذا اضفت اسم فى العمود b ان يكمل تلقائيا العمود a  بالدالة sub total

c new.rar

[الجموعي]

اخي تفضل المطلوب 

غي حدث زر الحذف قم بوضع الكود التالي

Dim ws As Worksheet
Dim inx As Long
Set ws = ActiveSheet
inx = Me.ComboBox1.ListIndex + 2
If ComboBox1.Text = "" Then
 MsgBox "قم اولا باختيار موظف لحذفه", vbExclamation, "حذف"
Exit Sub
End If

Dim Q
Q = MsgBox(" أنت على وشك حذف الاسم  " & "  (  " & ComboBox1.Text & "  )  " & " من السجل ، هل تريد المواصلة ", vbCritical + vbYesNo, "تأكيد الحذف")
If Q = vbYes Then
ws.Cells(inx, 1).Resize(1, 3).delete Shift:=xlUp
 
Q = MsgBox(" لقد تم حذف الموظف  " & "  (  " & ComboBox1.Text & "  )  " & " من قاعدة البيانات ", vbInformation, "")
End If

وبالنسبة لتسلسل الارقام تلقائيا تفضل هده المعادلة

قم بتمريرها على العمود A وعند الكتابه في العمود B

يتم ادراج الرقم تلقائيا

=IF(B2<>"";ROW()-1;"")

 

تم تعديل مارس 19, 2016 بواسطه الجموعي

[midoboha]

استاذى العزيز شكرا لك

على اهتمامك ومساعدتك

ولكن

عند استعمال كود الحذف اول مرة لا يحدث شئ

يجب استخدامه مرتين حتى يعمل

اما الكود الاخر عند التصفية لا يرتب الارقام من 1 مث الدالة subtotal 

فهل هناك حل لهذه الدالة او جمعهم مع بعض

واسف على تعبك