Copy from on eworkbook to another

  • Thread starter Thread starter Karen53
  • Start date Start date
K

Karen53

Hi,

I have two columns which copy to the new book rounded to the nearest dollar.
None of the other columns are doing this. It should be to 2 decimal places.

CAMDepMade is long

Sub NuSaveCAMDepMade(TenRow, CAMDepMade)

'Created 3/13/2008 by Karen Hoagland

Debug.Print "Starting NuSaveCAMDepMade " & Application.ScreenUpdating

With MainPagepg

'save CAM Deposits Made
With .Cells(TenRow, 14)
If CAMDepMade = 0 Then
.HorizontalAlignment = xlRight
.WrapText = False
.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(*
""-""??_);_(@_)"
.Value = CAMDepMade
End If

If .Value <> CAMDepMade Then
.HorizontalAlignment = xlRight
.WrapText = False
.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(*
""-""??_);_(@_)"
.Value = CAMDepMade
End If
End With

End With

End Sub
 
Without looking too closely you have declared
CAMDepMade is long
where long is a long integer. If you try to put a decimal into this variable
it will be automatically coereced to a whole number. Try changing the
delcaration to Double.
 
Thank you, Jim
--
Thanks for your help.
Karen53


Jim Thomlinson said:
Without looking too closely you have declared
CAMDepMade is long
where long is a long integer. If you try to put a decimal into this variable
it will be automatically coereced to a whole number. Try changing the
delcaration to Double.
Click to expand...
 
Back
Top