EXCEL - Find and Delete for entire Rows?

[gwrman]

Is there a quick way in Excel 2003 to find all rows that contain a certain value in a given column?

Thanks

 

[SkipVought]

Hi,

A search would have returned a number of threads on this topic.

Try the AutoFilter and Delete.

Skip,

_{[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment and urethric relief...
Pinot More!}

 

[AnotherHiggins]

=countif(A:A,"Criteria")

[tt]_____
[blue]-John[/blue][/tt]

Help us help you. Please read FAQ181-2886 before posting.

 

[AnotherHiggins]

grr. Maybe I should go back to bed.

Either that, or read the header along with the post.

[tt]_____
[blue]-John[/blue][/tt]

Help us help you. Please read FAQ181-2886 before posting.

 

[GrayShades]

This would work for column B, adjust cells reference for other columns.

Sub DeleteRows()
    Dim LastRow As Long
    Dim i As Long
    LastRow = Cells(65536, 2).End(xlUp).Row
Application.ScreenUpdating = False
    For i = LastRow To 2 Step -1
        If Cells(i, 2).Value = "T" Then Cells(i, 2).EntireRow.Delete
    Next i
Application.ScreenUpdating = True
End Sub

Software: XL2002 on Win2K
Humanware: Older than dirt

 

[SkipVought]

Gray,

This is the MS Office Forum.

Code questions and solutions, belong in the VBA Visual Basic for Applications (Microsoft) Forum707.

Skip,

_{[red]Be Advised![/red] The Vinyards of Texas have produced a wine with diuretic dimishment and urethric relief...
Pinot More!}

 

[GrayShades]

Opps. Sorry about that. :-(

Software: XL2003 on WinXP
Software: Office 2004 on Mac OS X 10.3.9
Humanware: Older than dirt