how to insert a date when a button is clicked

[Fireblade954]

Hi,

I'm trying to create a simple spreadsheet in Excel 2000 to record routine daily checks at work. I want to insert a button from the forms menu and when I click the button I want it to insert the date it was clicked into the next cell.

I'm pretty much a complete novice with excel and have search the web for an answer but I can't get my head around macros and VBA codes

Any help would be appreciated.

Thanks!!

 

[Mike LH]

Hi,

Put a button from the forms menu on the worksheet and when you've done that you'll immediately get a popup, click New and attach this code. Not that Excel will already have created the first and last lines of this code.

Sub Button1_Click()
ActiveCell.Value = Date
End Sub

 

[Fireblade954]

Thanks, that's sort of what I'm after but still not exactly what I need.

I notice that the date appears in whatever cell is highlighted, can it be modified to only appear in the cell beside it? For example - if I click the button in A2 i need the date to be entered into B2 regardless of what cell is highlighted. is that possible?

 

[mick0005]

Is it ALWAYS B2, or does this vary? We can hard code it into B2, or we can make its location depend on something else, such as the actively selected cell or in reference to some other cell, etc...

If you always want it to be B2, then change "ActiveCell.Value = Date" to:

Range("B2").Value = Date

 

[Fireblade954]

No it won't always be B2. Each date will need to be recorded individually so the dates will need to descend the column. So column A will consist of a header in Cell A1 for the item to be checked and beneath that will be a descending number of buttons with each row representing a daily check of that item.

I will need to check multiply items so is will roughly appear as A2 = Item, B2 = check date, C2 = next item, D2 checked date and so on so forth.

Sorry for any confusion but as I said I'm a complete novice to this!!

Is it ALWAYS B2, or does this vary? We can hard code it into B2, or we can make its location depend on something else, such as the actively selected cell or in reference to some other cell, etc...

If you always want it to be B2, then change "ActiveCell.Value = Date" to:

Range("B2").Value = Date

 

[mick0005]

So are you just needing to have multiple buttons, each which control adding the date to a specific cell (b2, d2, f2, etc...)?

If so, just follow Mike's suggestion to create the button and then put in the code I suggested and modify the cell address based on the required action of that specific button.