Find and Replace Question

  • Thread starter Thread starter ryan.fitzpatrick3
  • Start date Start date
R

ryan.fitzpatrick3

I'm doing a Find search on all words with SFWY instead of replacing it
I want the complete row deleted. Is there away?

ryan
 
Public Sub DeleteStuff()
Dim wks As Worksheet
Dim rngToSearch As Range
Dim rngFound As Range
Dim rngFoundAll As Range
Dim strFirstAddress As String

Set wks = ActiveSheet
Set rngToSearch = wks.Columns("A")
Set rngFound = rngToSearch.Find(What:="SFWY", _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
MatchCase:=True)
If Not rngFound Is Nothing Then
Set rngFoundAll = rngFound
strFirstAddress = rngFound.Address
Do
Set rngFoundAll = Union(rngFound, rngFoundAll)
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
rngFoundAll.EntireRow.Delete
End If
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Faster way to find and replace? 1
Code to do a simple clean of one column by copying and pasting(finding and replacing) phrases in adj 4
Display a field based on an ID 4
Excel wait for Find Replace dialog box in Word 4
Find/Replace MSWord wildcard characters from within Excel 6
MACRO: Multiple Find / Replace 3
tricky find and replace 5
Find/Replace Macro; Need Loop 7

Back
Top