حذف اسماء بشروط

[نبا زيد]

السيلام عليكم

ممكن طريق سهلة ويا ريت بدون معادلات او كود

حذف الاسماء بشروط وكما موضح بالملف

واذا لم تتوفر 

لا باس معادلة

او كود

جذف الاسماء.xlsx

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

وعليكم السلام 

لم اتمكن من تحميل الملف   يستحسن اعادة رفعه مرة اخرى

تم تعديل سبتمبر 25 بواسطه عبدالله بشير عبدالله

[نبا زيد]

تمام تم اعادة رفع الملف

 

111حذف اسماء بشروط.xlsm

تم تعديل سبتمبر 25 بواسطه صباح2024

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

هو كود صغير يقوم بالمهمة وقبل الحذف يسالك هل تريد الحذف ام لا مع عدد من تم حذفهم

الكود

Sub DeleteRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim deleteCount As Long
    Dim response As VbMsgBoxResult
    
    Set ws = ThisWorkbook.Sheets("ورقة1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    deleteCount = 0
    
    response = MsgBox("هل أنت متأكد أنك تريد حذف  من استلمو الاول والثاني", vbYesNo + vbQuestion, "تأكيد الحذف")
    
    If response = vbYes Then
        For i = lastRow To 3 Step -1
            If ws.Cells(i, 2).Value <> "" And ws.Cells(i, 3).Value <> "" Then
                ws.Rows(i).Delete
                deleteCount = deleteCount + 1
            End If
        Next i
        MsgBox deleteCount & " صفوف تم حذفها.", vbInformation, "عملية الحذف"
    Else
        MsgBox "تم إلغاء عملية الحذف.", vbInformation, "إلغاء"
    End If
End Sub

الملف

حذف اسماء من استلمو الاول والثاني.xlsm

تم تعديل سبتمبر 25 بواسطه عبدالله بشير عبدالله

[نبا زيد]

جزاك الله خير

تسلم