troubleshooting Question

Need help with VBA Vlook up Function (Run-time error '438' Object doesn't support this property or method)

Avatar of ABINAYA MOHAN
ABINAYA MOHAN asked on
VBA
2 Comments1 Solution113 ViewsLast Modified:
I am using the following code to do a Vlook up and get Runtime error :438 in the If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False))) Then Line code.Pardon my Bad coding, I am fairly new to VBA.


If Not IsEmpty(.Range("D2").Value) Or IsEmpty(.Range("N36").Value) Then
       If .Range("L36").Value = "Liquid Security" Then
           If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Liq_rng, 7, False))) Then
           .Range("Q36").Value = Application.WorksheetFunction.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Liq_rng, 7, False)
           Else
           .Range("Q36").Value = 0
           End If
        Else
           If Not (Application.WorksheetFunction.IsEmpty(Application.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False))) Then
           .Range("Q36").Value = Application.WorksheetFunction.VLookup(Application.WorksheetFunction.CONCATENATE(.Range("D2").Value, .Range("N36").Value), Garantia_Reais_rng, 7, False)
           Else
           .Range("Q36").Value = 0
           End If
        End If
        End If
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 2 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 2 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros