IS Text?

[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

 

[JWolf]

Change line to: If WorksheetFunction.Istext(Range("D" & i).Value) Then

 

[Guest]

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

 

[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

...

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

 

[Guest]

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 '

..

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

 

[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