Sleeper: Invalid references table and copy the valids to another table

[jmaocubo]

Hello everyone


I have a table that has a listing that will have invalid references (deliberate).

It is possible to get this table and copy to another, but only the valid.

The size of the table is random....


Source table:

5 |#REF!
2 |1
2 |#REF!
5 |#REF!
5 |30
5 |40
7 |#REF!
… |…



Destination table:

2 |1
5 |30
5 | 40
… …


Imagining that the source table starts in A1 and the target table in N53

I thank you


Regards,
Miguel

[Bob Phillips]

Air-coded



Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim LastRow As Long
Dim NextRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To LastRow
If IsError(.Cells(i, TEST_COLUMN).Offset(0, 1).Value2) Then
.NextRow = NextRow + 1
.Rows(i).Copy Worksheets("Sheet2").Cells(NextRow, "A")
End If
Next i
End With
End Sub