Help with macro please

[slimimi]

Hi there.

I am trying to achieve the following:

User enters price into cell F5 (for example).
User clicks on button which fires macro which:
Looks at active cell
Asks user to enter "Enter Lot Size" into an input box perhaps.
Place a formula in the (next cell on the right) of the active cell (in this case Cell G5)

The Original Formula i had was :
=IF(F5>0,(F5-S5)*10000,"")

Now this formula (to go in Cell G5) will need to change to something like this (hope it makes sense) :
=IF(Active Cell>0,((Active Cell Value - S5)*1000)*(inputbox value x 10),"",cell G5)

I really have no idea how to put this altogether.
Would appreciate anyones kind help.

 

[ravishankar]

Hi
try the following codes

sub formula()
Dim a as long, dim b as long
a= inputbox("enter price")
b = Inputbox("enter lot size")
if a > 0 then
cells(5,8) = ((a - cells(5,17))*1000)*(bx 10)
else
cells(5,8) = cells(5,7)
endif
end sub

Run the macro.
Ravi