Adding a comma after an int field

Hi

I have a simple .xls worksheet with some VB code, spitting out a text file
when you click a button to execute the code.

I have int fields that I calculate as I create the file and at the end, I
write the values of these fields to a trailer record.

That all works OK, but now the requirement is to have a comma after the int
value, so instead of having

TOTALNUMBER=12
TOTALVALUE=12345

it should be
TOTALNUMBER=12,
TOTALVAULUE=12345,

If I simply append a comma, I get this

TOTALNUMBER=12 , <--- trailing spaces
TOTALVALUE=12345 , <-- trailing spaces

I've tried formatting it like this
.transTotal = Format(Worksheets("Setup-tlr").Cells(30, 2).value, "######0")

and then appending the comma but that does not work either. I tried adding a
',' to the mask (######0,) but that returns a zero value always.

I appreciate any help - thanks!
Bennie

Cells(30,2).NumberFormat = "General,"
--
Gary''s Student


"Bennie" wrote:

> Hi
>
> I have a simple .xls worksheet with some VB code, spitting out a text file
> when you click a button to execute the code.
>
> I have int fields that I calculate as I create the file and at the end, I
> write the values of these fields to a trailer record.
>
> That all works OK, but now the requirement is to have a comma after the int
> value, so instead of having
>
> TOTALNUMBER=12
> TOTALVALUE=12345
>
> it should be
> TOTALNUMBER=12,
> TOTALVAULUE=12345,
>
> If I simply append a comma, I get this
>
> TOTALNUMBER=12 , <--- trailing spaces
> TOTALVALUE=12345 , <-- trailing spaces
>
> I've tried formatting it like this
> .transTotal = Format(Worksheets("Setup-tlr").Cells(30, 2).value, "######0")
>
> and then appending the comma but that does not work either. I tried adding a
> ',' to the mask (######0,) but that returns a zero value always.
>
> I appreciate any help - thanks!
> Bennie

try adding <original line> & ","

regards

One way:

.transtotal = Format(Trim( _
Worksheets("Setup-tir").Cells(30, 2).Text), "######0\,")


In article <48FDA59F-7A6D-4D1E-90AD-9BCC4ECF8DD7@microsoft.com>,
Bennie <Bennie@discussions.microsoft.com> wrote:

> Hi
>
> I have a simple .xls worksheet with some VB code, spitting out a text file
> when you click a button to execute the code.
>
> I have int fields that I calculate as I create the file and at the end, I
> write the values of these fields to a trailer record.
>
> That all works OK, but now the requirement is to have a comma after the int
> value, so instead of having
>
> TOTALNUMBER=12
> TOTALVALUE=12345
>
> it should be
> TOTALNUMBER=12,
> TOTALVAULUE=12345,
>
> If I simply append a comma, I get this
>
> TOTALNUMBER=12 , <--- trailing spaces
> TOTALVALUE=12345 , <-- trailing spaces
>
> I've tried formatting it like this
> .transTotal = Format(Worksheets("Setup-tlr").Cells(30, 2).value, "######0")
>
> and then appending the comma but that does not work either. I tried adding a
> ',' to the mask (######0,) but that returns a zero value always.
>
> I appreciate any help - thanks!
> Bennie

Thanks to all who responded.

I ended up using a free cell with a formula like

=A1&","

which did the trick.
--
Appreciated.
Bennie


"Bennie" wrote:

> Hi
>
> I have a simple .xls worksheet with some VB code, spitting out a text file
> when you click a button to execute the code.
>
> I have int fields that I calculate as I create the file and at the end, I
> write the values of these fields to a trailer record.
>
> That all works OK, but now the requirement is to have a comma after the int
> value, so instead of having
>
> TOTALNUMBER=12
> TOTALVALUE=12345
>
> it should be
> TOTALNUMBER=12,
> TOTALVAULUE=12345,
>
> If I simply append a comma, I get this
>
> TOTALNUMBER=12 , <--- trailing spaces
> TOTALVALUE=12345 , <-- trailing spaces
>
> I've tried formatting it like this
> .transTotal = Format(Worksheets("Setup-tlr").Cells(30, 2).value, "######0")
>
> and then appending the comma but that does not work either. I tried adding a
> ',' to the mask (######0,) but that returns a zero value always.
>
> I appreciate any help - thanks!
> Bennie