Private Sub Worksheet_Change(ByVal Target As Range)

    Dim bul As Range

    Dim trh As Date

    Dim CsutunTarih As Date

    

    With ThisWorkbook.Sheets("T1")

        If Target.Column = 5 And Target.Row >= 3 Then

            If Target.Cells.Count = 1 Then

                If Target.Offset(, -2).Value = "" Then

                    Target.Offset(, 1).Value = ""

                    MsgBox "Tarih giriniz...", vbCritical, "Hata"

                    Exit Sub

                End If

                If .Range("D2").Value = "" Then

                    MsgBox "T1 sayfasina Tarih giriniz...", vbCritical, "Hata"

                    Exit Sub

                End If

                

                trh = .Range("D2")

                CsutunTarih = Cells(Target.Row, 3)

                If CsutunTarih < trh Then

                    Set bul = .Range("B:B").Find(Target.Value, , , 1)

                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value

                ElseIf CsutunTarih > trh Then

                    Set bul = .Range("E:E").Find(Target.Value, , , 1)

                    If Not bul Is Nothing Then Cells(Target.Row, "F").Value = bul.Offset(, 1).Value

                End If

            End If

        End If

    End With

    Set bul = Nothing

End Sub