A
Annette
How do I programically find and delete only rows with "* / *" in column D?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
F
Frank Kabel
Hi Annette
try
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = "* /*" Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub
try
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = "* /*" Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub
A
Annette
oops ... I didn't ask this right ... what if it is wild card ... any text
before "/" and any text after ...
before "/" and any text after ...
F
Frank Kabel
Hi Annette
do you want to delete the entire row if column D contains the sign '/'.
If yes change the line
If Cells(RowNdx, "D").Value = "* /*" Then
to
If InStr(Cells(RowNdx, "D").Value, "/") Then
do you want to delete the entire row if column D contains the sign '/'.
If yes change the line
If Cells(RowNdx, "D").Value = "* /*" Then
to
If InStr(Cells(RowNdx, "D").Value, "/") Then
A
Annette
Perfect ... whew ... think I'm going in the right direction now!