Having Trouble with Barcode format?

Question

I have written code to change a value EX:(-239.0) into the ABS form and into a barcode form. But when it changes the value to barcode it drops the decimal point if a zero exist just like the example. How can I keep the decimal point if a zero exist?

Radial:	-16692.0
*16692*

Answer 1

If I change the columns to a text format it actually removes the decimal point entirely?

Then your macro changes the cell format, try this macro in a new file.

Sub Test()

  Range("A1").NumberFormat = "@"

  Range("A1") = "239.00"

End Sub

Andreas.

Answer 2

No luck,

If I change the columns to a text format it actually removes the decimal point entirely?

For my colums I have

Weight(Lbs)	Changed weight	Deviation Calculated	Barcode
15	=15/10	=(15/10)+230	=*&((15/10)+230)&*
0	0		0
0	0		0
0	0		0

The Weight is sent from the scale and the barcode is created and printed by a macro.

Answer 3

Format the cell (all related cells) as Text and enter the number again.

Andreas.

Answer 4

Cristin,

I was not able to successfully use any of your suggested methods to solve my problem. I'm still having the complication of the cell that contains

= "*" & Cell & "*"

If the cell value = 19.00

The cell will = *19*  ??

Its a very confusing issue

Answer 5

Hello,

Method 1:

Please go thru the following steps:

Right-click the cell >> Format Cells... >> Number >> Decimal places >> set the value 1

Method 2:

Type '-16692.0 in a cell.

Method 3:

Sub SetNumFormat()

    Range("A1").NumberFormat = "0.0"

End Sub

Method 4:

Sub SetFormat(ByVal strValue As String, rngTarget As Range)

    rngTarget.Formula = "=CONCATENATE(""" + strValue + """)"

End Sub

'Test this macro to see the value in active cell.

Sub Test()

    SetFormat "-16692.0", ActiveCell

End Sub

Cheers,

Cristin