Cell formula to record many values and date entered

Hey, I'm trying to make an excel spreadsheet for a university course, but I don't have much knowledge of excel, however I am quite computer literate. I'm trying to make it so that a student can input a value (eg 5) into a cell, and then have excel record that value along with the date the value was inputted on. But then it must work so that either the value is recorded in a drop down list, or on another spreadsheet, so that another student can come along on another day and input a new value and so on (I'm assuming macros can be used in excel, and could be used somehow to move the data to another spreadsheet). Also so that the other students can look at the values recorded over a certain length of time. Can anybody help me out with this? Please!

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

Doing this will ensure you get the result you need!

Hi Stryda,
good stuff
have you use the record macro feature?
Its good to as it write code for the steps/procedures you eg copy from cell to another worksheet.

Hi Stryda,
You can attach this macro to each button

Sub ptest()
    With Worksheets("1 Database").Cells(Rows.Count, "C").End(xlUp)
        .Offset(1, 0) = Date
        .Offset(1, 1) = ActiveSheet.Range("E8").Value
        .Offset(1, 2) = ActiveSheet.Range("E13").Value
        .Offset(1, 3) = ActiveSheet.Range("E18").Value
    End With
    With ActiveSheet
        .Range("E8").ClearContents
        .Range("E13").ClearContents
        .Range("E18").ClearContents
    End With
End Sub

hi Stryda

Ot add value to top of the list

Sub ptest()
     With Worksheets("1 Database")
          .Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
          .Range("C5").Value = Date
          .Range("D5").Value = ActiveSheet.Range("E8").Value
          .Range("E5").Value = ActiveSheet.Range("E13").Value
          .Range("F5").Value = ActiveSheet.Range("E18").Value
    End With
    With ActiveSheet
        .Range("E8").ClearContents
        .Range("E13").ClearContents
        .Range("E18").ClearContents
    End With
End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

Hi Stryda,
Probably better to start a new thread in the Charts forum