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

[صباح2024]

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

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

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

واذا لم تتوفر 

لا باس معادلة

او كود

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

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

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

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

تم تعديل الأربعاء at 16:21 بواسطه عبدالله بشير عبدالله

[صباح2024]

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

 

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

تم تعديل الأربعاء at 17:18 بواسطه صباح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

تم تعديل الأربعاء at 18:09 بواسطه عبدالله بشير عبدالله

[صباح2024]

جزاك الله خير

تسلم