Copy from on eworkbook to another

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
--
Thanks for your help.
Karen53

James_Thomlinson
Fri Mar 14 18:08:00 CDT 2008

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.
--
HTH...

Jim Thomlinson


"Karen53" wrote:

> 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
> --
> Thanks for your help.
> Karen53

Karen53
Fri Mar 14 18:40:00 CDT 2008

Thank you, Jim
--
Thanks for your help.
Karen53


"Jim Thomlinson" wrote:

> 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.
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Karen53" wrote:
>
> > 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
> > --
> > Thanks for your help.
> > Karen53