Code to delete rows that do not contain certain text in a cell

**rwgladwin** · 06-12-2012, 03:49 AM

Good morning - I am new to macros and would like some advice on a macro to help me delete rows in a worksheet that don't contain certain names.

The example is that column F in my worksheet has a list of people's names and I need to delete all the names apart from one. So, for example, if the name was "M MOUSE", how can I delete all the rows in the sheet starting on row 6 that don't contain "M MOUSE"?

Any help is much appreciated.

Many thanks in advance.

**arlu1201** · 06-12-2012, 03:54 AM

How is that one name decided? Will you need a popup box to ask the user to specify the name? Or should the macro take it from a particular cell?

**rwgladwin** · 06-12-2012, 05:16 AM

Hi there

A pop up box would be ideal but if there is code available for both options, that would be very handy indeed!

**arlu1201** · 06-12-2012, 07:19 AM

This is the code for the popup box.

Option Explicit

Sub delete_rows()
Dim lrow As Long, i As Long
Dim delname As String

With Worksheets("Sheet1")
    delname = InputBox("Please provide the name to be retained.", "Name:")
    lrow = .Range("F" & .Rows.Count).End(xlUp).Row
    For i = lrow To 6 Step -1
        If UCase(.Range("F" & i).Value) <> UCase(delname) Then
            .Rows(i).Delete
            lrow = lrow - 1
        End If
    Next i
End With
End Sub

This is the code if the name is provided in a cell -

Option Explicit

Sub delete_rows()
Dim lrow As Long, i As Long
Dim delname As String

With Worksheets("Sheet1")
    delname = .Range("AA1").Value
    lrow = .Range("F" & .Rows.Count).End(xlUp).Row
    For i = lrow To 6 Step -1
        If UCase(.Range("F" & i).Value) <> UCase(delname) Then
            .Rows(i).Delete
            lrow = lrow - 1
        End If
    Next i
End With
End Sub

Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
Choose Insert | Module
Where the cursor is flashing, choose Edit | Paste

To run the Excel VBA code:
Choose View | Macros
Select a macro in the list, and click the Run button.