Problem with formating

[DG]

I have an array that contains string values. When I put one of these values
into my spreadsheet it changes to Scientific.

Dim DataRow(12)

DataRow(9)="201E-13" ' for this example
Line = 2 ' for this example

Sheets("Sheet2").Cells(Line,9) = DataRow(9)

The result in Sheet2 I2 = 2.01E-11 and the format is Scientific. I manually
set this column to text before running the macro.

Any help would be great.

DG

 

[Joel]

Dim DataRow as string
Dim DataRow(12) as string

 

[Peter T]

Seems slightly strange your string is being coerced to a number in a cell
that you say is already formatted as text. What happens if you run this -

s$ = Format(Now, "yyyymmddhhmmss")
With ActiveCell
..NumberFormat = "@"
..Value = s
End With

Regards,
Peter T

 

[DG]

Thanks Joel but that did not work.

I even tried

Sheets("Sheet2").Cells(Line,9) = Str(DataRow(9))

but got a type mismatch error

Any other ideas?

DG

 

[DG]

Hi Peter,

I ran your script and it put 20080418100810 in cell A1 with the warning that
I have a number foratted as text in the cell.

DG

 

[Peter T]

OK, so what happens if you format your cells the same way before you dump
your string values to the cells.

Regards,
Peter T

 

[DG]

I found it.

I was manually formating the column to text BEFORE I ran the macro. At the
begining of the macro I have:

With Range("A8:K10000")
.Clear
End With

which removed the format. When I comment this out my macro works. Problem
is that I need that clear. So Can you tell me how to format column I as
text?

DG

 

[DG]

Got it.

..NumberFormat = "@"

Thanks

I found it.

I was manually formating the column to text BEFORE I ran the macro. At
the begining of the macro I have:

With Range("A8:K10000")
.Clear
End With

which removed the format. When I comment this out my macro works.
Problem is that I need that clear. So Can you tell me how to format column
I as text?

DG