VBA Code Copy/Replace Values base on Date

[Dirtydrongo]

Hey,

I have the following issue,
I have calculated relevant input data from sheet 'Raw Data Input' which is daily input then cleared after entry this has been formulated to input per the attached.
Desired outcome have the macro search column 'A' for todays date and replace Column 'D to R' with the value on the relevant row.
Additionally the following formula to find the data returns false if not current date therefore cell 'D12' I would like to be blank if not meeting the condition.
Current Formula '=IF(A12=TODAY(),(IF('Raw Data Input'!$B$2="","",VLOOKUP($E$1,'Raw Data Input'!$A$2:$D$1000,2,FALSE))))'

Any help would be appreciated.

 

[Anthony47]

Assuming that in column A there are valid Dates, then try

Sub FreezeVal()
Dim myMatch
'
myMatch = Application.Match(CLng(Date), Range("A:A"), False)
If Not IsError(myMatch) Then
    Cells(myMatch, "D").Resize(1, 15).Value = Cells(myMatch, "D").Resize(1, 15).Value          '****
Else
    MsgBox ("Date not found: " & Format(Date, "dd-mmm-yyyy"))
End If
End Sub

However this will "freeze" only the current Date; so when you execute it on Monday, Sat and Sun rows will not be freezed

Therefore you could consider replacing the row marked '*** with the following:

    Range(Range("D2"), Cells(myMatch, "R")).Value = Range(Range("D2"), Cells(myMatch, "R")).Value

This will freeze from D2 to colum R of the current day

Try...