IS Text?

E

Ed

I'm trying to have this piece of code delete rows that non-numeric. I
thought this
would work but it does not run.

Any ideas or other options?
T.I.A.


Sub Step08_Non_Ship()

Dim LastRow As Long
Dim i As Long

LastRow = Range("A12000").End(xlUp).Row
For i = LastRow To 1 Step -1
If IsText(Range("D" & i).Value) Then
Range("A" & i).EntireRow.Delete
End If
Next 'i

End Sub
 
C

chris

try this

LastRow = Range("A12000").End(xlUp).Ro
For i = LastRow To 1 Step -
If WorksheetFunction.N(Range("D" & i).Value) = 0 The
Range("A" & i).EntireRow.Delet
End I
Next '


----- Ed wrote: ----

I'm trying to have this piece of code delete rows that non-numeric.
thought thi
would work but it does not run

Any ideas or other options
T.I.A


Sub Step08_Non_Ship(

Dim LastRow As Lon
Dim i As Lon

LastRow = Range("A12000").End(xlUp).Ro
For i = LastRow To 1 Step -
If IsText(Range("D" & i).Value) The
Range("A" & i).EntireRow.Delet
End I
Next '

End Su
 
H

Harlan Grove

try this:

LastRow = Range("A12000").End(xlUp).Row
For i = LastRow To 1 Step -1
If WorksheetFunction.N(Range("D" & i).Value) = 0 Then
Range("A" & i).EntireRow.Delete
End If
Next 'i
Click to expand...
...

No, test this! What happens when some cell in column D just happens to evaluate
to zero as a numeric value?
 
C

chris

Well, actually its not supported in VBA anyway
----- Harlan Grove wrote: ----

try this
For i = LastRow To 1 Step -
If WorksheetFunction.N(Range("D" & i).Value) = 0 The
Range("A" & i).EntireRow.Delet
End I
Next '
Click to expand...
..

No, test this! What happens when some cell in column D just happens to evaluat
to zero as a numeric value

-
To top-post is human, to bottom-post and snip is sublime
 
D

Dana DeLouis

Would this idea work for you? Not sure if you want to test formulas for
text though, but it's included.

Sub Demo()
Dim Rng As Range
'Use Column A to determine range of Column D
Set Rng = Range([A1], [A12000].End(xlUp)).Offset(0, 3)
On Error Resume Next
Rng.SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
Rng.SpecialCells(xlCellTypeFormulas, xlTextValues).EntireRow.Delete
ActiveSheet.UsedRange
End Sub
 
Top