Delete Rows using Wildcard
I'm trying to make delete all rows that DO NOT contain the text "Enter" in
column F. I need to use a wildcard - as a number of cells contain additional data. I have tried a few different methods based upon research from this site, but I'm am struggling to change the following, to delete rows that DO NOT contain the required text. For i = 672 To 1 Step -1 If Cells(i, "J") Like "*Enter*" Then Rows(i & ":" & i).Delete Next i |
Delete Rows using Wildcard
Try
Sub MyMacro() Dim lngRow As Long For lngRow = Cells(Rows.Count, "F").End(xlUp).Row To 1 Step -1 If Not Range("F" & lngRow) Like "*Enter*" Then Rows(lngRow).Delete End If Next End Sub -- Jacob "Max2073" wrote: I'm trying to make delete all rows that DO NOT contain the text "Enter" in column F. I need to use a wildcard - as a number of cells contain additional data. I have tried a few different methods based upon research from this site, but I'm am struggling to change the following, to delete rows that DO NOT contain the required text. For i = 672 To 1 Step -1 If Cells(i, "J") Like "*Enter*" Then Rows(i & ":" & i).Delete Next i |
Delete Rows using Wildcard
For i = 672 To 1 Step -1
'Added the UCase argument to eliminate case-sensitivity If Not (UCase(Cells(i, "J").Value) Like "*ENTER*") Then Rows(i).EntireRow.Delete End If Next i -- Best Regards, Luke M "Max2073" wrote in message ... I'm trying to make delete all rows that DO NOT contain the text "Enter" in column F. I need to use a wildcard - as a number of cells contain additional data. I have tried a few different methods based upon research from this site, but I'm am struggling to change the following, to delete rows that DO NOT contain the required text. For i = 672 To 1 Step -1 If Cells(i, "J") Like "*Enter*" Then Rows(i & ":" & i).Delete Next i |
All times are GMT +1. The time now is 04:39 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com