Solved

vb 6.0  -->  In vb code, VLookup using Application.WorksheetFunction.VLookup() returning 82.00 instead of 82.327, 75.00 instead of 75.728 ..  etc..

Posted on 2008-10-26
5
541 Views
Last Modified: 2011-10-03
In vb 6, I'm doing a VLookup which references an excel range...    using Application.WorksheetFunction.VLookup(parmInvestName, rngFind, 1, False)  , but it keeps returning the whole # without the decimal..    but i need the decimal.

This is urgent question as I'm not very familiar with vb syntax..   i've tried changing from Double to Long and everything else, but it still doesn't return the decimal places for a double type..  here is example of one of my attempts  :  

Public Function FindPutDeltaRefSecond(parmInvestName As String) As Long
    Dim rngFind As Range
    Set rngFind = RefData.Option.TablePutData
    On Error GoTo Terminate
    FindPutDeltaRefSecond = CLng(Application.WorksheetFunction.VLookup(parmInvestName, rngFind, 3, False))
Terminate:
    Set rngFind = Nothing
End Function
0
Comment
Question by:lblinc
  • 3
  • 2
5 Comments
 

Author Comment

by:lblinc
ID: 22808862
I tried using different combinations using   CDbl, CLng, and then trying to Format(x, "#00.00") the Double as a string..  still nothing but zeroes to the right of decimal is returned.    In the spreadsheet, the numbers I'm doing the VLookup to retrieve look like this ...  

90.662
82.327
75.728
69.252
48.399
36.910
30.355
17.092

Instead I keep getting this returned in VLookup..

90.000
82.000
75.000
69.000
..
..






0
 
LVL 59

Accepted Solution

by:
Chris Bottomley earned 500 total points
ID: 22808883
To confirm and no offence meant ...

When producing as a double you set both the return type and the conversion to double?

Public Function FindPutDeltaRefSecond(parmInvestName As String) As Double
...
    FindPutDeltaRefSecond = CDbl(Application.WorksheetFunction.VLookup(parmInvestName, rngFind, 3, False))

Chris
0
 

Author Comment

by:lblinc
ID: 22808926
Yean I know what you're saying, i've tried everything..     i thought maybe for some reason the input retrieved from spreadsheet possibly was read in as a string..    I've tried multiple combinations to try to get the correct data when debugging..
0
 

Author Comment

by:lblinc
ID: 22808956
Finally got it, thanks for a bit of input chris..
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 22810419
For the record, what was the issue ... it will help others in the future?

Chris
0

Featured Post

ScreenConnect 6.0 Free Trial

Explore all the enhancements in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

803 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question