HI

New to VB and trying to write a program that gets two values from
cells and calculates a column of values.

cell "C19" = 4.0938

cell "C21" = 4.8438
=========================
Sub FillInRange()

Dim intK As Long
Dim intT As Long
Dim intX As Long
Dim intY As Long

intX = Range("C19").Value
intY = Range("C21").Value
intT = Range("C15").Value
Range("L28").Select

For I = 1 To (intT - 1) Step 1
intK = intX + (intY * I)
Selection.Value = intK
ActiveCell.Offset(1, 0).Select
Next

End Sub
=======================

But in the program they appear as C19 = 4 C21 = 5
Is there a way to get the decimal value into the variables?

Sorry if this dosen't make to much sense as I am not sure of the terms
to use.
Jim

> New to VB and trying to write a program that gets two values from
> cells and calculates a column of values.
>
> cell "C19" = 4.0938
>
> cell "C21" = 4.8438
> =========================
> Sub FillInRange()
>
> Dim intK As Long
> Dim intT As Long
> Dim intX As Long
> Dim intY As Long
>
> intX = Range("C19").Value
> intY = Range("C21").Value
> intT = Range("C15").Value
> Range("L28").Select
>
> For I = 1 To (intT - 1) Step 1
> intK = intX + (intY * I)
> Selection.Value = intK
> ActiveCell.Offset(1, 0).Select
> Next
>
> End Sub
> =======================
>
> But in the program they appear as C19 = 4 C21 = 5
> Is there a way to get the decimal value into the variables?

Although you say C19=4 and C21=5, I am guessing your complaint is intX=4 and
intY=5 because of your last sentence above. If that is the case, the problem
is you declared these variables as Longs... a Long can only hold whole
numbers. Declare them as Single or Double, depending on precision
requirements and, assuming I am right in my assumptions, all should be as
you want it.

Rick

On Jun 24, 7:15 pm, "Rick Rothstein \(MVP - VB\)"
<rickNOSPAMn...@NOSPAMcomcast.net> wrote:

> Although you say C19=4 and C21=5, I am guessing your complaint is intX=4 and
> intY=5 because of your last sentence above. If that is the case, the problem
> is you declared these variables as Longs... a Long can only hold whole
> numbers. Declare them as Single or Double, depending on precision
> requirements and, assuming I am right in my assumptions, all should be as
> you want it.
>
> Rick


Yes, Thanks that fixed the problem. Values are now what I wanted..
Jim