We help IT Professionals succeed at work.

excel vba Vlookup function not working as expected

851 Views
Last Modified: 2013-11-19
The Vlookup function is not working as I thought it would.
Refer to this code (mod_GQ_Get_GQnumber1)...

Sub Get_GQnumber2()
    Dim rng As Range, cell As Range
    Dim lc As Integer
    Dim s As String, sInput As String
   
    lc = Cells(3, Columns.Count).End(xlToLeft).Column
    Set rng = Range(Cells(3, 1), Cells(3, lc))
   
    For Each cell In rng
        If cell.Value Like "GQ-*" Then
            MsgBox cell.Value
            s = Left(cell.Value, InStr(1, cell.Value & " ", " ") - 1)
            MsgBox "s: " & s

            On Error Resume Next
'            v = WorksheetFunction.VLookup(s, LkupRng, 5, 0)
            v = WorksheetFunction.VLookup(s, "Data", 5, 2)
            Sheets("DRA Summary").Range("F2") = v
            End

        End If
    Next
End Sub

This is what happens...
Refering to the line...
v = WorksheetFunction.VLookup(s, "Data", 5, 2)
the variable "s" contains the value "GQ-000" as I would expect but the variable "v" winds up being "Empty" when excuted

What I am trying to do...
I want to take the value that is in the "Data" sheet, Row 2, Column E, which is the word "Yes" and move that value to the "DRA Summary" sheet Column "F" Row "2".

Can anyone tellme what I am doing worng here?

Thanks in Advance.

I am attaching the Workbook Data.xlsm which contains everything I am refering to.
Data.xlsm
Comment
Watch Question

byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
Change the statement with the error to:
v = WorksheetFunction.VLookup(s, Range("A:E"), 5, 2)

Open in new window

byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
You will also find that Application.VLookup is more reliable than WorksheetFunction.VLookup. The former can tolerate an error value being returned; the latter will cause a run-time error.
byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
Do you want an exact match for s since your lookup column is not sorted in ascending order? If so, you need FALSE as the fourth parameter in VLOOKUP.
v = Application.VLookup(s, Range("A:E"), 5, 0)                 '0 is equivalent to FALSE

Author

Commented:
What is the 5 doing?
byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
Return a result from column E, the fifth column in the range A:E on worksheet Data

Author

Commented:
Alright it's getting the data from the "DRA Summary" sheet.
How wouldI get a value from the "Data" sheet?
byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
It returns data from the active worksheet. If you need from a non-active worksheet, you must specify it:
v = Application.VLookup(s, Worksheets("Data").Range("A:E"), 5, 0)                 '0 is equivalent to FALSE 

Open in new window

Author

Commented:
That works.
In the Range specification I don't want A:E I just want E.
How would I specify that?
byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
Isn't the lookup column Data worksheet column A? If you want a result from Data worksheet column E, then you need A:E with returning column 5.

Author

Commented:
So you have to specify a range and also specify the specific column number. Is that correct?

Author

Commented:
I want to check all of the columns, not just A:E. I have coded...
lc = Cells(3, Columns.Count).End(xlToLeft).Column
But this gives me the numeric total of columns. How would I specify the required Alpha range column A: to last column?
byundtMechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013

Commented:
To get all columns with data, you might use:
Dim lc As Long,ResultCol As Long
lc = Worksheets("Data").Cells(3, Worksheets("Data").Columns.Count).End(xlToLeft).Column
ResultCol = 5
v = Application.VLookup(s, Worksheets("Data").Range("A:A").Resize(,lc), ResultCol, 0)

Open in new window

Author

Commented:
I will give that a try.
I don't know if there is a better way to accomplish what I am trying to do.
But to summarize...
1) I find a code like GQ-000(row) in the DRA Summary table.
2) I want to find the same code in the Data table.
3) When that code is found in the Data table I get the value in Column E and
4) move that data to the cell above where GQ-000 was found.

This check must be done for all cells that are like GQ-*

May be I am getting too complicated with what I have coded so far.
Any Suggestions?
Mechanical Engineer
CERTIFIED EXPERT
Most Valuable Expert 2013
Top Expert 2013
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.