My problems with simple addition ...
 

where I have ...
Dim bn_all, ap_all, reuters_all, others_all, lat_all As Long

Set bn_range = Worksheets("Input").Range("b" & row & ":b40000")
Set ap_range = Worksheets("Input").Range("c" & row & ":c40000")
Set reuters_range = Worksheets("Input").Range("d" & row & ":d40000")
Set others_range = Worksheets("Input").Range("e" & row & ":e40000")


bn_all = Application.WorksheetFunction.Sum(bn_range) ' = 835.5
ap_all = Application.WorksheetFunction.Sum(ap_range) ' = 447
reuters_all = Application.WorksheetFunction.Sum(reuters_range) ' = 467
others_all = Application.WorksheetFunction.Sum(others_range) '= 117

why does this:

lat_all = bn_all + ap_all + reuters_all + others_all = 1886 and not
1886.5 ????


even when I set lat_range
tia ...


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

My problems with simple addition ...
 

Is he variable lat_all defined as an integer or Long?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Larry Levinson" wrote in message
...
where I have ...
Dim bn_all, ap_all, reuters_all, others_all, lat_all As Long

Set bn_range = Worksheets("Input").Range("b" & row & ":b40000")
Set ap_range = Worksheets("Input").Range("c" & row & ":c40000")
Set reuters_range = Worksheets("Input").Range("d" & row & ":d40000")
Set others_range = Worksheets("Input").Range("e" & row & ":e40000")


bn_all = Application.WorksheetFunction.Sum(bn_range) ' = 835.5
ap_all = Application.WorksheetFunction.Sum(ap_range) ' = 447
reuters_all = Application.WorksheetFunction.Sum(reuters_range) ' = 467
others_all = Application.WorksheetFunction.Sum(others_range) '= 117

why does this:

lat_all = bn_all + ap_all + reuters_all + others_all = 1886 and not
1886.5 ????


even when I set lat_range
tia ...


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

My problems with simple addition ...
 

-----Original Message-----
where I have ...
Dim bn_all, ap_all, reuters_all, others_all, lat_all As
Long

Set bn_range = Worksheets("Input").Range("b" & row
& ":b40000")
Set ap_range = Worksheets("Input").Range("c" & row
& ":c40000")
Set reuters_range = Worksheets("Input").Range("d" & row
& ":d40000")
Set others_range = Worksheets("Input").Range("e" & row
& ":e40000")


bn_all = Application.WorksheetFunction.Sum(bn_range) '
= 835.5
ap_all = Application.WorksheetFunction.Sum(ap_range) '
= 447
reuters_all = Application.WorksheetFunction.Sum
(reuters_range) ' = 467
others_all = Application.WorksheetFunction.Sum
(others_range) '= 117

why does this:

lat_all = bn_all + ap_all + reuters_all + others_all =
1886 and not
1886.5 ????


even when I set lat_range
tia ...


Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)
.

Because you defined your data as long !
try with variant or double

My problems with simple addition ...
 

Long, but it works if I set it to Single, thanks.


"Bob Phillips" wrote:

Is he variable lat_all defined as an integer or Long?

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)

My problems with simple addition ...
 

Looking at your post I can see the Long definition now, but I couldn't when
I answered. If it could be a big number, might be better to use Double.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Larry Levinson" wrote in message
...
Long, but it works if I set it to Single, thanks.


"Bob Phillips" wrote:

Is he variable lat_all defined as an integer or Long?

Larry Levinson
Talking up to the vocal ...
LLevinson*Bloomberg.net
(remove the star etc ....)