Pulling the value of a specific cell based the date that I click

[coleestro]

Hi all!

I'm hoping to get some guidance on an excel question that has me lost:

In tracking my time worked, I would like to be able to click on a date in column 6, and then have the total hours worked on that date, shown on column 11, to be displayed in a new cell at the beginning of the worksheet. Is this at all possible? Ideally I would want to highlight multiple dates, and have a function that returns total hours worked in the cell at the beginning of the worksheet.

Many thanks for your ideas!

[patel45]

a sample file with desired result would be helpful

[coleestro]

Here is a PDF showing the excel file I am working with. I would want to be able to click on 6-Nov, for example, and then have the 9:30 from the "Hours worked" column in the same row be displayed in the first cell of the worksheet (Hours worked). Like I said, ideally I'd be able to highlight multiple cell dates, and have the sum returned in the fist cell of the worksheet (hours worked).

Any guidance would be tremendous!

[JOHN H. DAVIS]

Ditto patel45's comment.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:F" & ActiveSheet.UsedRange.Rows.Count + 1)) Is Nothing Then
    Target.Offset(, 5).Copy Range("A1")
End If
End Sub

This will transfer data from Column K to A1 on selecting a cell in Column F. If that helps?

[coleestro]

Thanks for the code! I played around with it a bit but wasn't able to get the desired results (I'm next to macros so I'm probably doing something wrong!). I've attached a copy of the excel file I'm working with, with a comment on the spreadsheet explaining what I'm looking for. Any way you can work with this file?

[patel45]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F18:F" & ActiveSheet.UsedRange.Rows.Count + 1)) Is Nothing Then
     Range("F1") = Target.Offset(, 5).Value
End If

End Sub

Put this code in Sheet1 module

[coleestro]

That's amazing, patel45! Did the trick beautifully.

Thanks!