Increment Date by 1

**evenings** · 06-03-2010, 10:02 AM

I have a date on cell K1. I have several macro buttons throughout the spreadsheet. I want the date on cell K1 to increment to the next date when any of the buttons are pressed.

I thought this would work.

Sub addOne()
    Range ("K1") + 1
End Sub

The macro buttons work just fine. I just want to add this ability by calling addOne() whenever I press any of the buttons.

**ShredDude** · 06-03-2010, 10:09 AM

In each Command Button's event code, place the call to addone in the Click event

Private Sub CommandButton1_Click()
 Call addOne
End Sub

Your addOne procedure should probably be:

Sub addOne()
   Range("k1")=  Range ("K1") + 1
End Sub

**evenings** · 06-03-2010, 10:22 AM

Originally Posted by ShredDude

Your addOne procedure should probably be:

Sub addOne()
   Range("k1")=  Range ("K1") + 1
End Sub

That worked thanks.

Increment Date by 1

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Increment Date by 1

Re: Increment Date by 1

Re: Increment Date by 1

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions