Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I have been all over the place trying to do this and I am completely lost.
Please help. I used the =Now function in excel to display the date and time in a cell when another cell had information entered into it. This proved to be nice until I realized that the adte and time was updating ANYTIME I made a change to anywhere on the sheet. I need the date and time to remain static after it appears in the active cell the first time. After snooping around the net, it seems that the answer is in using a VBA code which I have no inkling oon how to use, and the codes that were posted, I wouldn't know how to change to meet my specific excel sheet. Also in the instructions on the webpage said to right click on the sheet page and choose to view code, which I did got a big window that I couldn't do ANYTHING in. There was no place to put the code, and there are 3 items on the left, ther a atpvbaen.xls funcres.xls VBAProject When I try to open any of those, there is a password, exceot the VBAProject which is unviewable. What I need is simple if anyone would be kind enough to help me out. I need I am guessing 2 codes. I need the code to display the date and time in column E if data was entered in the same row in column D. I also need the code to dispolay a date and time in column G if information has been entered in the same row in Column F. The date is dependent on information from only the same row and shouldn't be affected by information entered on another row. Please explain to me also what I am doing wrong that I am unable to enter the code into excel when right clicking on the sheet and choosing to view code. This would be much appreciated. Below is the code I found on the net that I have no idea of the functionality of it. Thanks in advance for all who help. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range ' Only look at single cell changes If Target.Count 1 Then Exit Sub Set rng = Range("B:B") ' Only look at that range If Intersect(Target, rng) Is Nothing Then Exit Sub ' Add the Date in Column C whenever an entry is made in the same row in Column B If Target < "" Then Target.Offset(, +1) = Date ' Clear the cell in Column C if the same row in Column B is cleared If Target = "" Then Target.Offset(, +1) = "" End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Time entry auto changes to date and then time ? | Excel Worksheet Functions | |||
Auto Date & Time | Excel Worksheet Functions | |||
Auto insert date/time | Excel Worksheet Functions | |||
Auto insertion of date and time | Excel Programming | |||
Auto Date/Time when click on cell | Excel Programming |