Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop
Trying to Loop the below macro until foundcell is nothing, any ideas?
Range("A1").Select Dim FoundCell As Range With Worksheets("StockSheet") Range("A1").Select Set FoundCell = .Cells.Find(What:="BOO", After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If FoundCell Is Nothing Then Else FoundCell.EntireRow.Delete End If End With |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop
Sub yty()
Dim FoundCell As Range Dim rng As Range Dim sFirst As String Range("A1").Select With Worksheets("StockSheet") Set FoundCell = .Cells.Find(What:="BOO", After:=Range("A1"), _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not FoundCell Is Nothing Then sFirst = FoundCell.Address Set rng = FoundCell Do Set FoundCell = .FindNext(FoundCell) If Not FoundCell Is Nothing Then Set rng = Union(rng, FoundCell) End If Loop While Not FoundCell Is Nothing And FoundCell.Address < sFirst End If If Not rng Is Nothing Then rng.EntireRow.Delete End With End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Heather O'Malley" wrote in message . .. Trying to Loop the below macro until foundcell is nothing, any ideas? Range("A1").Select Dim FoundCell As Range With Worksheets("StockSheet") Range("A1").Select Set FoundCell = .Cells.Find(What:="BOO", After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If FoundCell Is Nothing Then Else FoundCell.EntireRow.Delete End If End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to put a loop in a macro? | New Users to Excel | |||
Loop time seems dependent on unrelated workbook - Why? | Excel Worksheet Functions | |||
Loop gone crazy | Excel Discussion (Misc queries) | |||
Do Loop | Excel Discussion (Misc queries) | |||
VB for excel, how do I loop through code | Excel Discussion (Misc queries) |