If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
|
#1
|
|||
|
|||
search for a string
How can I search for a string (“Draft Documents”) in sheet1 and then delete
all the rows above the row containing the string and then delete the last two rows in sheet1? Thank you |
#2
|
|||
|
|||
search for a string
Try;
Sub DoIt() Dim rRange As Range On Error Resume Next Set rRange = Range(Cells(1, 1). _ Cells.Find("Draft Documents", _ Cells(1, 1), xlFormulas, _ xlWhole, xlByRows, xlNext, False)) On Error GoTo 0 If Not rRange Is Nothing Then rRange.EntireRow.Delete Else MsgBox "'Draft Documents' Not found" End If Set rRange = Cells.Find("*", _ Cells(1, 1), xlFormulas, _ xlPart, xlByRows, xlPrevious, False) rRange.Offset(-2, 0).Range("A1:A2").EntireRow.Delete End Sub -- Regards Dave Hawley www.ozgrid.com "santana" wrote in message ... How can I search for a string (“Draft Documents”) in sheet1 and then delete all the rows above the row containing the string and then delete the last two rows in sheet1? Thank you |
Thread Tools | |
Display Modes | |
|
|