I have a list of reports to be printed out Monday - Friday, where each
worksheet is Monday, Tuesday, Wednesday, Thursday, or Friday. I made
another worksheet to list reports that we no longer need (by their
report number). I want the macro to go through the worksheet and
delete the rows that correspond to these reports, but I'm getting
stuck at the find step: it keeps giving me this error about "Object or
variable with block variable not set".
How do I fix this? (then afterwards, how do I tell it to delete the
rows where it found something, but not delete the row its on if it
finds nothing?)
Sub Macro5()
'
' Macro5 Macro
' Macro recorded 6/8/2010 by David J. Heinrich
Dim y As Byte
Sheets("Reports Not Needed").Select
y = xlLastRow ' y = numbers of rows
Dim ReportsNotNeeded() As Variant
ReportsNotNeeded = Range(Cells(2, 2), Cells(y, 2)).Value
Dim ws As Worksheet
Dim x As Byte
For Each ws In Worksheets
Sheets(ws.Name).Select
For x = 1 To y - 1
Range("B3:B1391").Select
Selection.Find( _
What:=ReportsNotNeeded(x, 1), _
After:=Range("B3"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
Next x
Next ws
End Sub
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
