keep the data even after the date change Solved/Closed

Question

Hello, 

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. 

thanks in advance

kal

TrowaD · Answer

Hi Kal,
 
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.

Here is a picture to guide you:


Best regards,
Trowa

Keep the data even after the date change

1 response

Similar discussions

Subscribe To Our Newsletter!