L
Larry Levinson
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 ....)
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 ....)