Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to delete individual rows according to criteria?
I want to delete specific rows if one field in the row contains a particular
alphnumeric string. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to delete individual rows according to criteria?
Sub Delete()
Dim myRange As Range Dim lRow As Long Dim lCol As Long Dim aWS As Worksheet Set aWS = ActiveSheet lRow = aWS.Cells(aWS.Rows.Count, "A").End(xlUp).Row Set myRange = Nothing For i = 1 To lRow lCol = aWS.Cells(lRow, aWS.Columns.Count).End(xlToLeft).Column For j = 1 To lCol If aWS.Cells(i, j).Value = "Your value" Then If myRange Is Nothing Then Set myRange = aWS.Cells(i, j) Else Set myRange = Union(myRange, aWS.Cells(i, j)) End If Exit For Next j Next i If Not myRange Is Nothing Then myRange.EntireRow.Delete End If End Sub Modify as needed. -- HTH, Barb Reinhardt "johnabdl" wrote: I want to delete specific rows if one field in the row contains a particular alphnumeric string. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to delete individual rows according to criteria?
Oops, I forgot an end if
Sub Delete() Dim myRange As Range Dim lRow As Long Dim lCol As Long Dim aWS As Worksheet Set aWS = ActiveSheet lRow = aWS.Cells(aWS.Rows.Count, "A").End(xlUp).Row Set myRange = Nothing For i = 1 To lRow lCol = aWS.Cells(i, aWS.Columns.Count).End(xlToLeft).Column For j = 1 To lCol If lcase(aWS.Cells(i, j).text = "your value" Then If myRange Is Nothing Then Set myRange = aWS.Cells(i, j) Else Set myRange = Union(myRange, aWS.Cells(i, j)) End If Exit For End If Next j Next i If Not myRange Is Nothing Then myRange.EntireRow.Delete End If End Sub -- HTH, Barb Reinhardt "johnabdl" wrote: I want to delete specific rows if one field in the row contains a particular alphnumeric string. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VB Delete rows that do not match criteria | Excel Programming | |||
Delete rows based on criteria | Excel Discussion (Misc queries) | |||
Delete rows with different criteria | Excel Programming | |||
delete rows with criteria | Excel Programming | |||
Delete rows w/o criteria | Excel Programming |