delete entire in multiple sheets that have same id

[yazan]

Hello Kings,
i have multiple sheets, the first column in each one is "ID number"
i am using this code to delete the entire row in the first sheet
answer = MsgBox("are you sure you want to delete", vbYesNo, vbQuestion)
If answer = vbYes Then
Selection.EntireRow.Delete
Else
'do nothing
End If

but i want if i said yes it will delete the entire rows in everysheet that sharing the same "ID number" ( selection)
please help

 

[Crystalyzer]

Here you go. Please test on a copy of your workbook.

Sub DeleteIDAllSheets()
    Dim ans As VbMsgBoxResult
    Dim id As String
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim srRng As Range, srRes As Range
    
    Set wb = ThisWorkbook
    Set ws = ActiveSheet
    
    ans = MsgBox("are you sure you want to delete", vbYesNo, vbQuestion)
    
    If ans = vbYes Then
        id = Selection.Value
        If id <> "" Then
        Selection.EntireRow.Delete
            For Each ws In wb.Worksheets
                With ws
                    Set srRng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
                    Do
                        On Error Resume Next
                        Set srRes = srRng.Find(id, , xlValues, xlWhole)
                        On Error GoTo 0
                        If Not srRes Is Nothing Then
                            srRes.EntireRow.Delete
                        End If
                    Loop While Not srRes Is Nothing
                End With
            Next ws
        Else
            MsgBox "No id selected. Halting execution.", vbOKOnly
        End If
        
    End If
End Sub

 

[yazan]

Here you go. Please test on a copy of your workbook.

Sub DeleteIDAllSheets()
    Dim ans As VbMsgBoxResult
    Dim id As String
    Dim ws As Worksheet
    Dim wb As Workbook
    Dim srRng As Range, srRes As Range
   
    Set wb = ThisWorkbook
    Set ws = ActiveSheet
   
    ans = MsgBox("are you sure you want to delete", vbYesNo, vbQuestion)
   
    If ans = vbYes Then
        id = Selection.Value
        If id <> "" Then
        Selection.EntireRow.Delete
            For Each ws In wb.Worksheets
                With ws
                    Set srRng = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
                    Do
                        On Error Resume Next
                        Set srRes = srRng.Find(id, , xlValues, xlWhole)
                        On Error GoTo 0
                        If Not srRes Is Nothing Then
                            srRes.EntireRow.Delete
                        End If
                    Loop While Not srRes Is Nothing
                End With
            Next ws
        Else
            MsgBox "No id selected. Halting execution.", vbOKOnly
        End If
       
    End If
End Sub

i do not how to thank you .. you are awesome ! thank you very much

 

[Crystalyzer]

Glad to help!