Hi all, How do I convert the below into VBA code? =IF(AB2=IFERROR(VLOOKUP(AB2,tblBRPDatabase[Primay Key],1,FALSE),"No Existing Record in the Database"),"Record Already Exists","No Existing Record in the Database") I have tried the below and it isn't working? On Error Resume Next x = Application.VLookup(TextBox1.Value, Worksheets("BRP Database").ListObjects("tblBRPDatabase"), 2, False) If x = "" Then Me.TextBox2.Value = "No Existing Record in the Database" Else Me.TextBox2.Value = "Record Already Exists" End If Any help appreciated!

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Excel 2016: Excel VBA - Convert Worksheet Formula into VBA Code

Thread starter ajay_gajree
Start date Jun 6, 2018
Tags

database excel existing record vba

ajay_gajree

Well-known Member

Jun 6, 2018

Hi all, How do I convert the below into VBA code?

HTML:

=IF(AB2=IFERROR(VLOOKUP(AB2,tblBRPDatabase[Primay Key],1,FALSE),"No Existing Record in the Database"),"Record Already Exists","No Existing Record in the Database")

I have tried the below and it isn't working?

Code:

On Error Resume Next
    x = Application.VLookup(TextBox1.Value, Worksheets("BRP Database").ListObjects("tblBRPDatabase"), 2, False)
    If x = "" Then
    Me.TextBox2.Value = "No Existing Record in the Database"
    Else
    Me.TextBox2.Value = "Record Already Exists"
    End If

Any help appreciated!