aşağıdaki kodu dener misiniz?
son sütunu bulma kodunu eksik yazmışım
SonStn = Cells(1, Columns.Count).End(xlToLeft).Column bu haliyle kod aktif sayfanın 1. satırının son sütununu bulur,
oysa bulmamız gereken son sütun aktif sayfada değil t1 sayfasında dolayısıyla T1 sayfasına atıf için
With ThisWorkbook.Sheets("T1") kodu kullanıldığından . eklenmeli
SonStn = .Cells(1, .Columns.Count).End(xlToLeft).Column

    With ThisWorkbook.Sheets("T1")

        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

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

                    Set kaydir = .Range("A:A").Find(Cells(Target.Row, "E").Value, , , 1)

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

            End If

        End If

    End With

    Set bul = Nothing

    Set kaydir = Nothing

---

(05/10/2022, 14:13)HORZUM yazdı: Sayın berduş hocam yavaş yavaş da olsa bu işi sizden öğreneceğim belli oldu....
Allah cc razı olsun şimdi tamam

rica ederim
sizlerden de
soruyu cevaplanmışlara taşıyalım mı?
çözüldü mü?

(05/10/2022, 14:15)berduş yazdı: rica ederim
sizlerden de
soruyu cevaplanmışlara taşıyalım mı?
çözüldü mü?

evet çözüldü.....