List of numbers to formula

[if1467]

I am trying to create a small VB program that will take a list of numbers in excel and put it into a single cell.

Example:
Turn this:
-547119.67
-19700.00
-2170.50
115.00
10504.56
186131.59
-75669.81
17180.82
-44261.34

Into this:

=-547119.67-19700-2170.50+115+10504.56+186131.59-75669.81+17180.82-44261.34

I need have it so the cells reads out as a single number, not text. Also, I need to do this in VB because I will be surrounding it with other parameters to select which numbers in the list to use.

Thanks for any Help!!

[kadghar]

I am trying to create a small VB program that will take a list of numbers in excel and put it into a single cell.

Thanks for any Help!!

use FOR - NEXT or DO-LOOP and CELLS... may be WORKSHEETS

this might give you a general idea:

sub something()
dim i as long
dim b as double
for i = 1 to 10
    b= b + cells(i,1)
next
cells(1,2)=b
end sub

will sum A1:A10 and write the result in B1

well
HTH

[kadghar]

Oh in case i misunderstood the question

sub something()
dim i as long
dim b as string
b = "="
for i = 1 to 10
    if mid(cells(i,1),1,1)="-" then
        b= b  & cells(i,1)
    else
        b= b  & "+" & cells(i,1)
    end if
next
cells(1,2)=b
end sub

this might be of help as well

[if1467]

use FOR - NEXT or DO-LOOP and CELLS... may be WORKSHEETS

will sum A1:A10 and write the result in B1

well
HTH

That is a good start, but in addtion to this I need the out put cell to have all the numbers in the formula, not just the sum.

Any ideas?

[if1467]

Oh in case i misunderstood the question

sub something()
dim i as long
dim b as string
b = "="
for i = 1 to 10
    if mid(cells(i,1),1,1)="-" then
        b= b  & cells(i,1)
    else
        b= b  & "+" & cells(i,1)
    end if
next
cells(1,2)=b
end sub

this might be of help as well

That's it!!!

Thanks so much!!!

[kadghar]

That is a good start, but in addtion to this I need the out put cell to have all the numbers in the formula, not just the sum.

Any ideas?

yes, sorry, check post #3