.Value 9999 not recognised
Hi
Your code is checking column A, not column C. Change the "A" to a "C".
You also have things like .UsedRange, which suggests you need to wrap
your code inside something like
With worksheets("mysheet")
'your code
End with
Apart from that, the code looks fine.
regards
Paul
On Mar 11, 8:41*am, "Rob" wrote:
I'm using code from an example posted on Ron de Bruin's web site to delete
rows where the contents of column C equals 9999. *However, this isn't
working which I assume is to do with column C being numeric, I've tried all
sorts but to no avail - any pointers welcome. *Thanks, Rob
.........................
*'Set the first and last row to loop through
* * * * Firstrow = .UsedRange.Cells(1).Row
* * * * Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
* * * * 'We loop from Lastrow to Firstrow (bottom to top)
* * * * For Lrow = Lastrow To Firstrow Step -1
* * * * * * 'We check the values in the A column in this example
* * * * * * With .Cells(Lrow, "A")
* * * * * * * * If Not IsError(.Value) Then
* * * * * * * * * * If .Value = 9999 Then .EntireRow..Delete
* * * * * * * * End If
* * * * * * End With
* * * * Next Lrow
|