Eklemiş olduğum Excel dosyasındaki T1 sayfasında bulunan verileri Y1 sayfasına(daha önce kod oluşturulmuştu) T1 deki tarihten önce olursa 2020'deki veriyi, sonra olursa 2021'deki veriyi kod ile nasıl alırım.

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

Feraz bey çok teşekkür ederim. Allah razı olsun.

(19/02/2021, 09:54)HORZUM yazdı: Feraz bey çok teşekkür ederim. Allah razı olsun.

Rica ederim.Aslında koda isdate ile tarihmi diyede şart eklenip mesaj verdilebilinirdi unutmuşum.
Sizdende Allah razı olsun.

Kolay gelsin.