Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !



--
Ray

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray


"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson

Halray,

I think that if the cell your setting already has a format it might cause
what you're seeing, so try setting the format:

With ActiveWorkbook.Worksheets("Dump Area").Cells(RowNumber, 2)
.Value = AreaCounts
.NumberFormat = "#.0000"
End With

hth,

Doug

"Halray" wrote in message
...
Have have a varibale declared as a double, read a number into it from a
file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !



--
Ray

Sorry that format has no affect either before or after the write.
--
Ray


"Doug Glancy" wrote:

Halray,

I think that if the cell your setting already has a format it might cause
what you're seeing, so try setting the format:

With ActiveWorkbook.Worksheets("Dump Area").Cells(RowNumber, 2)
.Value = AreaCounts
.NumberFormat = "#.0000"
End With

hth,

Doug

"Halray" wrote in message
...
Have have a varibale declared as a double, read a number into it from a
file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !



--
Ray

Based on your answer to Dave's question, I can now see that it wouldn't.
Hopefully, he'll have an answer.

Doug

"Halray" wrote in message
...
Sorry that format has no affect either before or after the write.
--
Ray


"Doug Glancy" wrote:

Halray,

I think that if the cell your setting already has a format it might
cause
what you're seeing, so try setting the format:

With ActiveWorkbook.Worksheets("Dump Area").Cells(RowNumber, 2)
.Value = AreaCounts
.NumberFormat = "#.0000"
End With

hth,

Doug

"Halray" wrote in message
...
Have have a varibale declared as a double, read a number into it from
a
file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following
the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !



--
Ray

AreaCount# = 1234.5678
? typename(areacount)
Double
ActiveCell.Value = Areacount#
? ActiveCell.Value
1234.5678
? activeCell.Text
1234.568

--
Regards,
Tom Ogilvy

"Halray" wrote in message
...
Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray


"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see
in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from
a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following
the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson

Hmmm. What are the two numbers?

Then we can try some simple tests.

Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray


"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson

Thanks for trying to help - I'm still looking for an answer.

Thanks again!!!
--
Ray


"Doug Glancy" wrote:

Based on your answer to Dave's question, I can now see that it wouldn't.
Hopefully, he'll have an answer.

Doug

"Halray" wrote in message
...
Sorry that format has no affect either before or after the write.
--
Ray


"Doug Glancy" wrote:

Halray,

I think that if the cell your setting already has a format it might
cause
what you're seeing, so try setting the format:

With ActiveWorkbook.Worksheets("Dump Area").Cells(RowNumber, 2)
.Value = AreaCounts
.NumberFormat = "#.0000"
End With

hth,

Doug

"Halray" wrote in message
...
Have have a varibale declared as a double, read a number into it from
a
file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following
the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !



--
Ray

None from me.

But you never said what the numbers were!

Halray wrote:

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray

"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Dave,

Thanks for trying to help. The fix was to use a variable declared with the
pound symbol on the end. I'm not sure why that symbol matters, but it
worked. I did the following:


With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 3) = RetentionTime
area_summed# = AreaSum
.Cells(RowNumber, 2) = area_summed#
'output paraffin area counts to column-4
area# = AreaCounts
.Cells(RowNumber, 4) = area#
End With

--
Ray


"Dave Peterson" wrote:

None from me.

But you never said what the numbers were!

Halray wrote:

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray

"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

The # sign means that the variable is declared as a double.

Dim Area_Summed as Double

would have the same effect.


Halray wrote:

Dave,

Thanks for trying to help. The fix was to use a variable declared with the
pound symbol on the end. I'm not sure why that symbol matters, but it
worked. I did the following:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 3) = RetentionTime
area_summed# = AreaSum
.Cells(RowNumber, 2) = area_summed#
'output paraffin area counts to column-4
area# = AreaCounts
.Cells(RowNumber, 4) = area#
End With

--
Ray

"Dave Peterson" wrote:

None from me.

But you never said what the numbers were!

Halray wrote:

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray

"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

I had the varibale declared as: Dim AreaSum as double, so I'm confused as to
why one declaration works and the other doesn't. Do you think it has
anything to do with re-declarating (probably not the correct wording) the
variable and reassigning it the value just before writing it?

