your code works if you change
If rng.Cells(i) < 6500 Or rng.Cells(i) 5599
to
If rng.Cells(i) < 6500 *And* rng.Cells(i) 5599
:)
leskoby Wrote:
I regularly receive a file of financial data and it contains 4 digi
cost center numbers in column A. There are cost center numbers in whic
I am not interested and would like to use a macro to delete the row
which contain the numbers in column A in the range 5600 to 6500.
The code I'm using loops so I would appreciate any help.
'Start Test Conditional Delete
Range("A1:A1").Select
Dim rng As Range
Dim i As Integer, counter As Integer
'Set the range to evaluate to rng.
'initialize i to 1
i = 1
'Loop for a count of 1 to the number of rows in the range that yo
want to evaluate.
For counter = 1 To rng.Rows.Count
'If cell i in the range contains a cost center number betwee
5600 and 6500
delete the row.
If rng.Cells(i) < 6500 Or rng.Cells(i) 5599 Then
rng.Cells(i).EntireRow.Delete
Else
i = i + 1
End If
Nex
--
T-容
-----------------------------------------------------------------------
T-容x's Profile:
http://www.excelforum.com/member.php...fo&userid=2657
View this thread:
http://www.excelforum.com/showthread.php?threadid=39893