You have 2 options. Option 1 -
Right click on your worksheet and say "View Code". Add this code
Option Explicit
Dim lrow As Long
Dim i As Long
Private Sub Worksheet_Activate()
lrow = Worksheets("Data").Range("A" & Rows.Count).End(xlUp).Row
For i = 3 To lrow
If Worksheets("Data").Range("A" & i).Value = CDate(Worksheets("Daily Summary").Range("F1").Value) Then
Worksheets("Daily Summary").Range("A4").Value = Worksheets("Data").Range("B" & i).Value
Worksheets("Daily Summary").Range("B4").Value = Worksheets("Data").Range("D" & i).Value
Worksheets("Daily Summary").Range("C4").Value = Worksheets("Data").Range("E" & i).Value
Worksheets("Daily Summary").Range("D4").Value = Worksheets("Data").Range("G" & i).Value
Worksheets("Daily Summary").Range("E4").Value = Worksheets("Data").Range("H" & i).Value
Worksheets("Daily Summary").Range("F4").Value = Worksheets("Data").Range("J" & i).Value
End If
Next i
End Sub
2nd, you can use a vlookup as follows -
In Column A - put this formula =
=VLOOKUP($F$1,Data!$A:$K,2,0)
Change accordingly.
Bookmarks