Thanks again for taking the time to look at my issue.


--
Ray


"Dave Peterson" wrote:

The # sign means that the variable is declared as a double.

Dim Area_Summed as Double

would have the same effect.


Halray wrote:

Dave,

Thanks for trying to help. The fix was to use a variable declared with the
pound symbol on the end. I'm not sure why that symbol matters, but it
worked. I did the following:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 3) = RetentionTime
area_summed# = AreaSum
.Cells(RowNumber, 2) = area_summed#
'output paraffin area counts to column-4
area# = AreaCounts
.Cells(RowNumber, 4) = area#
End With

--
Ray

"Dave Peterson" wrote:

None from me.

But you never said what the numbers were!

Halray wrote:

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray

"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

I used your version of the variable declaration with the pound symbol on the
end instead of the DIM statement and my code now works. Do you know why?


Thanks for your help on this - really do appreciate it.


--
Ray


"Tom Ogilvy" wrote:

AreaCount# = 1234.5678
? typename(areacount)
Double
ActiveCell.Value = Areacount#
? ActiveCell.Value
1234.5678
? activeCell.Text
1234.568

--
Regards,
Tom Ogilvy

"Halray" wrote in message
...
Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray


"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see
in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from
a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following
the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson

Maybe it was the mixture of variables. You could post your code (AND THE
NUMBERS USED) if you want.

Halray wrote:

I had the varibale declared as: Dim AreaSum as double, so I'm confused as to
why one declaration works and the other doesn't. Do you think it has
anything to do with re-declarating (probably not the correct wording) the
variable and reassigning it the value just before writing it?

Thanks again for taking the time to look at my issue.

--
Ray

"Dave Peterson" wrote:

The # sign means that the variable is declared as a double.

Dim Area_Summed as Double

would have the same effect.


Halray wrote:

Dave,

Thanks for trying to help. The fix was to use a variable declared with the
pound symbol on the end. I'm not sure why that symbol matters, but it
worked. I did the following:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 3) = RetentionTime
area_summed# = AreaSum
.Cells(RowNumber, 2) = area_summed#
'output paraffin area counts to column-4
area# = AreaCounts
.Cells(RowNumber, 4) = area#
End With

--
Ray

"Dave Peterson" wrote:

None from me.

But you never said what the numbers were!

Halray wrote:

Dave,

I've been away, but now that I check what you say I do not have that option
checked. Any more ideas?
--
Ray

"Dave Peterson" wrote:

One more guess.

If the cell is formatted to show 2 decimals and you have
Tools|Options|calculation tab|precision as displayed checked, it could cause
what you describe.

With ActiveCell
.NumberFormat = "0.00"
.Value = "1234.1234"
MsgBox .Value
End With



Halray wrote:

Two decimal places are displayed in the formula bar. In the debugger the
varibale has four decimal places.

--
Ray

"Dave Peterson" wrote:

If you look in the formulabar, do you see all 4 decimals?

If yes, try widening the column.

If no, what value do you see in the debugger and what value do you see in the
formulabar?

Halray wrote:

Have have a varibale declared as a double, read a number into it from a file.
THe variable is indicated with four decimal places when viewed in the
debugger. When I write the variable out to Excel using the following the
number gets truncated to two decimal places:

With ActiveWorkbook.Worksheets("Dump Area")
.Cells(RowNumber, 2) = AreaCounts

Anyone have any suggestions to fix this problem?

Thanks !

--
Ray

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson


--

Dave Peterson

Halray wrote:
I had the varibale declared as: Dim AreaSum as double, so I'm confused as to
why one declaration works and the other doesn't. Do you think it has
anything to do with re-declarating (probably not the correct wording) the
variable and reassigning it the value just before writing it?

TypeName function returns the type of a variable.
check your variable like this:

Dim AreaCounts As Double
MsgBox TypeName(AreaCounts)

'your code

MsgBox TypeName(AreaCounts)
.Cells(RowNumber, 2) = AreaCounts

I wonder if you have overlooked a typo or a mistake like
"Dim AreaCounts, AreaSum As Double", and then the Variant variable
has a Currency value.

--
HTH,

okaizawa