using data in highlighted cells

12beavah · May 1st, 2002, 02:42 PM

OK this is what I am trying to do..

Have the user click on a cell,

Click on a macro button that will bring
up a simple promt box asking for a value.

Take the number from the input box and subtract it from the highlighted cell.

Then display the new number in the highlighted cell.

Any help on this would be great.
Thank you in advance.

bergy · May 1st, 2002, 02:59 PM

You can try it with an InputBox, like this:

Sub test()
Prompt1 = "Enter a value
Title1 = "Input requested
Cell_Value = ActiveCell.Value
User_Value = Application.InputBox(Prompt1, Title1, Type:=1)
ActiveCell.Value = Cell_Value - User_Value
End Sub

giacomo · May 1st, 2002, 03:05 PM

Hi 12beavah,

Have you considered using Paste Special|Subtract for this. It works nicely for what your trying to accomplish.

giacomo

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 1st, 2002, 02:42 PM	#1
12beavah New Member Join Date: Jan 2002 Posts: 2	OK this is what I am trying to do.. Have the user click on a cell, Click on a macro button that will bring up a simple promt box asking for a value. Take the number from the input box and subtract it from the highlighted cell. Then display the new number in the highlighted cell. Any help on this would be great. Thank you in advance.

May 1st, 2002, 02:59 PM	#2
bergy Board Regular Join Date: Apr 2002 Posts: 112	You can try it with an InputBox, like this: Sub test() Prompt1 = "Enter a value Title1 = "Input requested Cell_Value = ActiveCell.Value User_Value = Application.InputBox(Prompt1, Title1, Type:=1) ActiveCell.Value = Cell_Value - User_Value End Sub

May 1st, 2002, 03:05 PM	#3
giacomo Board Regular Join Date: Feb 2002 Posts: 1,802	Hi 12beavah, Have you considered using Paste Special\|Subtract for this. It works nicely for what your trying to accomplish. giacomo