(30/09/2022, 14:44)berduş yazdı: With ThisWorkbook.Sheets("T1") satırının altına aşağıdaki kodu yazıp dener misiniz?

    If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then

        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then

            SonStn = Cells(1, Columns.Count).End(xlToLeft).Column

            kaydir = InStr(1, "ABCD", Cells(Target.Row, "E").Value, vbTextCompare)

                    Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)

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

        End If

    End If

Set bul = .Range("B1:" & .Cells(1, SonStn).Address).Find(Year(Cells(Target.Row, "C").Value), , , 1)

Cells üzerinde hata verdi