Previous Month / Next Month Incremental Button

[Anarchus]

Hi there,

I've created a spreadsheet containing data for a few years.

I want to insert two buttons, one for "Previous Month" and one for "Next Month".

I basically want them to work like how the 'spin button' works but instead of the arrows that appear on the 'spin button', I want the above words to show, hence using commandbuttons.

I need the two buttons to be linked to cell $e$30, when the "Previous Month" button is clicked, I want the number to decrease on each click until you get to 0 and when the "Next Month" button is clicked, I want the number to increase on each click.

Is this possible to do and if so, are you able to provide me with the macro?

Thanks

[alansidman]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[Anarchus]

Hi,

Seems pretty basic, I've attached a excel spreadsheet of what I'd like to do.

The top area highlighted in orange is a spin-button. The spin button is linked to cell $E$4. When you click on the up arrow, the linked cell will increase from the value 0. When you click on the down arrow, the value will decrease until you get to 0.

I want this same method to be implemented on a commandbutton instead (purely as I want there to be a word instead of the arrow).

CommandButton1 is titled "Previous Month", I want this to do what the down button on the spin-button does.
CommandButton2 is titled "Next Month", I want this to do what the up button on the spin-button does.
I would like both commandbuttons linked to cell $E$13, so no matter what button you click, the resulting number changes in the same cell.

[jaslake]

Hi Anarchus

Try this...

Option Explicit

Private Sub CommandButton1_Click()
   If Cells(13, "E").Value >= 1 Then
      Cells(13, "E").Value = Cells(13, "E").Value - 1
   End If
End Sub

Private Sub CommandButton2_Click()
   Cells(13, "E").Value = Cells(13, "E").Value + 1
End Sub

[Anarchus]

Thank you so much, that's exactly what I wanted!

[jaslake]

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.