increasing/deceasing macro

[chobanne]

Hi all

I have a problem i can't handle.

Example i have a cell A1 in which i have typed value like 3. I need a macro who will, with every click on it, increase value in cell A1 for 0.1 step, like 3 clikc 3.1 click 3.2 click 3.3 etc... I think u figure what i mean. I need the same macro for decreasing like 3 click 2.9 click 2.8 etc. help please...

thank you

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
    Cancel = True
    Target.Value = Target.Value + 0.1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
    Cancel = True
    Target.Value = Target.Value - 0.1
End If
End Sub

Press ALT + Q to close the code window. Double click A1 to increase; right click to decrease.

 

[chobanne]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
    Cancel = True
    Target.Value = Target.Value + 0.1
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
    Cancel = True
    Target.Value = Target.Value - 0.1
End If
End Sub

Press ALT + Q to close the code window. Double click A1 to increase; right click to decrease.

yeah, thanks this work, and i like it, but i make a program for my colegues and i dont think they can menage with this. I was thinking to make 2 buttons with + and - functions. So can u make those macro assigned to buttons

 

[VoG]

Try with buttons from the Controls toolbar (ActiveX controls)

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 0.1
End Sub

Private Sub CommandButton2_Click()
Range("A1").Value = Range("A1").Value - 0.1
End Sub

 

[Ruddles]

You could also consider the Spin control:-

I'm sure you've seen them before.

 

[chobanne]

Try with buttons from the Controls toolbar (ActiveX controls)

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 0.1
End Sub

Private Sub CommandButton2_Click()
Range("A1").Value = Range("A1").Value - 0.1
End Sub

hmm, dont know... it wont work or i dont know what to do... can u try with form controls button

 

[chobanne]

hmm, dont know... it wont work or i dont know what to do... can u try with form controls button

It work sorry, i didnt turn of design mode thank you verz much

 

[chobanne]

You could also consider the Spin control:-

I'm sure you've seen them before.

can u help me with that mate, i cant get incramental change less then 1

 

[Ruddles]

Right-click the control and select Format Control..., then set the min and max values and the increment.

 

[chobanne]

Right-click the control and select Format Control..., then set the min and max values and the increment.

know that but how to make increment loower then 1. is it possible