View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
[email protected] paul.robinson@it-tallaght.ie is offline
external usenet poster
 
Posts: 789
Default .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