Date counter and then stop when new date is entered
Closed
slizott
Posts
1
Registration date
Monday 24 February 2020
Status
Member
Last seen
24 February 2020
-
24 Feb 2020 à 09:06
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 2 Mar 2020 à 12:08
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 2 Mar 2020 à 12:08
Related:
- Day counter in excel
- Counter strike 1.6 cheats - Guide
- Counter strike 2 download - Download - Shooters
- Hay day download pc - Download - Simulation
- Excel mod apk for pc - Download - Spreadsheets
- Counter strike global offensive download - Download - Shooters
1 response
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
2 Mar 2020 à 12:08
2 Mar 2020 à 12:08
Hi Slizott,
Slightly confusing. First you want to calculate time between B9 and Z9, D9 and Z9. And later you say you want to calculate between B9 and D4 until Z9 is entered.
I guess the Z9's in the first sentence are a typo and you meant to say D4.
Assuming you want to use column AA and AB for the day differences, check the following code:
To implement the code, right-click the sheet's tab and select View code. Paste the code in the big white field of the newly opened window. This window can be closed immediately after.
Best regards,
Trowa
Slightly confusing. First you want to calculate time between B9 and Z9, D9 and Z9. And later you say you want to calculate between B9 and D4 until Z9 is entered.
I guess the Z9's in the first sentence are a typo and you meant to say D4.
Assuming you want to use column AA and AB for the day differences, check the following code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns("Z")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Range("AA" & Target.Row).Value = Range("D4").Value - Range("B" & Target.Row)
Range("AB" & Target.Row).Value = Range("D4").Value - Range("D" & Target.Row)
End Sub
To implement the code, right-click the sheet's tab and select View code. Paste the code in the big white field of the newly opened window. This window can be closed immediately after.
Best regards,
Trowa