Excel formula to VBA code

[PaulCL]

Hello Folks,
Can anyone convert this excel formula to VBA.

=IF(ISNA(VLOOKUP(A2,'Original BHHS List'!$A$1:$A$84,1,FALSE)), "Not Duplicate", "Duplicate")

Tks

 

[Trebor76]

This will put the formula into cell A1 of the active sheet (change to suit):

Option Explicit
Sub Macro1()

    Range("A1").Formula = "=IF(ISNA(VLOOKUP(A2,'Original BHHS List'!$A$1:$A$84,1,FALSE)), ""Not Duplicate"", ""Duplicate"")"

End Sub

Regards,

Robert

 

[PaulCL]

Works perfectly. Thanks

 

[Trebor76]

You're welcome

 

[PaulCL]

Range("B2").Formula = "=IF(ISNA(VLOOKUP(A2,'Original BHHS Error List'!$A$1:$A$84,1,FALSE)), ""New Error"", ""Duplicate Error"")"

What would be the code to have the result of the formula in "B2" filldown as far as there is data in column A
Tks

 

[Trebor76]

Try this:

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(ISNA(VLOOKUP(A2,'Original BHHS Error List'!$A$1:$A$84,1,FALSE)), ""New Error"", ""Duplicate Error"")"

Robert

 

[PaulCL]

Works! Thanks again!!