VBA data

[hassansabbagh]

Hello there'
I have four cells (A,B,C, and D), (A )contain a date and time of the day, (B,C, and D) contain data changing according to the day & time in A say the Temperature for example.
I need VBA code to copy B,C,D in sheet 1 and paste value in sheet sheet2 if (A), witch the day & time in sheet 2 match (A) in sheet 1. to record the data permanently so will not change when the original data in sheet1 changes with date & time.

1/09/2022 0:00​

20​

15​

10​

I appreciate your help.
Thank you.

 

[bebo021999]

Here VBA solution.
If you are new VBA user, try following steps
- Alt-F11 to open VBA window
- Insert/Module
- Paste below code into
- Hit F5 (or press play button) to run

Option Explicit
Sub Looking()
Dim lr&, i&, j&, DataR As Range
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    Set DataR = .Range("A1:D" & lr)
End With
With Sheets("Sheet2")
    For i = 1 To .Cells(Rows.Count, "A").End(xlUp).Row
        For j = 2 To 4
            With Cells(i, j)
                .Formula = "=IFERROR(VLOOKUP(" & Cells(i, 1).Address(0, 0) & ", Sheet1!A1:D" & lr & " ," & j & ",0),"""")"
                .Value = .Value
            End With
        Next
    Next
End With
End Sub

 

[hassansabbagh]

Thank you very much,
It worked perfectly well.
I am grateful.

Kind regards.
Hassan