Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Old March 8th 08, 05:06 PM posted to microsoft.public.excel.misc
external usenet poster
 
First recorded activity by ExcelBanter: Mar 2008
Posts: 4
Default Macro for copy and paste values

Hi,

I am running the following macro for copying a number derived from a goal
seek function and pasting into another worksheet.


Dim A As String

A = Sheets("Sheets1").Range("A10").Value
Sheets("Sheets1").Range("A15").GoalSeek Goal:=A,
ChangingCell:=Sheets("Sheets2").Range("D10")

The macro works fine and my sheets2.D10 gets a value with 15 decimal places.
However, I want it to roundup to 2 decimal places by adding the roundup
function in the above macro. How can I do this?

A quick help would be greatly appreciated. Many thanks.

  #2   Report Post  
Old March 8th 08, 05:10 PM posted to microsoft.public.excel.misc
external usenet poster
 
First recorded activity by ExcelBanter: Aug 2006
Posts: 1,696
Default Macro for copy and paste values

Range("D10").NumberFormat = "0.00"

"excelnerd" wrote:

Hi,

I am running the following macro for copying a number derived from a goal
seek function and pasting into another worksheet.


Dim A As String

A = Sheets("Sheets1").Range("A10").Value
Sheets("Sheets1").Range("A15").GoalSeek Goal:=A,
ChangingCell:=Sheets("Sheets2").Range("D10")

The macro works fine and my sheets2.D10 gets a value with 15 decimal places.
However, I want it to roundup to 2 decimal places by adding the roundup
function in the above macro. How can I do this?

A quick help would be greatly appreciated. Many thanks.

  #3   Report Post  
Old March 8th 08, 05:31 PM posted to microsoft.public.excel.misc
external usenet poster
 
First recorded activity by ExcelBanter: Mar 2008
Posts: 4
Default Macro for copy and paste values

This changes the number format only. But I want the cell itself to contain
only two decimal points. For example,

If Cell A * Cell B = Cell C and
I want to put a value 1000 to Cell C by changing Cell A. Cell A should
contain a number of only two decimal places, not a number like
10.459409908349.

Do you think it's possible?

"Sean Timmons" wrote:

Range("D10").NumberFormat = "0.00"

"excelnerd" wrote:

Hi,

I am running the following macro for copying a number derived from a goal
seek function and pasting into another worksheet.


Dim A As String

A = Sheets("Sheets1").Range("A10").Value
Sheets("Sheets1").Range("A15").GoalSeek Goal:=A,
ChangingCell:=Sheets("Sheets2").Range("D10")

The macro works fine and my sheets2.D10 gets a value with 15 decimal places.
However, I want it to roundup to 2 decimal places by adding the roundup
function in the above macro. How can I do this?

A quick help would be greatly appreciated. Many thanks.

  #4   Report Post  
Old March 8th 08, 06:51 PM posted to microsoft.public.excel.misc
external usenet poster
 
First recorded activity by ExcelBanter: Jul 2006
Posts: 22,909
Default Macro for copy and paste values

ActiveCell.Value = Application.WorksheetFunction.Round(ActiveCell, 2)


Gord Dibben MS Excel MVP

On Sat, 8 Mar 2008 09:31:00 -0800, excelnerd
wrote:

This changes the number format only. But I want the cell itself to contain
only two decimal points. For example,

If Cell A * Cell B = Cell C and
I want to put a value 1000 to Cell C by changing Cell A. Cell A should
contain a number of only two decimal places, not a number like
10.459409908349.

Do you think it's possible?

"Sean Timmons" wrote:

Range("D10").NumberFormat = "0.00"

"excelnerd" wrote:

Hi,

I am running the following macro for copying a number derived from a goal
seek function and pasting into another worksheet.


Dim A As String

A = Sheets("Sheets1").Range("A10").Value
Sheets("Sheets1").Range("A15").GoalSeek Goal:=A,
ChangingCell:=Sheets("Sheets2").Range("D10")

The macro works fine and my sheets2.D10 gets a value with 15 decimal places.
However, I want it to roundup to 2 decimal places by adding the roundup
function in the above macro. How can I do this?

A quick help would be greatly appreciated. Many thanks.




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy range in macro using paste special values Jeff Excel Discussion (Misc queries) 2 August 20th 07 08:12 PM
Copy/Paste how to avoid the copy of formula cells w/o calc values Dennis Excel Discussion (Misc queries) 10 March 2nd 06 10:47 PM
Macro to open workbook and copy and paste values in to orig workbo Dena X Excel Worksheet Functions 1 December 15th 05 11:13 PM
Macro needed to Paste Values and prevent Macro operation thunderfoot Excel Discussion (Misc queries) 1 June 11th 05 12:44 AM
Macro needed to Paste Values and prevent Macro operation thunderfoot Excel Discussion (Misc queries) 0 June 10th 05 03:38 PM


All times are GMT +1. The time now is 04:29 PM.

Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright 2004-2017 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Copyright © 2017