ExcelBanter - View Single Post

Pistolade · 08:40 PM

What I need Is a bit of code that checks Table 338 Column 6/F/"LAB PRICE(NC)" for "#VALUE!", and if that text is found to run this;

Code:

ActiveSheet.ListObjects("Table338").Range.AutoFilter Field:=6, Criteria1:="=#VALUE!", Operator:=xlFilterValues
    Range("A2", Range("A2").SpecialCells(xlCellTypeLastCell).Offset(0, -4)).Select
    Selection.Copy
    Windows("DeleteAlso.xlsx").Activate
    Range("A3").End(xlDown).Offset(-1).Select
    ActiveSheet.Paste

Else;
End Sub

Thanks,
Pistolade