Hi
you may use
CDbl
for this

--
Regards
Frank Kabel
Frankfurt, Germany


k wrote:
I'm working on a macro where an Application.Inputbox is used to have
the user enter a numerical value. When this variable is declared as
Double, everything works as expected. However, for the error-checking
code for the InputBox, it appears I need to use Variant as the value
of this variable (if the input is not entered properly) will not be a
numerical value in all cases. Multiple tests with varused as Variant
return an incorrect calculation.

Now, my question is as follows: is there a way to enter varused as a
Variant, but to convert it to a Double after I performed my
error-check for the Application.InputBox? I've included what I
believe is all applicable code, in the hopes it better illustrates my
problem. Any insight into why declaring varused As Variant causes my
code to malfunction would be an added bonues. ;-)

Thanks in advance for any assistance.

k

--

Dim LoadPerString As Double

varused = Application.InputBox("Enter the value.")

--

I was looking into some code to protect the macro in case the user
entered nothing & clicked OK or clicked Cancel when the InputBox
appeared. The code I'd like to use is as follows.

--

Dim varused As Variant
If varused = False Then
MsgBox "You clicked cancel."
Sheets("MainPage").Activate
Application.ScreenUpdating = True
Exit Sub
ElseIf varused = "" Then
MsgBox "You didn't enter anything."
Sheets("MainPage").Activate
Application.ScreenUpdating = True
Exit Sub
Else
MsgBox "You entered: " & varused
End If

--

I got this code from the following post to this group.


http://groups.google.com/groups?hl=e...-8&frame=right
&th=5fa1cec038e2d834&seekm=OQcrrWjsBHA.1452%40tkms ftngp05#link7


The calculations I am performing (not surprisingly, they originated
in this group too) are as follows.

--

Dim hi As Long, lo As Long
Dim XRates As Range, YRates As Range
Dim CountCells As Long

' combining ranges for interpolate function
Set XRates = Range(startxrange & ":" & endxrange)
Set YRates = Range(startyrange & ":" & endyrange)
CountCells = XRates.Cells.Count

If CountCells < YRates.Count Then
MsgBox "The ranges need to be the same size." & vbCrLf & "This
program will self-destruct."
Exit Sub
End If

For hi = 1 To CountCells
If XRates(hi) < LoadPerString Then Exit For
Next
If hi CountCells Then
DesignTime = YRates(CountCells)
' copying design time to MainPage
Worksheets("MainPage").Range("C19").FormulaR1C1 = DesignTime
Sheets("MainPage").Activate
Application.ScreenUpdating = True
Exit Sub
End If
If hi = 1 Then
DesignTime = YRates(hi)
' copying design time to MainPage
Worksheets("MainPage").Range("C19").FormulaR1C1 = DesignTime
Sheets("MainPage").Activate
Application.ScreenUpdating = True
Exit Sub
End If
lo = hi - 1
DesignTime = YRates(lo) + (varused - XRates(lo)) / _
(XRates(hi) - XRates(lo)) * _
(YRates(hi) - YRates(lo))
' copying design time to MainPage
Worksheets("MainPage").Range("C19").FormulaR1C1 = DesignTime

Sheets("MainPage").Activate
Application.ScreenUpdating = True