equation that will filter out #N/A's

[DFrank]

I currently have a string of items that looks like the following:


#N/A
#N/A
1" Shaft Liner DensGlass Ultra 2'x12'
#N/A
#N/A
#N/A
1/2" 4'x12' Regular
#N/A
#N/A
1/2" DensArmor Plus 4'x08' (paperless)
#N/A
#N/A
1/2" DensShield 32"x05'
#N/A
#N/A
1/2" Hardi-Backer 3'x05'
#N/A
1/2" MR 4'x08'
1/2" MR 4'x12'
#N/A
#N/A
#N/A
5/8" 4'x14' FC Type X
#N/A
#N/A
5/8" DensGlass Gold 4'x08' FC Type X
#N/A
#N/A
#N/A
5/8" MR 4'x08' FC Type X
#N/A
5/8" MR 4'x12' FC Type X
#N/A
#N/A


I am trying to filter out the #N/A's, so that it will output on the same
worksheet the following:

1" Shaft Liner DensGlass Ultra 2'x12'
1/2" 4'x12' Regular
1/2" DensArmor Plus 4'x08' (paperless)
1/2" DensShield 32"x05'
1/2" Hardi-Backer 3'x05'
1/2" MR 4'x08'
1/2" MR 4'x12'
5/8" 4'x14' FC Type X
5/8" DensGlass Gold 4'x08' FC Type X
5/8" MR 4'x08' FC Type X
5/8" MR 4'x12' FC Type X

Any help would be appreciated.

 

[Bob Phillips]

Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim LastRow As Long

With ActiveSheet

LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = LastRow to 1 Step -1

If IsError(.cells(i, TEST_COLUMN).Value) Then

.Rows(i).Delete
End If
Next i
End With

End Sub

 

[DFrank]

Thanks for the response. I assume this is VBA, so how do i input it? thanks.

 

[DFrank]

ok, i gnore the otehr question, i figured out where to put it in. But what am
i suppsed to change the "A" to? and how do i get the equation to recognize
the data range i want filtered?

 

[DFrank]

ITs obvious i have to make some modifications to your code, but im not
exactly sure where. i havent used VBA since 7th grade so icompletely forgot
everything.

if it helps, the data range is in column D, and i want it outputed in column
F.

Thanks.

 

[Bob Phillips]

Change the "A"to "D" and run it, it will do everything in column D.