I am using Visual Basic to add numbers in a macro in an Excel spreadsheet.
Something has now changed to where the resulting value of the numbers to be
added is a string of those numbers instead of the sum.
This is the format of the formula I am using:
total.value = a.value + b.value + c.value
If a = 1, b = 2, c = 3, then total.value returns 123, not 6.
This is the case in the file I'm currently working on as well as any new
file which uses this same type of formula. I've tried searching for any
settings that might have caused it to produce this result and used VB and
Excel Help without any success so far. Please help. Thanks.

Something like:

Sub andy1()
Dim a As Range, b As Range, c As Range, total As Range
Set a = Cells(1, 1)
Set b = Cells(2, 1)
Set c = Cells(3, 1)
Set total = Cells(4, 1)
total.Value = a.Value + b.Value + c.Value
End Sub

will produce 123 if the worksheet cells contain text. Make sure they
contain numbers.
--
Gary's Student


"Andy Bleese" wrote:

I am using Visual Basic to add numbers in a macro in an Excel spreadsheet.
Something has now changed to where the resulting value of the numbers to be
added is a string of those numbers instead of the sum.
This is the format of the formula I am using:
total.value = a.value + b.value + c.value
If a = 1, b = 2, c = 3, then total.value returns 123, not 6.
This is the case in the file I'm currently working on as well as any new
file which uses this same type of formula. I've tried searching for any
settings that might have caused it to produce this result and used VB and
Excel Help without any success so far. Please help. Thanks.

Sub andy1()
Dim a As single, b As single, c As single, total As single
a = Cells(1, 1).value
b = Cells(2, 1).value
c = Cells(3, 1).value
total = a.+ b + c
Cells(4, 1).value = total
End Sub

I used single in case there were decimals; if not, you could use As
Integer.
I didn't try it, but it ought to work.
Kathy




Gary''s Student wrote:
Something like:

Sub andy1()
Dim a As Range, b As Range, c As Range, total As Range
Set a = Cells(1, 1)
Set b = Cells(2, 1)
Set c = Cells(3, 1)
Set total = Cells(4, 1)
total.Value = a.Value + b.Value + c.Value
End Sub

will produce 123 if the worksheet cells contain text. Make sure they
contain numbers.
--
Gary's Student


"Andy Bleese" wrote:

I am using Visual Basic to add numbers in a macro in an Excel spreadsheet.
Something has now changed to where the resulting value of the numbers to be
added is a string of those numbers instead of the sum.
This is the format of the formula I am using:
total.value = a.value + b.value + c.value
If a = 1, b = 2, c = 3, then total.value returns 123, not 6.
This is the case in the file I'm currently working on as well as any new
file which uses this same type of formula. I've tried searching for any
settings that might have caused it to produce this result and used VB and
Excel Help without any success so far. Please help. Thanks.

Works cool, but you need to eliminate the dot after the a in the line
to read:
total = a + b + c
instead of:
total = a.+ b + c

Vaya con Dios,
Chuck, CABGx3





"KathyC" wrote:

Sub andy1()
Dim a As single, b As single, c As single, total As single
a = Cells(1, 1).value
b = Cells(2, 1).value
c = Cells(3, 1).value
total = a.+ b + c
Cells(4, 1).value = total
End Sub

I used single in case there were decimals; if not, you could use As
Integer.
I didn't try it, but it ought to work.
Kathy




Gary''s Student wrote:
Something like:

Sub andy1()
Dim a As Range, b As Range, c As Range, total As Range
Set a = Cells(1, 1)
Set b = Cells(2, 1)
Set c = Cells(3, 1)
Set total = Cells(4, 1)
total.Value = a.Value + b.Value + c.Value
End Sub

will produce 123 if the worksheet cells contain text. Make sure they
contain numbers.
--
Gary's Student


"Andy Bleese" wrote:

I am using Visual Basic to add numbers in a macro in an Excel spreadsheet.
Something has now changed to where the resulting value of the numbers to be
added is a string of those numbers instead of the sum.
This is the format of the formula I am using:
total.value = a.value + b.value + c.value
If a = 1, b = 2, c = 3, then total.value returns 123, not 6.
This is the case in the file I'm currently working on as well as any new
file which uses this same type of formula. I've tried searching for any
settings that might have caused it to produce this result and used VB and
Excel Help without any success so far. Please help. Thanks.