i have 2 sheets one is for the data called employee cost which is having a calculation of employees EOS and the other sheet is a report sheet quarterly basis retrieve the date from the first sheet based on formula below as below
Sample of quarterly report
DATE EOS LEAVE TOTAL
26-Aug-20 1,797,331.23 653,240.56 2,450,571.79
30-Jun-20 - - -
30-Sep-20 - - -
31-Dec-20 - - -
the formula in column EOS is =IF(TODAY()=C4(date first cell),'EMPLOYEE COST 2020'!$AF$128,0)
as you notice the criteria based on date means when the condition is true the figures will shows up, but next day it will be gone because the date changed( Today()), therefore I need to keep the data showed in that specific date and not change by date changes.
The code below will change the formula's on your Report sheet (Change sheet name in code to match yours if necessary) to values when you open your workbook.
Here is the code:
Private Sub Workbook_Open()
Sheets("Report").Select 'Change the sheet name to match yours
For Each cell In Range("A4:A" & Range("A4").End(xlDown).Row)
If cell.Value = Date Then
cell.Offset(0, 1).Value = cell.Offset(0, 1).Value
cell.Offset(0, 2).Value = cell.Offset(0, 2).Value
cell.Offset(0, 3).Value = cell.Offset(0, 3).Value
End If
Next cell
End Sub
To use the code, press Alt+F11, double-click ThisWorkbook on the left side and paste the code in the big white field. Save and close your workbook, re-open to see the result of the code.
