Delete Rows Shift Up Multiple Sheets

[amoverton2]

Hi,

I have the same data or keywords on multiple sheets. I want to put a keyword into a textbox on a userform, then click a command button, where it deletes the entire row if that keyword is found on multiple sheets then shift everything below it up at the same time.

I found this video on youtube but it works for one sheet, how can I make it so I can delete rows across all of my sheets or a selection of sheets:

I can do the above but I have 5 or 6 sheets and that's 5 or 6 buttons (one per sheet I want to delete). I want to combine it into one button (To rule them all!!!)

Thanks!
Adam

 

[My Aswer Is This]

Yes, I would like the script.

Is this correct:
So your selecting the value to look for from a Combobox Name: "cmbDELNAME"

 

[amoverton2]

Is this correct:
So your selecting the value to look for from a Combobox Name: "cmbDELNAME"

Yes.

 

[My Aswer Is This]

Try this:

Private Sub CommandButton1_Click()
'Modified  9/29/2021  1:24:47 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Dim c As Long
Dim i As Long
Dim s As Variant
c = 2 ' Column Number Modify this to your need
s = cmbDELNAM.Value

For i = 1 To Sheets.Count

    Select Case Sheets(i).Name ' Modify the below sheet names
    
    Case "E_ProspectiveGain_Add", "E_AdminInfoGain_Add", "E_LastContact_Add", "E_TravelInfo_Add", "E_FamilyInfo_Add", "E_MiscNotes_Add"
        
        
        Lastrow = Sheets(i).Cells(Rows.Count, c).End(xlUp).Row

With Sheets(i).Cells(1, c).Resize(Lastrow)
    .AutoFilter 1, s
    Counter = .Columns(c).SpecialCells(xlCellTypeVisible).Count
    
    If Counter > 1 Then 'Modified
        .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    
    Else
        MsgBox "The Value " & s & vbNewLine & "On sheet Named  " & Sheets(i).Name & vbNewLine & "Was not found"
    End If
    .AutoFilter
End With
End Select
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

This script runs when you click a button named:
CommandButton1
You must select a value in the Combobox first.
Your selecting the value your looking for in column B of each sheet
The script only runs on these sheets:
"E_ProspectiveGain_Add", "E_AdminInfoGain_Add", "E_LastContact_Add", "E_TravelInfo_Add", "E_FamilyInfo_Add", "E_MiscNotes_Add"

 

[My Aswer Is This]

So did this work for you. Have not heard back from you

 

[amoverton2]

So did this work for you. Have not heard back from you

Sorry busy day, yes it did work. Thank you!

 

[My Aswer Is This]

Sorry busy day, yes it did work. Thank you!

Glad I was able to help you. I hope you understand some of the code so you can modify things if you need to.