Alternatively, but still along the lines proposed by Paul Schreiner,
you could make your code more concise by using this approach which
avoids all the activating and selecting that will slow your code down
once you apply your code to larger ranges:
Dim searchRange As Range
Set searchRange = Columns("B:B")
Dim foundCell As Range
On Error Resume Next
Set foundCell = searchRange.Find("zz", searchRange.Cells
(Rows.Count, 1), xlFormulas, xlPart, xlByRows, xlNext, False, False)
If Not foundCell Is Nothing Then
foundCell.Clear
Range("D1").Select 'I would recommend to avoid this
statement for the reasons I mentioned above
End If
Please note that I changed the After:= cell to the last cell in the
search range. If you don't do this your code will ignore cell B1.
Hope this helped,
Rolf
On Sep 30, 5:15 pm, Tommy <jntwh...@verizon.net> wrote:
> I am trying to find the first cell in a column containing the text
> "zz" and then clearing that cell and moving on to accomplish other
> things. When a cell is found with :zz" in it,
> all is well, but if there are no cells in the column that contain
> "zz", the macro stops running and generates an error. what do i have
> to do to correct that situation. below is the macro,
>
> Sub Find_zz()
> '
> ' Find_zz Macro
> ' Macro recorded 9/30/2009 by Tommy
> '
>
> '
> Columns("B:B").Select
> Selection.Find(What:="zz", After:=ActiveCell, LookIn:=xlFormulas,
> LookAt _
> :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
> MatchCase:= _
> False, SearchFormat:=False).Activate
> ActiveCell.Select
> ActiveCell.Clear
> Range("D1").Select
> End Sub
>
> Any help would be appreciated
>
> Thanks, Tommy
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
