• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 119
  • Last Modified:

simple delete

I have spent too mucjh time looking for this so have given up I know it's on EE somewhere but......

All I want to do id find the word market [but it could be something Market something in column A and for each time I find this I want to delet the row.

I thought this might work but No

Range("A:A").Find("*Market8", , xlValues, xlWhole, , , False).Select
ActiveCell.EntireRow.Delete

please help it's Friday and I want to get off home asap.

Thanks
0
Jagwarman
Asked:
Jagwarman
1 Solution
 
Ken ButtersCommented:
Try this:

Sub KillIt()
    
    Dim SearchRange
    Dim i As Long
    Dim position As Long
    Dim targetString As String
    
    targetString = "Market"
     
    SearchRange = Range("A1", Range("A65536").End(xlUp))
    
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        position = InStr(LCase(SearchRange(i, 1)), LCase(targetString))
        If position > 0 Then
            Range("A" & i).EntireRow.Delete shift:=xlShiftUp
        End If
    Next i
End Sub

Open in new window

0
 
JagwarmanAuthor Commented:
excellent. Now I can go home :-)
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now