Button Command

[levanoj]

Hello All,

I'm trying to create a button of some sort (that I would label as "Page Down") on my spreadsheet where everytime it get's pressed, it increases the number value of cell A1 (which has a value of 1) by 36.
So for example, if I press it once, the value in A1 changes to 37, press it again, it changes to 73, etc..

One rule however, the maximum the value A1 should ever reach is 577.

Can anyone help?

 

[njimack]

Sub PageDown()
Range("A1").Value = WorksheetFunction.Min(Range("A1").Value + 1, 577)
End Sub

 

[levanoj]

NJIMACK

the macro seems to work but is only increaseing the value by 1. I need it to be increased by 36 to a max of 577. Anyway this can be revised?

Also, is there anyway I can create a button for this command and place it on the actual spreadsheet? Like in Column U Row 5 for example?

 

[njimack]

Sorry, I misread your original post.

Sub PageDown()
Range("A1").Value = WorksheetFunction.Min(Range("A1").Value + 36, 577)
End Sub

Create a button from the Forms toolbar, and place it on your sheet. Right-click the button, choose 'Assign macro', and select PageDown

 

[levanoj]

that worked perfect this time. Could you provide the same type of macro but which does the opposite?

So basically whatever value is in cell A1, whenever the button is pressed, it reduces the value numerical by 36.

For example if A1 is 577 then the next value would be 541 when the button is pressed.
The only rule with this command would be that the lowest value in A1 would be 1.

 

[njimack]

Sub PageUp()
Range("A1").Value = WorksheetFunction.Max(Range("A1").Value - 36, 1)
End Sub

 

[levanoj]

worked like a charm, thanks for the help.