Entering current time in specific cells

Solved/Closed

friskymarsh Posts 2 Registration date Wednesday October 7, 2015 Status Member Last seen October 20, 2015 - Oct 7, 2015 at 11:20 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Oct 20, 2015 at 04:26 PM

Hi, I am using a workbook where I record the time that I give each of my students an exam. I am using a tablet and I would like to be able to touch (or click) a specific cell to enter the current time. I found some code on this site that allows me to enter the time by clicking, but I don't know how to write it so that it will only apply to specific cells. Here is the code:

If Target.Address = ActiveCell.Address Then

Target = Format(Now, "ttttt")

End If

I would appreciate any help.

Insert the current date and time in the selected cell
Insert the current date and time in cell a1 ✓ - Excel Forum
Popcorn time - Download - Movies, series and TV
Based on the values in cells b77:b81, what function can automatically return the value in cell c77? ✓ - Excel Forum
Clear only the formatting from the selected cell (leaving the content) - Guide
The system time is invalid hp ✓ - CPU & Desktop Forum

1 response

Answer 1 / 1

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Oct 7, 2015 at 12:19 PM

you can try to use the event
if you go to VBE
and click on your sheet
there you can try code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'prevent Select event triggering again
    Application.EnableEvents = False

    'ensure that only one cell is selected
    If (Target.Count = 1) Then
        'ensure that cell selected is from range A1:A10
        If (Not Intersect(Target, Range(Cells(1, "a"), Cells(10, "A"))) Is Nothing) Then
            'put current date and time
            Target = Now
        End If
    End If
    'enable the event again
    Application.EnableEvents = True
End Sub

friskymarsh Posts 2 Registration date Wednesday October 7, 2015 Status Member Last seen October 20, 2015
Oct 20, 2015 at 02:40 PM

Thanks for the help. Sorry for the delay in responding. Your solution works well, but because of my lack of knowledge, I am having troubling specifying the specific cells I want to use this event in. ie, I want to touch a cell on my tablet to enter the time, but I need to be able to enter data into the adjacent cell.

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Oct 20, 2015 at 04:26 PM

if you want to have date entered next to the cell you touch, then you can use offset

target.offset(0,1) = now

Similar discussions

Change color to different cells based on another cells text.

Excel: If Date =, then enter a value

format one cell based on a text value in another cell

Condition formatting on changing cell color based on another cel

Formula for if cell contains word, assign value for multiple

change cell by clicking on another cell

Similar discussions

Subscribe To Our Newsletter!