formula

J

jkk

how do i make each cell a formula. ie:=10 so when i go to change it i can
just dble click on the cell and +/- a qty?
 
S

Search33

Try using a spinner.
On the forms toolbar (if it is not visible, go to view--> Toolbars-->
Forms), click the spinner button. Draw a square in your cell and the spinner
will appear. Right click on the spinner and click format control. On the
control tab, set the Cell Link to your cell. You can also set minimum and
maximum values.

- Search
 
J

jkk

thank you, it did not work though.. what does a spinner do? what i need to do
is make every cell =10 instead of just 10 in a cell. i am using it for a
retail plan. So then when i go to add or cubtract from taht column say to
increase or decrease sales i can just hit f2 then +what i want to increase it
by
help!!
 
B

Bill Kuunders

enter the formula in one cell =10
rigt click <>copy
select an area where you want the other cells to have the same
right click<>paste
 
G

Gord Dibben

Sounds like you are looking for an accumulator cell.

Easy to do but fraught with danger.

Maybe better to enter a formula like =10 + D1

Then in D1 you can enter any number you want and have the cell update.


Gord Dibben Excel MVP
 
D

Dave Peterson

Maybe you could use the doubleclick to add and the rightclick to subtract.

If you want to try it, rightclick on the worksheet tab that should have this
behavior. Select View code and paste this in:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)

Dim myRng As Range
Set myRng = Me.Range("a1:A15")

If Intersect(Target, myRng) Is Nothing Then
Exit Sub
End If

Cancel = True 'stop any edit in cell
On Error GoTo errHandler:

With Target
If IsNumeric(.Value) Then
Application.EnableEvents = False
.Value = .Value + 1
End If
End With

errHandler:
Application.EnableEvents = True

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Dim myRng As Range
Set myRng = Me.Range("a1:A15")

If Intersect(Target, myRng) Is Nothing Then
Exit Sub
End If

Cancel = True 'stop rightclick menu from showing up
On Error GoTo errHandler:

With Target
If IsNumeric(.Value) Then
Application.EnableEvents = False
.Value = .Value - 1
End If
End With

errHandler:
Application.EnableEvents = True
End Sub

I added/subtracted 1, but you could use any number you want.
 
Top